从 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 不会在绘图之间添加任何额外的边框。您所看到的只是已经围绕每个地 block 的边界。即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 参数已重命名为 顶部。