ggplot多分面图对齐问题：如何统一分面条宽度？

我完全懂这种小问题带来的困扰——明明绘图区域对齐了，可分面条因为标签长度不一样歪歪扭扭的，看着特别别扭。你试过的cowplot::plot_grid和gtable_rbind都没戳中要害：前者会乱调条形尺寸，后者只是简单拼接，根本没处理分面条的宽度适配。

解决这个问题的核心思路是：直接修改每个ggplot生成的grob对象，把所有分面条的宽度统一设置为所有图中分面条的最大宽度。这样既能保留绘图区域和条形的正确尺寸，又能让分面条整齐划一。

具体步骤和代码 #

先保留你提供的示例数据与绘图函数，再添加以下处理逻辑：

首先确保加载必要的包：

library(data.table)
library(ggplot2)
library(foreach)
library(stringr)
library(cowplot)
library(grid)
library(gridExtra)

生成三个基础图表p1、p2、p3（代码与你提供的一致），接下来处理grob对象：

# 将每个ggplot转换为grob对象
g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)
g3 <- ggplotGrob(p3)

# 定位分面条在grob布局中的列位置（因为用了coord_flip，分面条在右侧，对应"strip-r"）
strip_col_index <- grep("strip-r", g1$layout$name)

# 提取三个图的分面条宽度
strip_widths <- list(
  g1$widths[g1$layout$l[strip_col_index]],
  g2$widths[g2$layout$l[strip_col_index]],
  g3$widths[g3$layout$l[strip_col_index]]
)

# 计算所有分面条中的最大宽度
max_strip_width <- do.call(unit.pmax, strip_widths)

# 给每个grob设置统一的分面条宽度
g1$widths[g1$layout$l[strip_col_index]] <- max_strip_width
g2$widths[g2$layout$l[strip_col_index]] <- max_strip_width
g3$widths[g3$layout$l[strip_col_index]] <- max_strip_width

# 最后拼接并绘制调整后的图表
ggdraw(gridExtra::gtable_rbind(g1, g2, g3))

原理说明 #

• 每个ggplot生成的grob对象里，分面条的宽度是根据自身标签长度自动计算的，我们通过grep("strip-r", ...)定位分面条的位置，提取它们的宽度。
• 用unit.pmax计算出所有分面条的最大宽度，然后强制把每个图的分面条宽度都改成这个最大值。
• 最后用gtable_rbind拼接，就能得到分面条宽度统一、条形尺寸正常的组合图表了。

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