grid.arrange 中绘图之间的边距

Question

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

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之间的space要增加。

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

grid.arrange 中绘图之间的边距

Margins between plots in grid.arrange

r

ggplot2

gridextra