grid.arrange を使用して 2 つのプロット間のスペースを増やす方法についての解決策が見つからないようです。どのように進めればよいかの手がかりが見つかりません。プロットのサイズなどを変更したくありません。
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 の間のスペースを増やす必要があります。
ベストアンサー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))
