如何使用facet_wrap2与patchwork对齐含不同长度刻度标签的分面图？

问题复现 #

以下代码可复现你遇到的问题：当facet_wrap2设置axes="all"时，trim_blank=TRUE未生效，组合后的图形无法水平对齐；改用axes="x"则对齐正常。

library(ggplot2)
library(patchwork)
library(ggh4x)

# 构造测试数据
df1 <- data.frame(
  x = rnorm(100),
  y = rnorm(100, mean = 1000, sd = 50),
  group = rep(c("A", "B"), 50)
)

df2 <- data.frame(
  x = rnorm(100),
  y = rnorm(100, mean = 10, sd = 2),
  group = rep(c("C", "D"), 50)
)

# axes="all"时组合对齐异常
p1 <- ggplot(df1, aes(x, y)) +
  geom_point() +
  facet_wrap2(vars(group), axes = "all", trim_blank = TRUE) +
  theme(axis.text.y = element_text(size = 12))

p2 <- ggplot(df2, aes(x, y)) +
  geom_point() +
  facet_wrap2(vars(group), axes = "all", trim_blank = TRUE) +
  theme(axis.text.y = element_text(size = 12))

p1 + p2  # 图形无法水平对齐

# axes="x"时组合对齐正常
p1_x <- ggplot(df1, aes(x, y)) +
  geom_point() +
  facet_wrap2(vars(group), axes = "x", trim_blank = TRUE) +
  theme(axis.text.y = element_text(size = 12))

p2_x <- ggplot(df2, aes(x, y)) +
  geom_point() +
  facet_wrap2(vars(group), axes = "x", trim_blank = TRUE) +
  theme(axis.text.y = element_text(size = 12))

p1_x + p2_x  # 对齐正常

问题原因 #

当axes="all"时，facet_wrap2会为每个分面预留y轴的显示空间，即使通过移除重复标签减少了实际内容，trim_blank=TRUE也没能正确裁剪这些空白区域。这导致两个图的面板宽度不一致，patchwork的自动对齐机制失效。而axes="x"模式下，y轴是全局共享的，面板宽度统一，因此对齐正常。

解决方案 #

1. 用ggh4x::align_plots强制水平对齐 #

ggh4x自带的对齐函数可以精准匹配分面图的面板尺寸，解决对齐问题：

# 先对齐两个图形的面板
aligned_plots <- align_plots(p1, p2, align = "h")
# 再组合对齐后的图形
wrap_plots(aligned_plots)

2. 手动指定面板宽度 #

通过patchwork::plot_layout的widths参数强制两个图形使用相同宽度比例：

(p1 + p2) + plot_layout(widths = c(1, 1))

这种方法适合快速调整，但如果标签长度差异过大，可能需要微调比例数值。

3. 统一y轴标签的显示宽度 #

通过主题设置固定y轴文本的宽度，避免不同长度标签导致的空间差异：

uniform_y_theme <- theme(
  axis.text.y = element_text(size = 12, width = unit(1.2, "cm")),
  plot.margin = margin(5.5, 5.5, 5.5, 5.5, "pt")
)

p1_uniform <- p1 + uniform_y_theme
p2_uniform <- p2 + uniform_y_theme

p1_uniform + p2_uniform

4. 改用facet_grid（分面结构适配时） #

如果你的分面布局适合用列/行网格，facet_grid默认会自动处理重复轴标签，且对齐稳定性更好：

p1_grid <- ggplot(df1, aes(x, y)) +
  geom_point() +
  facet_grid(cols = vars(group)) +
  theme(axis.text.y = element_text(size = 12))

p2_grid <- ggplot(df2, aes(x, y)) +
  geom_point() +
  facet_grid(cols = vars(group)) +
  theme(axis.text.y = element_text(size = 12))

p1_grid + p2_grid

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