R语言ggplot2堆叠条形图筛选变量并重排层级使指定代码位于柱底

核心原理 #

ggplot2绘制堆叠条形图时，层级的堆叠顺序完全由填充映射的分类变量的因子水平顺序决定：排在因子水平列表最靠前的分类块，会被最先绘制，也就是落在柱形最靠近Y轴的底部；越靠后的分类，越会被叠在柱形上层。

只要把需要高亮展示的目标分类调整为因子水平的第一个值，就能强制将其对齐到柱形底部。

原有代码的常见问题 #

• 分组逻辑冗余：原代码按unique_num分组计数没有实际意义，因为每个unique_num是无重复的唯一标识，计数后得到的n恒为1，属于无效计算
• 绘图映射错误：原代码在aes()中设置group = date，会强制ggplot跳过按分类分块的逻辑，把同日期的所有数据合并为一个堆叠单元，容易出现分层错位
• 颜色映射不严谨：用空字符串作为高亮类的填充值，会出现填充效果异常、显示不符合预期的问题

可落地的调整步骤 #

1. 精简数据统计逻辑，直接按date和code分组统计每组的样本数
2. 对分类变量code做因子转换，将需要高亮的目标类（如示例中的"BB"）放在因子水平的第一位，从根源上锁定堆叠顺序
3. 自定义填充颜色映射：目标类用高饱和的高亮色展示，其余全量分类统一用低饱和的中性色，既保留整体堆叠的全景感，又突出目标类

完整可运行代码 #

library(dplyr)
library(ggplot2)

# 原始数据集
df <- data.frame(unique_num = c("A01","A02","A03","A04","A05","B01","B02","B03","C01","C02","C03","C04","C05","C06","D01","D02","D03","D04","D05"),
                 date = c(1983, 1986, 1986, 1984, 1986, 1983, 1984, 1986, 1986, 1987, 1988, 1988, 1988, 1988, 1983, 1983, 1986, 1987, 1987),
                 code = c("AA", "AA", "AA", "AA", "AA", "BB", "BB", "BB", "CC", "CC", "CC", "CC", "CC", "CC", "DD", "DD", "DD", "DD", "DD")
)

# 数据预处理
df_prep <- df %>%
  # 按日期、分类编码分组统计样本量
  group_by(date, code) %>%
  summarise(n = n(), .groups = "drop") %>%
  # 调整因子顺序：目标类BB放第一位，对应堆叠在柱形最底部
  mutate(code = factor(code, levels = c("BB", "AA", "CC", "DD")))

# 绘图
df_prep %>%
  ggplot(aes(x = date, y = n, fill = code)) +
  geom_bar(stat = "identity", color = "white", linewidth = 0.5) +
  # 自定义颜色：目标类用橙色高亮，其余类统一用浅灰色
  scale_fill_manual(
    values = c("BB" = "#ff7f0e", "AA" = "#cccccc", "CC" = "#cccccc", "DD" = "#cccccc"),
    guide = "none" # 隐藏冗余图例
  ) +
  theme_minimal()

效果说明 #

• 所有日期的柱形最底部，固定是目标类BB对应的堆叠块，完全实现对齐Y轴底部的要求
• 其余全量数据以统一的浅灰色展示，没有分散视觉焦点
• 各分类的样本数量、堆叠总高度完全保留，没有丢失整体数据的全景信息
• 后续如果需要切换高亮目标分类，只需要将对应分类名调整为因子水平列表的第一个值，同时修改对应高亮颜色即可，不需要改动核心绘图逻辑

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