grid.arrange()设置1:1宽高比时多行布局出现多余内边距的解决方法咨询

我之前也碰到过这个问题——当用grid.arrange做多行布局且每个图锁定1:1宽高比时，空单元格会强制预留空间，导致所有图被压缩，出现多余内边距。下面给你两种实用的解决方案：

推荐方案：用patchwork包（更省心） #

patchwork是ggplot2生态里专门做拼图的工具，对固定宽高比的布局支持得特别好，完全不用手动调内边距。步骤很简单：

1. 先安装并加载patchwork包
2. 用+把图拼起来，再用plot_layout()指定行数和列数就行

修改后的示例代码：

{r plot_patchwork, echo=FALSE, warning=FALSE, message=FALSE}
library(patchwork)

# 先定义基础绘图和主题
plot_speed_dist <- ggplot(cars, aes(speed, dist)) + geom_point()
aspect_1_theme <- theme_classic() + theme(aspect.ratio=1, plot.background=element_rect(fill="lightgrey"))

# 组合5个图：2行3列布局，自动适配宽高比
(plot_speed_dist + ggtitle('A', subtitle = "a") + aspect_1_theme) +
(plot_speed_dist + ggtitle('B', subtitle = "b") + aspect_1_theme) +
(plot_speed_dist + ggtitle('C', subtitle = "c") + aspect_1_theme) +
(plot_speed_dist + ggtitle('D', subtitle = "d") + aspect_1_theme) +
(plot_speed_dist + ggtitle('E', subtitle = "e") + aspect_1_theme) +
plot_layout(nrow = 2, ncol = 3, guides = "collect")

这个方法会自动调整每个图的尺寸，既保持1:1宽高比，又最大化利用页面空间，完全不会有多余内边距。

坚持用gridExtra的解决方案 #

如果你不想换包，也可以通过调整布局参数解决问题。核心思路是不让空单元格占用有效空间：

方法1：拆分布局为两行，设置空单元格宽度为0

把5个图分成两行（3个+2个），第二行的空单元格宽度设为0，这样布局就不会为它预留空间了：

{r grid_extra_fix, echo=FALSE, warning=FALSE, message=FALSE}
# 先把每个图存成对象
p1 <- plot_speed_dist + ggtitle('A', subtitle = "a") + aspect_1_theme
p2 <- plot_speed_dist + ggtitle('B', subtitle = "b") + aspect_1_theme
p3 <- plot_speed_dist + ggtitle('C', subtitle = "c") + aspect_1_theme
p4 <- plot_speed_dist + ggtitle('D', subtitle = "d") + aspect_1_theme
p5 <- plot_speed_dist + ggtitle('E', subtitle = "e") + aspect_1_theme

# 分两行组合，第二行的空单元格宽度设为0
grid.arrange(
  arrangeGrob(p1, p2, p3, nrow=1),
  arrangeGrob(p4, p5, nullGrob(), nrow=1, widths = c(1,1,0)),
  nrow=2, heights = c(1,1)
)

方法2：用grid包的viewport手动布局

如果你想更精确控制位置，可以用grid包的底层视图口功能，直接指定每个图的位置，空单元格就不会占用空间了：

{r grid_viewport_fix, echo=FALSE, warning=FALSE, message=FALSE}
library(grid)

# 创建一个2行3列的视图口布局
vp_grid <- viewport(layout = grid.layout(nrow=2, ncol=3))

# 把每个图放到对应的位置里
pushViewport(vp_grid)
print(p1, vp = viewport(layout.pos.row=1, layout.pos.col=1))
print(p2, vp = viewport(layout.pos.row=1, layout.pos.col=2))
print(p3, vp = viewport(layout.pos.row=1, layout.pos.col=3))
print(p4, vp = viewport(layout.pos.row=2, layout.pos.col=1))
print(p5, vp = viewport(layout.pos.row=2, layout.pos.col=2))
popViewport()

为啥原方法会出问题？ #

你原来的代码里，arrangeGrob(nrow=2, ncol=3)会创建6个单元格，每个单元格都要遵循1:1的宽高比——哪怕第6个是空的，它也会占用和其他单元格一样的空间，导致整个布局被拉长，所有图都被压缩，自然就出现多余内边距了。而上面的方法都是避免空单元格占用有效空间，从而让图最大化显示。

内容的提问来源于stack exchange，提问作者Smerla