使用patchwork合并三幅图，如何保持所有图宽高一致？

问题原因 #

你使用的design字符串两行列数不匹配（第一行#AA#是5个字符，第二行BBCC是4个字符），导致patchwork的列宽计算逻辑出现偏差；同时顶部图的列占比与底部两图的列占比未对齐，无法保证三个图的宽高完全一致。

解决方案 #

方法1：修正design网格布局 #

定义列数一致的网格，让三个图分别占据相同大小的单元，同时通过widths和heights参数强制所有单元宽高相等：

library(tidyverse)
library(patchwork)

data("iris")

plot1 <- iris %>% 
  ggplot(aes(x = Species, y = Sepal.Length)) +
  geom_point()

# 3列2行的网格：顶部图居中，底部两图分列左右
design <- "
  #A#
  B C
"

plot_comb <- plot1 + plot1 + plot1 + 
  plot_annotation(tag_levels = "A") + 
  plot_layout(design = design, widths = c(1,1,1), heights = c(1,1)) & 
  theme(plot.tag = element_text(face = "bold"))

plot_comb

方法2：用占位符+分行布局 #

通过plot_spacer()添加空白占位，结合/分隔上下行，确保每个图的单元格尺寸一致：

library(tidyverse)
library(patchwork)

data("iris")

plot1 <- iris %>% 
  ggplot(aes(x = Species, y = Sepal.Length)) +
  geom_point()

# 顶部：左右占位+中间图；底部：左图+中间占位+右图
plot_comb <- (plot_spacer() + plot1 + plot_spacer()) / (plot1 + plot_spacer() + plot1) +
  plot_layout(widths = c(1,1,1), heights = c(1,1)) +
  plot_annotation(tag_levels = "A") & 
  theme(plot.tag = element_text(face = "bold"))

plot_comb

关键说明 #

两种方法的核心都是让三个图占据宽高完全相同的网格单元：

• 统一网格的列数和行数，避免行列数不匹配导致的布局偏差
• 通过widths = c(1,1,1)和heights = c(1,1)强制所有单元的宽高比例一致，确保三个图的实际尺寸完全相同

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