r - 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))