如何让ggplot分面柱状图移除无数据的变量分组？

问题 #

用ggplot绘制分面柱状图时，默认会为每个分面保留所有x轴变量的水平，哪怕某个分面里该水平没有数据（比如示例中D=8的分面里，A=3的位置被空出来，看起来像取值为0，但实际这个分组根本没被研究）。要修改这个行为，让每个分面只显示实际有数据的x轴水平。

示例数据与原绘图代码 #

library(ggplot2)
library(dplyr)

data <- data.frame(A = c(1, 2, 3, 1, 2, 3, 1, 2, 1, 2), 
                   B = c(5, 34, 5, 34, 34, 56, 3, 3, 6, 35), 
                   C = c("Light","Light", "Light", "Dark", "Dark", "Dark", "Light","Light", "Dark", "Dark"), 
                   D = c(4, 4, 4, 4, 4, 4, 8, 8, 8, 8))

# 原绘图代码，会显示无数据的分组位置
Plot1 <- ggplot(data, aes(x = A, y = B, fill = C)) +
  geom_bar(stat = "identity", position = position_dodge2(preserve = "single"))  +
  theme_minimal() + theme(legend.position = "right") +
  facet_wrap(~D)

Plot1

解决方案 #

核心思路是让每个分面的x轴仅包含当前分面实际存在的变量水平，配合分面的自由x轴设置。

方法：按分面分组处理数据 #

先按分面变量（D）分组，将x轴变量（A）转为仅包含当前组存在值的因子，然后绘图时开启分面的自由x轴：

# 按D分组，将A转为仅包含当前组存在值的因子
data_processed <- data %>%
  group_by(D) %>%
  mutate(A = factor(A, levels = unique(A))) %>%
  ungroup()

# 绘图时设置scales="free_x"，让每个分面的x轴独立显示
Plot2 <- ggplot(data_processed, aes(x = A, y = B, fill = C)) +
  geom_bar(stat = "identity", position = position_dodge2(preserve = "single")) +
  theme_minimal() +
  theme(legend.position = "right") +
  facet_wrap(~D, scales = "free_x")

Plot2

效果说明 #

处理后，每个分面只会显示该分面内实际有数据的A值水平，不会为无数据的分组预留位置，避免了“看似测试过但取值为0”的误导。

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