如何用facet_wrap实现柱状图等宽？现有方案未达预期

facet_wrap默认会让每个分面的整体宽度一致，导致分面内类别数量少的柱子更宽、反之更窄。以下两种方法可实现所有分面的柱状图宽度统一：

方法一：通过gtable调整分面宽度 #

直接修改ggplot生成的gtable布局，按分面内类别数量比例调整面板宽度：

步骤与代码 #

1. 加载依赖包并准备数据（以模拟数据为例）

library(ggplot2)
library(gtable)
library(grid)
library(dplyr)

# 模拟不同分面类别数量不同的数据
set.seed(123)
df <- data.frame(
  group = rep(c("A", "B", "C", "D"), c(3, 5, 2, 4)),
  category = c(paste0("cat", 1:3), paste0("cat", 1:5), paste0("cat", 1:2), paste0("cat", 1:4)),
  value = rnorm(14, 10, 2)
)

2. 绘制基础分面图

p <- ggplot(df, aes(x = category, y = value)) +
  geom_col(width = 0.8) +
  facet_wrap(~group, scales = "free_x") +
  theme_bw()

3. 提取gtable并调整面板宽度

# 转换为gtable对象
gt <- ggplotGrob(p)

# 获取所有面板的布局索引
panel_idx <- grep("panel", gt$layout$name)

# 计算每个分面的类别数量
cat_counts <- df %>% 
  group_by(group) %>% 
  summarise(n = n_distinct(category)) %>% 
  arrange(group) %>% 
  pull(n)

# 计算宽度比例：面板宽度与类别数量成正比，保证柱子宽度一致
width_proportion <- cat_counts / max(cat_counts)

# 逐个调整面板宽度
for (i in seq_along(panel_idx)) {
  gt$widths[gt$layout$l[panel_idx[i]]] <- unit(width_proportion[i], "null")
}

# 绘制调整后的图表
grid.draw(gt)

方法二：用patchwork拼接独立图表 #

将每个分面单独绘制成子图，再按类别数量比例拼接，更易控制细节：

步骤与代码 #

1. 加载patchwork并拆分数据

library(patchwork)

# 按group拆分数据为列表
df_groups <- split(df, df$group)

2. 批量绘制子图

# 为每个group生成独立图表，统一样式
sub_plots <- lapply(names(df_groups), function(g) {
  p <- ggplot(df_groups[[g]], aes(x = category, y = value)) +
    geom_col(width = 0.8) +
    ggtitle(g) +
    theme_bw()
  
  # 统一x轴样式：仅保留最后一个分面的x轴标签
  if (g != tail(names(df_groups), 1)) {
    p <- p + theme(axis.text.x = element_blank(), axis.title.x = element_blank())
  }
  p
})

3. 按比例拼接子图

# 按类别数量占比设置子图宽度
plot_widths <- cat_counts / sum(cat_counts)

# 拼接并输出
wrap_plots(sub_plots, widths = plot_widths)

注意事项 #

• 若按已有SO方案调整后仍无效，需检查：
  • 数据中每个分面的类别数量统计是否正确
  • gtable的面板索引是否匹配（可通过gt$layout查看布局结构）
  • 柱子宽度参数width在所有子图中保持一致

内容的提问来源于stack exchange，提问作者mr.raccoon