使用grid.arrange排列多图时最后行图表尺寸压缩问题求助

这个问题我之前也碰到过！用grid.arrange排多图时，只让最后一行显示x轴确实容易出现最后一行图被压缩的情况，原因是前面的图隐藏x轴后节省了垂直空间，而grid默认每行高度一致，导致最后一行的绘图区域被挤小。我给你几个解决办法，先从补全后的可复现代码入手调整：

先补全可复现代码 #

首先把你没写完的示例代码补全，方便测试：

source("http://www.openintro.org/stat/data/arbuthnot.R")
library(ggplot2)
library(reshape2)
library(gridExtra)

names(arbuthnot) <- c("Year", "Men", "Women")
arbuthnot.melt <- melt(arbuthnot, id.vars = "Year")

# 生成12个示例图表（6行2列）
plots <- lapply(1:12, function(i) {
  p <- ggplot(arbuthnot.melt, aes(x = Year, y = value, color = variable)) +
    geom_line() +
    labs(title = paste("Plot", i))
  # 仅最后一行的图（第11、12个）显示x轴
  if (i %in% 11:12) {
    p
  } else {
    p + theme(axis.title.x = element_blank(),
              axis.text.x = element_blank(),
              axis.ticks.x = element_blank())
  }
})

# 原始问题：执行这行代码会看到最后一行图被压缩
grid.arrange(grobs = plots, ncol = 2)

解决方案一：给所有图预留x轴空间（推荐） #

核心思路是让所有图表都保留x轴的垂直空间，只是前面的图隐藏标签、刻度，这样所有图的绘图区域高度完全一致，最后一行只是把x轴元素显示出来：

plots <- lapply(1:12, function(i) {
  p <- ggplot(arbuthnot.melt, aes(x = Year, y = value, color = variable)) +
    geom_line() +
    labs(title = paste("Plot", i)) +
    # 统一设置主题，预留x轴空间
    theme(
      # 控制x轴标签显示/隐藏
      axis.title.x = ifelse(i %in% 11:12, element_text(), element_blank()),
      # 控制x轴刻度文本显示/隐藏
      axis.text.x = ifelse(i %in% 11:12, element_text(), element_blank()),
      # 控制x轴刻度线显示/隐藏
      axis.ticks.x = ifelse(i %in% 11:12, element_line(), element_blank()),
      # 关键：给x轴标签和刻度预留margin，避免空间被收回
      axis.title.x.bottom = element_text(margin = margin(t = 10)),
      axis.text.x.bottom = element_text(margin = margin(t = 5))
    )
  p
})

# 重新排列，此时所有图的绘图区域高度一致，最后一行不会被压缩
grid.arrange(grobs = plots, ncol = 2)

解决方案二：手动调整行高 #

如果不想修改图表主题，可以直接在grid.arrange中用heights参数给最后一行分配更多高度，比如6行的话，前5行高度设为1，最后一行设为1.2（可根据实际效果调整）：

# 前5行高度1，最后一行高度1.2
grid.arrange(grobs = plots, ncol = 2, heights = c(rep(1, 5), 1.2))

解决方案三：用patchwork包更便捷（强烈推荐） #

patchwork是ggplot生态中专门用于多图组合的工具，处理坐标轴对齐、空间分配比gridExtra智能得多，代码也更简洁：

# 先安装patchwork（如果没装过）
install.packages("patchwork")
library(patchwork)

# 把图表分成上下两部分：前10个（5行2列）和最后2个（1行2列）
top_plots <- plots[1:10]
bottom_plots <- plots[11:12]

# 用patchwork的语法组合，自动处理空间和坐标轴
wrap_plots(top_plots, ncol = 2) / wrap_plots(bottom_plots, ncol = 2) +
  plot_layout(guides = "collect")  # 可选：统一图例位置，避免重复

patchwork会自动识别最后一行的x轴元素，分配合适的空间，完全不会出现压缩问题，而且代码可读性更强。

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