带分面的条形图：统一条形宽度（binwidth）及面板尺寸压缩

针对你遇到的两个问题，我分两部分给出具体的解决方案，都是基于ggplot2的实用技巧：

一、统一所有条形的宽度 #

当部分分面存在缺失类别时，ggplot会默认拉伸现有条形来填充面板宽度，导致条形宽窄不一。解决这个问题的核心是给条形设置固定宽度，同时确保x轴仅显示有数据的类别（完全符合你不想显示零值条形的需求）：

具体操作： #

1. 先把你的x轴变量转换为因子类型（如果还不是的话）：df$category <- factor(df$category)，这样ggplot能识别所有可能的类别，但只会渲染有数据的那些（默认drop = TRUE，不会显示空类别）。
2. 在geom_col()（或geom_bar(stat = "identity")）中添加width参数，设置一个固定值（比如0.6，可根据视觉效果自行调整）。

示例代码：

library(ggplot2)

# 模拟你的缺失数据场景
df <- data.frame(
  facet_group = rep(c("Group A", "Group B"), c(3, 2)),
  category = c("Cat1", "Cat2", "Cat3", "Cat1", "Cat3"),
  value = c(15, 22, 18, 14, 20)
)

# 转换为因子（推荐操作）
df$category <- factor(df$category)

# 绘制统一宽度的条形图
ggplot(df, aes(x = category, y = value)) +
  geom_col(width = 0.6, fill = "#2c3e50") +  # 固定条形宽度
  facet_wrap(~facet_group) +
  labs(title = "统一宽度的分面条形图", x = "类别", y = "数值")

这样不管每个分面有多少个条形，宽度都会保持一致，缺失类别的位置会留空但不会显示零值条形。

二、压缩分面面板至实际所需大小 #

默认的分面会让所有面板大小相同，容易浪费空间。要让面板根据内容自动调整宽度，需要结合scales = "free_x"和space = "free_x"两个关键参数：

方法1：用ggplot原生的facet_wrap实现 #

在facet_wrap()中添加这两个参数，面板宽度会根据每个分面的x轴类别数量自动适配：

ggplot(df, aes(x = category, y = value)) +
  geom_col(width = 0.6, fill = "#2c3e50") +
  facet_wrap(~facet_group, scales = "free_x", space = "free_x") +  # 核心参数
  labs(title = "自适应宽度的分面条形图", x = "类别", y = "数值") +
  theme(panel.spacing = unit(1, "cm"))  # 可按需调整面板间距

方法2：用ggforce包实现更灵活的自适应 #

如果需要更精细的控制（比如分面按单列/单行排列且完全自适应），可以用ggforce包的facet_col()或facet_row()：

library(ggforce)

ggplot(df, aes(x = category, y = value)) +
  geom_col(width = 0.6, fill = "#2c3e50") +
  facet_col(vars(facet_group), scales = "free_x", space = "free_x") +
  labs(title = "ggforce实现的自适应分面", x = "类别", y = "数值")

这两种方法都能让面板只占用实际需要的空间，不会因为空类别浪费区域，同时保持条形宽度统一。

小提示： #

• 如果你的x轴是连续变量，必须先转换为因子才能实现上述效果（连续变量无法使用space = "free_x"参数）。
• 调整width参数时，建议配合面板间距一起微调，保证视觉上的协调美观。

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