grid.arrange中的图之间的边距

Question

我似乎无法找到关于如何使用grid.arrange增加两个图之间的空间的解决方案。我找不到如何继续的线索。我不想改变地块的大小或类似的东西。

grid.arrange(plot1, plot2, ncol=2)

（下面的内容后来添加）：

这是我的代码：

X11（）

cs <- grid.arrange(arrangeGrob(b, a, ncol=2, top = textGrob(
                    "B", vjust = 0.5, hjust = 19.5, gp = gpar(
                     fontface = "bold", cex = 1.5)),
                     left = textGrob(~ Delta * "SCR (p - d)" ~ mu * 'S', 
                     gp=gpar(fontsize=18), rot = 90, vjust = 1)))
soc_sph <- grid.arrange(arrangeGrob(p, g, ncol=2, top = textGrob(
                     "A", vjust = 0.5, hjust = 19.5, gp = gpar(
                     fontface = "bold", cex = 1.5)),
                     left = textGrob(~ Delta * "SCR (p - d)" ~ mu * 'S', 
                     gp=gpar(fontsize=18), rot = 90, vjust = 1)))

grid.arrange(soc_sph, cs, ncol=2)

所以它在最后一个grid.arrange中，soc_sph和cs之间的空间要增加。

Answer 1

标准方法是改变绘图边距，

pl = replicate(3, ggplot(), FALSE)
grid.arrange(grobs = pl)  # default settings

margin = theme(plot.margin = unit(c(2,2,2,2), "cm"))
grid.arrange(grobs = lapply(pl, "+", margin))