r - 从 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顶部有边框。将两者放在一起，看起来两者之间可能有额外的空间。

要删除或调整每个绘图的边界，请使用函数plot.margin中的元素theme。下面删除 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。

Answer 2

有点晚了，但我遇到了同样的问题，我想我已经找到了解决方案。plot.margin 没有帮助，但是将 panel.border 和 plot.background （参数颜色和填充）调整为绘图的背景颜色就可以了。