已經做了幾個地塊與R相同的圖表？

Question

我已經有了不同尺度的R圖的步驟圖，我想把它們放在同一個圖上，這樣我就可以對它們進行比較，是否有一個功能可以輕鬆完成，以便我不必更改代碼？ 與直方圖相同的問題，一般情節。 例如，我的1個情節代碼與GGPLOT2包以下：

ggplot(e,aes(a,b/max(b)*100)) 
    +geom_step(lwd=1.2,direction="hv",colour="black") 
    + annotate(geom="rect", xmin  =0,xmax=160/60,ymin=0,ymax=100,alpha=.4,fill="green") 
    +annotate(geom="rect", xmin =160/60,xmax=779/60+160  /60,ymin=0,ymax=100,alpha=.4,fill="blue") 
    +ggtitle("Départ HTA MARCEAU DR 8A 25/11/2016") 
    +ylab("%Clients coupés")+xlab("Durées d'interruptions (en h)") 
    +annotate("text", x=c(1.5,10),y=c(70,80),  label=c("Localisation","Dépannage")) 
    + geom_vline(xintercept = (0/3600),col = c("red")) 
    +geom_vline(xintercept = (2475/3600),col = c("blue"),show.legend=TRUE) 
+geom_vline(xintercept = (939/60+2475/3600+13/60)) 

我可能會在那裏過添加XLIM。

謝謝。

Answer 1

只要給一些名字每一個情節，然後用grid.arrange()功能如下：

p1<-ggplot(e,aes(a,b/max(b)*100)) 
    +geom_step(lwd=1.2,direction="hv",colour="black") 
    + annotate(geom="rect", xmin 

    =0,xmax=160/60,ymin=0,ymax=100,alpha=.4,fill="green") 
     +annotate(geom="rect", xmin =160/60,xmax=779/60+160  /60,ymin=0,ymax=100,alpha=.4,fill="blue") 
     +ggtitle("Départ HTA MARCEAU DR 8A 25/11/2016") 
     +ylab("%Clients coupés")+xlab("Durées d'interruptions (en h)") 
     +annotate("text", x=c(1.5,10),y=c(70,80),  label=c("Localisation","Dépannage")) 
     + geom_vline(xintercept = (0/3600),col = c("red")) 
     +geom_vline(xintercept = (2475/3600),col = c("blue"),show.legend=TRUE) 
    +geom_vline(xintercept = (939/60+2475/3600+13/60)) 

Similarly define p2,p3,p4... as many plots you have 

Then use following: 

    library(gridExtra) 
    grid.arrange(p1,p2,p3,p4,ncol=2) 

更新

ggplot() #define first plot 
     +geom_step(e,aes(a,b/max(b)*100),lwd=1.2,direction="hv",colour="black") 
     + annotate(geom="rect", xmin  =0,xmax=160/60,ymin=0,ymax=100,alpha=.4,fill="green") 
     +annotate(geom="rect", xmin =160/60,xmax=779/60+160  /60,ymin=0,ymax=100,alpha=.4,fill="blue") 
     +ggtitle("Départ HTA MARCEAU DR 8A 25/11/2016") 
     +ylab("%Clients coupés")+xlab("Durées d'interruptions (en h)") 
     +annotate("text", x=c(1.5,10),y=c(70,80),  label=c("Localisation","Dépannage")) 
     + geom_vline(xintercept = (0/3600),col = c("red")) 
     +geom_vline(xintercept = (2475/3600),col = c("blue"),show.legend=TRUE) 
    +geom_vline(xintercept = (939/60+2475/3600+13/60)) 

#2nd plot 
+geom_step(e,aes(a,b/max(b)*100),lwd=1.2,direction="hv",colour="black") 
     + annotate(geom="rect", xmin  =0,xmax=160/60,ymin=0,ymax=100,alpha=.4,fill="green") 
     +annotate(geom="rect", xmin =160/60,xmax=779/60+160  /60,ymin=0,ymax=100,alpha=.4,fill="blue") 
     +ggtitle("Départ HTA MARCEAU DR 8A 25/11/2016") 
     +ylab("%Clients coupés")+xlab("Durées d'interruptions (en h)") 
     +annotate("text", x=c(1.5,10),y=c(70,80),  label=c("Localisation","Dépannage")) 
     + geom_vline(xintercept = (0/3600),col = c("red")) 
     +geom_vline(xintercept = (2475/3600),col = c("blue"),show.legend=TRUE) 
    +geom_vline(xintercept = (939/60+2475/3600+13/60)) 

等..