title: Combining ggplots erase original plot?
body: <p>I tried to align different plots obtained by using geom_bar. When I run each plot one by one, it works well. I got what I want. But when I aggregate all of them into one multiple plot, I have always the same....</p>
  
  <p>To be clear: this is the first plot which is good:
  <a href="https://i.stack.imgur.com/Zz0Sn.png" rel="nofollow noreferrer">enter image description here</a></p>
  
  <p>Here what I got when I combine both plots. The first column should be the same the plot above...:
  <a href="https://i.stack.imgur.com/yHl46.png" rel="nofollow noreferrer">enter image description here</a></p>
  
  <p>I can't find the problem. This is my script: </p>
  
  <pre><code>##### colonne 6
  i=6
  col=compil[,i]
  nom=names(compil[i])
  maxi = max(col)
  mini = min(col)
  
  p5 &lt;- ggplot(compil,aes(x=NIVEAU, y=col)) + 
    geom_bar(stat="identity",position = "identity",aes(width=0.85),
             fill=ifelse(col &gt; 1, rgb(63,202,20, maxColorValue = 255),
                         ifelse (col&lt; -1,rgb(204,0,0, maxColorValue = 255),
                                 rgb(160,160,160, maxColorValue=255))) ) +
    geom_hline(yintercept=0,color=rgb(160,160,160, maxColorValue=255))+
    coord_flip(ylim=c(-2.5,2.5)) +
    labs(x="", y="", title= nom) + guides(fill=F) +
    theme(panel.grid.major=element_blank(), panel.grid.minor.x=element_blank(),
          panel.background = element_blank(), axis.text.x=element_blank(),
          axis.ticks  = element_blank(),axis.line= element_blank(),
          plot.margin=unit(c(1,-1,1,-1),"lines"), plot.title = element_text(size=10))
  print(p5)
  
  ##### colonne 7
  i=7
  col=compil[,i]
  nom=names(compil[i])
  maxi = max(col)
  mini = min(col)
  
  p6 &lt;- ggplot(compil,aes(x=NIVEAU, y=col)) + 
    geom_bar(stat="identity",position = "identity",aes(width=0.85),
             fill=ifelse(col &gt; 1, rgb(63,202,20, maxColorValue = 255),
                         ifelse (col&lt; -1,rgb(204,0,0, maxColorValue = 255),
                                 rgb(160,160,160, maxColorValue=255))) ) +
    geom_hline(yintercept=0,color=rgb(160,160,160, maxColorValue=255))+
    coord_flip(ylim=c(-2.5,2.5)) +
    labs(x="", y="", title= nom) + guides(fill=F) +
    theme(panel.grid.major=element_blank(), panel.grid.minor.x=element_blank(),
          panel.background = element_blank(), axis.text=element_blank(),
          axis.ticks  = element_blank(),axis.line= element_blank(),
          plot.margin=unit(c(1,-1,1,-1),"lines"), plot.title = element_text(size=10))
  print(p6)
  
  vplayout &lt;- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y)
  grid.newpage()
  pushViewport(viewport(layout = grid.layout(1, 3)))
  print(p5, vp = vplayout(1, 1:2))
  print(p6, vp = vplayout(1, 3))
  </code></pre>
  
  <p>If someone could help me to find the mistake, I really appreciate!! Of course, I am doing something wrong but what?? 
  Thank you in advance for your time and your help!</p>