ggplot堆叠条形图双柱颜色混淆问题求解

嘿，我懂你这种头疼的感觉——给两个堆叠条形分别配独立渐变时，颜色总是乱套，明明每个数据点都指定了hex色，结果不同柱子里的同名字类别颜色撞了，逻辑上好像没问题但就是不对。其实核心问题是ggplot默认的颜色映射是基于子类别名称的，没有把「组别」这个维度加进去，所以才会混淆。这里有两个简洁优雅的方案，包你解决：

先模拟你的数据集 #

首先我先造一个和你描述类似的数据集，方便演示：

library(ggplot2)

# 模拟数据：两个组别，每个组别下多个子类别，带数值和对应hex颜色
df <- data.frame(
  Category = rep(c("Group1", "Group2"), each = 5),
  Subcategory = rep(paste0("Sub", 1:5), 2),
  Value = c(156182263, 51298256, 673688260, 232926061, 104869535, 
            398192679, 0, 0, 12345678, 98765432),
  HexColor = c("#FF5733", "#33FF57", "#3357FF", "#FF33A6", "#33FFF1",
               "#C70039", "#900C3F", "#581845", "#FFC300", "#FF5733")
)

方案一：分图层绘制（直观易懂，适合双柱场景） #

直接把两个组别的堆叠条形分开画，然后手动指定每个「组别+子类别」组合的颜色：

ggplot() +
  # 绘制第一组的堆叠条形
  geom_col(data = df[df$Category == "Group1", ], 
           aes(x = Category, y = Value, fill = paste(Category, Subcategory)),
           position = "stack") +
  # 绘制第二组的堆叠条形
  geom_col(data = df[df$Category == "Group2", ], 
           aes(x = Category, y = Value, fill = paste(Category, Subcategory)),
           position = "stack") +
  # 绑定每个唯一组合到对应的hex颜色
  scale_fill_manual(values = setNames(df$HexColor, paste(df$Category, df$Subcategory))) +
  # 美化标签
  labs(title = "双柱独立渐变堆叠条形图", x = "组别", y = "数值", fill = "子类别") +
  theme_minimal()

方案二：用interaction统一唯一标识（更简洁，支持多组） #

如果以后要扩展到更多组别，用interaction()把组别和子类别合并成唯一键，一次性映射颜色：

ggplot(df, aes(x = Category, y = Value, fill = interaction(Category, Subcategory))) +
  geom_col(position = "stack") +
  # 把每个唯一组合对应到指定的hex颜色
  scale_fill_manual(values = setNames(df$HexColor, interaction(df$Category, df$Subcategory))) +
  labs(title = "双柱独立渐变堆叠条形图", x = "组别", y = "数值", fill = "子类别") +
  theme_minimal()

为什么之前会混淆？ #

默认情况下，如果你只用fill = Subcategory映射颜色，ggplot会认为不同组别里的同名子类别是同一个元素，所以会分配相同的颜色。而我们通过paste()或interaction()生成「组别+子类别」的唯一标识，就能让每个堆叠块的颜色映射完全独立，完美匹配你指定的hex色值。

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