从grid.arrange删除边框

Question

我正在使用gridExtra封装grid.arrange函数组合多个ggplot图形。

我这样做：

p1<-ggplot(x, aes(Date, Value)) + geom_line() 
p2<-ggplot(y, aes(Date, Score)) + geom_point() 
grid.arrange(p1, p2, main=textGrob("Head Line", gp=gpar(cex=1.5, fontface="bold", col="#990000")), ncol = 1, clip=TRUE) 

此命令将P1和P2之间的边界。我找不到在grid.arrange中删除边框的任何信息。是否可以删除边界？

Answer 1

gridExtra不在绘图之间增加任何边界。你所看到的只是已经围绕每个情节的边界。也就是说，在p1的底部有一个边框，在p2的顶部有一个边框。把两者放在一起，看起来两者之间可能有更多空间。

要删除或调整每个图的边界，请使用theme函数中的plot.margin元素。以下消除p1的下边距和p2的上边距。

library(ggplot2) 
library(gridExtra) 

p1<-ggplot(data.frame(x = 1:10, y = 1:10), aes(x, y)) + geom_line() + 
     theme(plot.margin = unit(c(1,1,0,1), "lines")) 

p2<-ggplot(data.frame(x = 1:10, y = 1:10), aes(x, y)) + geom_point() + 
    theme(plot.margin = unit(c(0,1,1,1), "lines")) 

grid.arrange(p1, p2, top=textGrob("Head Line", 
    gp=gpar(cex=1.5, fontface="bold", col="#990000")), ncol = 1, clip=TRUE) 

编辑（16/07/2015）：与gridExtra> = 2.0.0，所述main参数已被重命名top。