ggplot堆叠条形图：多图x轴类别数不同时保持恒定柱宽

我太懂这个困扰了——堆叠条形图要统一柱宽确实比普通分组条形图棘手，毕竟堆叠的布局逻辑和分组完全不一样，靠dodge和width直接凑根本行不通。不过有几个实用的解法，我给你一步步说清楚：

方法1：填充空类别，统一所有图表的X轴范围 #

这是最直观也最可靠的方法：先收集所有区域里出现过的X轴类别，然后给每个区域的数据集补上那些不存在的类别，对应的值设为0。这样每个图表的X轴长度完全一致，只要固定geom_col()的width参数，柱宽自然就统一了。

举个R语言ggplot2的例子：

library(tidyverse)

# 模拟你的原始数据
raw_data <- tibble(
  region = rep(c("North", "South"), c(4, 2)),
  category = c("Retail", "Food", "Tech", "Service", "Retail", "Food"),
  value = c(20, 15, 18, 12, 25, 22)
)

# 提取所有可能的X轴类别
all_categories <- unique(raw_data$category)

# 给每个区域补全所有类别，缺失值填充为0
unified_data <- raw_data %>%
  complete(region, category = all_categories, fill = list(value = 0))

# 分区域生成堆叠条形图，柱宽完全一致
unified_data %>%
  group_by(region) %>%
  group_walk(function(sub_data, region_info) {
    plot <- ggplot(sub_data, aes(x = category, y = value, fill = category)) +
      geom_col(width = 0.7) +  # 固定柱宽参数
      ggtitle(paste("Regional Data:", region_info$region)) +
      theme(axis.text.x = element_text(angle = 45, hjust = 1))
    print(plot)
  })

如果不想显示空类别的刻度，只需要在scale_x_discrete()里加上breaks = unique(sub_data$category)，就能只展示当前区域存在的类别。

方法2：手动调整X轴扩展比例，适配不同类别数 #

如果你不想填充空值，可以通过调整X轴的扩展空间，让不同类别数的图表X轴总视觉长度和类别数成正比，再固定柱宽参数。核心思路是：类别越少的图表，X轴两端留的空白越多，保证每个柱的实际视觉宽度一致。

示例代码：

# 先找到所有区域中最多的类别数
max_category_count <- raw_data %>%
  count(region) %>%
  pull(n) %>%
  max()

# 分区域绘图时动态调整X轴扩展
raw_data %>%
  group_by(region) %>%
  group_walk(function(sub_data, region_info) {
    current_cat_count <- length(unique(sub_data$category))
    # 计算扩展比例：让X轴总长度和最大类别数匹配
    expand_ratio <- max_category_count / current_cat_count
    
    plot <- ggplot(sub_data, aes(x = category, y = value, fill = category)) +
      geom_col(width = 0.7) +
      scale_x_discrete(expand = expansion(add = c(0.5, 0.5) * expand_ratio)) +
      ggtitle(paste("Regional Data:", region_info$region))
    print(plot)
  })

方法3：用布局工具强制统一图表宽度 #

如果是用patchwork或gridExtra这类工具组合图表，可以直接设置所有图表的宽度一致，再配合方法1的X轴统一逻辑，视觉一致性拉满。比如用patchwork：

library(patchwork)

# 生成两个区域的图表，统一X轴范围
plot_north <- ggplot(filter(unified_data, region == "North"), aes(x = category, y = value, fill = category)) +
  geom_col(width = 0.7) +
  scale_x_discrete(breaks = unique(filter(raw_data, region == "North")$category)) +
  ggtitle("North Region")

plot_south <- ggplot(filter(unified_data, region == "South"), aes(x = category, y = value, fill = category)) +
  geom_col(width = 0.7) +
  scale_x_discrete(breaks = unique(filter(raw_data, region == "South")$category)) +
  ggtitle("South Region")

# 强制两个图表宽度一致
plot_north + plot_south + plot_layout(widths = c(1, 1))

总结 #

最推荐方法1，逻辑清晰且后续维护方便，能从根源上保证所有图表的视觉对齐；如果实在不想修改数据集，方法2是不错的折中方案。

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