ggplot2为分组条形图映射自定义颜色时出现堆叠问题

我需要用ggplot2生成一个水平分组条形图，要求：

• 数据按Name分组，每个Name对应数据框中指定的Color填充色
• 每个Name下的两个School类别，用不同的Alpha（透明度）区分

已准备好数据框test：

library(tidyverse)

test <- structure(list(Name = c("Jean", "Jean", "Mike", "Mike", "Ruth", 
                                "Ruth", "Elia", "Elia", "Jess", "Jess"), 
                       School = c("A", "B", "A", "B", "A", "B", "A", "B", "A", "B"), 
                       Value = c(11L, 8L, 15L, 16L, 27L, 22L, 0L, 4L, 0L, 3L), 
                       Color = c("#E55C30FF", "#E55C30FF","#FBB91FFF", "#FBB91FFF", "#FCFFA4FF", "#FCFFA4FF", "#C7E8AC", "#C7E8AC", "#228B22", "#228B22"),
                       Alpha = c(0.9, 0.4, 0.9, 0.4,0.9, 0.4, 0.9, 0.4, 0.9, 0.4)), 
                  row.names = c(NA, -10L), class = "data.frame")

当前代码实现了分组、水平显示、透明度和灰色轮廓，但无法正确映射每个Name的指定颜色：

ggplot(test, 
       aes(y = Name, x = Value, fill = School, alpha = Alpha)) +
  geom_bar(stat = "identity", position = "dodge", color = "grey50") +
  scale_alpha_identity() 

尝试直接在geom_bar中添加fill = test$Color或fill = as.factor(test$Color)时，条形图会变成堆叠而非保持分组，希望得到解决方法。

核心问题是混淆了ggplot2的映射（mapping）和直接赋值逻辑。要实现需求，需要将fill映射到Name，再用scale_fill_manual指定每个Name对应的颜色，同时保留alpha的映射逻辑：

ggplot(test, 
       aes(y = Name, x = Value, fill = Name, alpha = Alpha)) +
  geom_bar(stat = "identity", position = position_dodge(width = 0.9), color = "grey50") +
  # 手动绑定每个Name对应的颜色
  scale_fill_manual(values = unique(test$Color)) +
  scale_alpha_identity() +
  # 可选：调整图例，让透明度对应School类别
  guides(fill = guide_legend(title = "Name"), alpha = guide_legend(title = "School"))

关键细节说明： #

• fill映射到Name：每个Name对应唯一颜色，因此把fill绑定到Name变量，而非School。
• scale_fill_manual指定颜色：用unique(test$Color)提取每个Name对应的专属颜色，确保颜色匹配无误。
• position_dodge的width参数：显式设置宽度（默认0.9），保证分组条形正确并排，避免出现堆叠问题。
• 图例自定义：默认透明度图例无明确指向，通过guides可以将透明度图例标题改为School，让逻辑更清晰。

如果不需要显示透明度图例，可以添加guides(alpha = "none")隐藏：

ggplot(test, 
       aes(y = Name, x = Value, fill = Name, alpha = Alpha)) +
  geom_bar(stat = "identity", position = position_dodge(width = 0.9), color = "grey50") +
  scale_fill_manual(values = unique(test$Color)) +
  scale_alpha_identity() +
  guides(alpha = "none")

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