ggplot2柱状图保留未使用类别异常：两类事件时显示粗柱

问题现象 #

使用ggplot2绘制5个浓度类别（1_、2_、3_、4_、5_）的EarlyEvent、LateEvent事件百分比柱状图，设置scale_x_discrete(drop=FALSE)保留所有x轴类别后，出现异常：仅当某个浓度同时存在两个事件数据时，本该并列的两个细柱变成了相邻的粗柱；而只有单个事件的浓度，柱子显示正常。

原因分析 #

核心问题出在数据完整性和position_dodge()的默认行为：

• 当某个浓度类别下仅存在一种事件类型的数据行时，ggplot2判定该x轴分组下只有1个类别，position_dodge()会将柱子宽度设为占满整个x轴位置的默认宽度（0.9）。
• 当某个浓度类别下存在两种事件类型的数据行时，position_dodge()会将两个柱子各分配约一半的宽度，形成并列细柱。
• 即便设置了scale_x_discrete(drop=FALSE)，如果数据中缺少某个浓度-事件的组合行（比如该事件百分比为0时未记录），ggplot2不会自动补全该组合，导致不同x分组下的分组数量不一致，进而出现宽度差异。

解决方法 #

先将数据转换为完整的长格式，确保每个浓度类别都对应两种事件类型的记录，缺失的组合补0。具体步骤：

1. 生成所有浓度-事件的完整组合。
2. 将原始数据与完整组合合并，缺失的百分比填充为0。

代码示例 #

原始问题代码（复现异常） #

library(ggplot2)
library(dplyr)

# 模拟不完整数据：浓度1_只有EarlyEvent，2_有两个事件，3_只有LateEvent，4_和5_无事件
raw_data <- tibble(
  c1 = c("1_", "2_", "2_", "3_"),
  event_type = c("EarlyEvent", "EarlyEvent", "LateEvent", "LateEvent"),
  percentage = c(30, 40, 50, 25)
)

# 绘制异常图
ggplot(raw_data, aes(x = c1, y = percentage, fill = event_type)) +
  geom_col(position = position_dodge()) +
  scale_x_discrete(drop = FALSE) +
  labs(title = "异常：部分柱子宽度不一致", x = "浓度", y = "百分比")

修正后代码（解决问题） #

library(ggplot2)
library(dplyr)
library(tidyr)

# 原始数据
raw_data <- tibble(
  c1 = c("1_", "2_", "2_", "3_"),
  event_type = c("EarlyEvent", "EarlyEvent", "LateEvent", "LateEvent"),
  percentage = c(30, 40, 50, 25)
)

# 生成完整的浓度-事件组合，补全缺失的百分比为0
full_data <- expand_grid(
  c1 = c("1_", "2_", "3_", "4_", "5_"),
  event_type = c("EarlyEvent", "LateEvent")
) %>%
  left_join(raw_data, by = c("c1", "event_type")) %>%
  replace_na(list(percentage = 0))

# 绘制正常图，显式设置dodge宽度确保一致
ggplot(full_data, aes(x = c1, y = percentage, fill = event_type)) +
  geom_col(position = position_dodge(width = 0.9)) +
  scale_x_discrete(drop = FALSE) +
  labs(title = "正常：所有柱子宽度一致", x = "浓度", y = "百分比")

可选优化：隐藏0值柱子 #

如果不想显示百分比为0的柱子，可基于完整数据框过滤后绘制，仍能保证柱子宽度一致：

ggplot(full_data %>% filter(percentage > 0), aes(x = c1, y = percentage, fill = event_type)) +
  geom_col(position = position_dodge(width = 0.9)) +
  scale_x_discrete(drop = FALSE) +
  labs(title = "正常：隐藏0值柱子但宽度一致", x = "浓度", y = "百分比")

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