如何修正patchwork布局中ggplot图表的尺寸与位置偏差？

你遇到的布局问题可以通过以下几种方式解决：

方法1：统一单元格宽度，修正居中问题 #

原代码中design = "AABB\n#CC#"的布局里，默认单元格宽度可能因图表内容自动调整，导致A/B尺寸不均、C不居中。可以通过plot_layout强制设置所有单元格等宽：

library(ggplot2)
library(patchwork)

x <- seq(0.01, .99, length.out = 100)
df <- data.frame(
  x = rep(x, 2),
  y = c(qlogis(x), 2 * qlogis(x)),
  group = rep(c("a","b"), each = 100)
)
# 为图表添加内容便于观察效果
p1 <- ggplot(df, aes(x=x, y=y, group=group)) + geom_line(aes(color=group)) + ggtitle("Plot A")
p2 <- ggplot(df, aes(x=x, y=y, group=group)) + geom_point(aes(color=group)) + ggtitle("Plot B")
p4 <- ggplot(df, aes(x=x, y=y, group=group)) + geom_area(aes(fill=group), alpha=0.3) + ggtitle("Plot C")

# 强制第一行4个单元格等宽，确保A/B尺寸一致、C居中
wrap_plots(A = p1, B = p2, C = p4, design = "AABB\n#CC#") +
  plot_layout(widths = rep(1, 4))

方法2：简化布局设计，直接指定行列结构 #

如果不需要空白占位，可直接用更简洁的布局语法，让第一行A/B各占一半宽度，第二行C占整行：

wrap_plots(A = p1, B = p2, C = p4, design = "AB\nC") +
  plot_layout(widths = c(1, 1)) # 确保A/B宽度相等

方法3：自定义行列比例 #

若需要调整整体的高度/宽度比例，可通过heights和widths参数灵活设置：

wrap_plots(A = p1, B = p2, C = p4) +
  plot_layout(
    ncol = 2, 
    widths = c(1, 1), # A/B宽度1:1
    heights = c(2, 1) # 第一行高度是第二行的2倍
  )

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