ggplot多条件填充颜色问题：测试组统一灰色其余分组异色

需求说明 #

将TEST1、TEST2、TEST3组的柱状图填充为灰色，A、B、C、D、E组的柱状图使用不同颜色，同时保持柱状图按MEAN_RIN值排序的顺序不变。

用户原始数据与尝试代码 #

数据定义 #

pr <- data.frame(
  Code = c("TEST1", "TEST2", "TEST3", "A", "B", "C", "D", "E"),
  MEAN_RIN = c(2, 3, 1.5, 2.3, 1.2, 0.6, 2, 1.4)
)
testers <- c("TEST1", "TEST2", "TEST3")

第一次尝试（颜色映射错误） #

# 第一种尝试代码
ggplot(aes(x=reorder(Code, MEAN_RIN), y=MEAN_RIN), data=pr)+
  geom_bar(stat="identity", aes(fill= Code))+
  scale_fill_manual(values= ifelse(pr$Code %in% testers, "gray15", hue_pal()(10)))

问题：ifelse生成的颜色顺序基于原始数据的Code顺序，而非reorder排序后的x轴顺序，导致颜色映射错位。

第二次尝试（排序混乱） #

# 子集化尝试代码
ggplot(aes(x=reorder(Code, MEAN_RIN), y=MEAN_RIN), data=pr)+
  geom_bar(stat="identity", fill="gray15", data= subset(pr, Code %in% testers))+
  geom_bar(stat="identity", aes(fill= Code), data= subset(pr, !Code %in% testers))+
  scale_fill_manual(values= ifelse(pr$Code %in% testers, "gray15", hue_pal()(10)))

问题：拆分数据后，两个子集的x轴元素未统一遵循排序规则，导致柱状图顺序混乱。

解决方案 #

方法一：预定义排序与颜色映射 #

先获取排序后的Code顺序，再为每个Code绑定对应颜色，确保颜色映射与x轴顺序完全匹配：

library(ggplot2)

# 获取按MEAN_RIN排序后的Code层级顺序
sorted_codes <- levels(reorder(pr$Code, pr$MEAN_RIN))

# 生成颜色向量：测试组用灰色，非测试组用5种不同颜色（对应A-E）
color_values <- ifelse(
  sorted_codes %in% testers,
  "gray15",
  hue_pal()(length(sorted_codes) - length(testers))
)

# 绘图
ggplot(pr, aes(x = reorder(Code, MEAN_RIN), y = MEAN_RIN)) +
  geom_bar(stat = "identity", aes(fill = Code)) +
  scale_fill_manual(values = setNames(color_values, sorted_codes)) +
  xlab("Code")

方法二：添加分组列简化映射 #

在数据框中新增分组标识，更清晰地控制颜色逻辑：

# 添加分组列
pr$group_type <- ifelse(pr$Code %in% testers, "测试组", "个体")

# 为每个个体分配唯一颜色，测试组统一灰色
individual_codes <- subset(pr, group_type == "个体")$Code
color_map <- c(
  "测试组" = "gray15",
  setNames(hue_pal()(length(individual_codes)), individual_codes)
)

# 绘图
ggplot(pr, aes(x = reorder(Code, MEAN_RIN), y = MEAN_RIN)) +
  geom_bar(stat = "identity", aes(fill = Code)) +
  scale_fill_manual(values = color_map) +
  labs(x = "Code", fill = "分组")

关键说明 #

• 核心是让颜色向量的顺序与reorder生成的x轴层级顺序完全一致，避免映射错位
• 无需拆分数据子集，直接通过颜色映射即可实现需求，同时保证排序不受影响

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