Lề giữa các ô trong lưới.arrange

Question

Tôi dường như không thể tìm ra giải pháp về cách tăng khoảng cách giữa hai ô với grid.arrange. Tôi không tìm thấy đầu mối nào để tiến hành. Tôi không muốn thay đổi kích cỡ của ô hoặc bất cứ thứ gì như thế.

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

(Các công cụ dưới đây đã được bổ sung sau):

Đây là mã mà tôi có:

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) 

Vì vậy, nó là trong lưới cuối cùng này. sắp xếp, không gian giữa soc_sph và cs được tăng lên.

Answer 1

cách giữa các ý kiến ​​để thay đổi lề âm mưu,

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