使用patchwork多页绘图时，子图数量不足网格数致宽高不一致怎么解决？

使用patchwork包的wrap_plots()批量输出多页绘图时，通过ncol和nrow指定了统一的网格布局，但当子图数量小于网格总区域数（ncol×nrow）时，不同页面的子图宽高会出现不一致的情况。以下是具体问题示例：

问题示例1：页1与页2子图宽度不一致 #

页1（填满6个子图）代码：

library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))

wrap_plots(p1, p1, p1, p1, p1, p1, ncol = 3, nrow = 2) + 
  patchwork::plot_annotation(title = "page1") &
  theme(plot.background = element_rect(fill = 'grey'))

页2（仅2个子图）代码：

wrap_plots(p1, p1, ncol = 3, nrow = 2) + 
  patchwork::plot_annotation(title = "page2") &
  theme(plot.background = element_rect(fill = 'grey'))

问题示例2：页1与页2子图高度不一致 #

页1（填满6个子图）代码：

wrap_plots(p1, p1, p1, p1, p1, p1, ncol = 2, nrow = 3)  + 
  patchwork::plot_annotation(title = "page1") &
  theme(plot.background = element_rect(fill = 'grey'))

页2（仅2个子图）代码：

wrap_plots(p1, p1, ncol = 2, nrow = 3)  + 
  patchwork::plot_annotation(title = "page2") &
  theme(plot.background = element_rect(fill = 'grey'))

解决方案：补全空白占位符 #

核心思路是用plot_spacer()填充网格中未被子图占据的位置，让每个页面的网格结构保持完全一致，从而强制子图使用相同的宽高比例。

修改后的页2代码（宽度问题修复）：

# 补全4个空白占位符，凑满3列×2行=6个元素
wrap_plots(p1, p1, plot_spacer(), plot_spacer(), plot_spacer(), plot_spacer(), 
           ncol = 3, nrow = 2) + 
  patchwork::plot_annotation(title = "page2-宽度修复") &
  theme(plot.background = element_rect(fill = 'grey'))

修改后的页2代码（高度问题修复）：

# 补全4个空白占位符，凑满2列×3行=6个元素
wrap_plots(p1, p1, plot_spacer(), plot_spacer(), plot_spacer(), plot_spacer(), 
           ncol = 2, nrow = 3)  + 
  patchwork::plot_annotation(title = "page2-高度修复") &
  theme(plot.background = element_rect(fill = 'grey'))

批量处理的优化方法

如果子图数量较多，可以通过计算需要补充的占位符数量，自动生成补全列表：

# 定义每页最大子图数
per_page <- 3*2 # 3列2行
# 当前页的子图列表
current_plots <- list(p1, p1)
# 计算需要补充的占位符数量
spacer_num <- per_page - length(current_plots)
# 拼接子图和占位符
all_elements <- c(current_plots, replicate(spacer_num, plot_spacer()))
# 生成页面
wrap_plots(all_elements, ncol=3, nrow=2) + 
  plot_annotation(title = "批量修复后的页面") &
  theme(plot.background = element_rect(fill = 'grey'))

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