减少grid.arrange中的绘图边距

Question

我正在尝试缩小grid.arrange中图形之间的水平间距。我想尽量减少空白。组件图形由sna软件包中的gplot函数产生，该软件包使用基本图形。此功能似乎可以产生左右边距较宽的图（因为图区大约为正方形，在矩形图空间中，这些边距上有多余的空间）。我试图将绘图边距减少为0，但似乎没有任何效果。在此示例中，我可以将组件图的边距/空白降低到最小吗？

library(sna)
library(gridExtra)
library(gridGraphics)
library(ggplotify)

par(mar = c(7,0,1,0))
m <- list()
for(i in 1:4){
  gplot(rgraph(10, tprob=.3))
  grid.echo()
  m[[i]] <- grid.grab()
}

#grid.arrange(m, ncol = 2)
#lapply(m, class)

grid.arrange(m[[1]], m[[2]], m[[3]], m[[4]], ncol = 2)

我还尝试使用以下方法来增加绘图宽度和高度：

options(repr.plot.width=10, repr.plot.height=10)

但这似乎没有任何作用。