geom_bar绘制含缺失数据的分组条形图时保持位置一致的方法

你的问题核心是：当部分carb类别缺少某些gear分组数据时，position_dodge(preserve = "single")会自动收缩该类别下的条形宽度，导致分组条形和底层总条形的位置无法对齐。下面是两种可靠的解决方法：

方法一：补全缺失的分组组合（推荐） #

通过补全所有carb和gear的可能组合（哪怕对应计数为0），让每个carb类别下都包含完整的gear分组，这样position_dodge就能保持统一的条形宽度和位置。

library(ggplot2)
library(tidyr)

data(mtcars)
mtcars$gear <- as.factor(mtcars$gear)
mtcars$carb <- as.factor(mtcars$carb)

# 补全所有carb与gear的组合，缺失项计数设为0
mtcars_full <- mtcars %>%
  complete(carb, gear, fill = list(count = 0)) %>%
  group_by(carb, gear) %>%
  summarise(count = n(), .groups = "drop")

# 绘制图形
ggplot() +
  # 底层总条形（灰色背景）
  geom_bar(data = mtcars, aes(x = carb), alpha = 0.2) +
  # 分组条形（基于补全后的数据）
  geom_bar(data = mtcars_full, aes(x = carb, y = count, fill = gear),
           stat = "identity", position = position_dodge(preserve = "single"))

方法二：统一x轴分组位置 #

如果不想补全数据，可以手动将x轴映射为carb和gear的交互项，再调整刻度标签：

library(ggplot2)

data(mtcars)
mtcars$gear <- as.factor(mtcars$gear)
mtcars$carb <- as.factor(mtcars$carb)

# 创建交互项作为x轴
ggplot() +
  geom_bar(data = mtcars, aes(x = carb), alpha = 0.2) +
  geom_bar(data = mtcars, aes(x = interaction(carb, gear), fill = gear),
           position = "identity", width = 0.8) +
  # 调整x轴刻度，只显示carb的标签
  scale_x_discrete(labels = rep(levels(mtcars$carb), each = length(levels(mtcars$gear))),
                   breaks = seq_along(interaction(levels(mtcars$carb), levels(mtcars$gear)))) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

第一种方法更直观，能确保所有分组位置完全对齐，且图形逻辑清晰。

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