ggplot条形图配色问题：如何仅将2005年设为红色其余为蓝色？

需求：制作条形图时，将所有年份的条形设为蓝色，仅2005年的条形设为红色，且无需逐个指定数据框中每个年份的颜色。

当前问题代码：

df <- data.frame(
  Body_part = sample(c("Head", "Arm", "Leg", "Torso"), 1000, replace = TRUE),
  Year = as.factor(sample(2003:2021, 1000, replace = TRUE))
)

ggplot(df, aes(x = fct_rev(fct_infreq(Body_part)), fill = Year)) +
  geom_bar(position = "dodge", stat = "count") +
  scale_fill_manual(values = c("blue", "2005" = "red")) +
  theme_light() +
  labs(title = "",
       x = "",
       y = "Count") +
  coord_flip()

当前效果：

解决方案 #

无需逐个指定所有年份颜色，可通过以下步骤实现：

• 获取数据中Year列的所有因子水平
• 创建颜色向量，默认设为蓝色，仅将"2005"替换为红色
• 将该向量传入scale_fill_manual的values参数

修改后的代码：

df <- data.frame(
  Body_part = sample(c("Head", "Arm", "Leg", "Torso"), 1000, replace = TRUE),
  Year = as.factor(sample(2003:2021, 1000, replace = TRUE))
)

# 获取所有年份的因子水平
year_levels <- levels(df$Year)
# 生成颜色向量：默认蓝色，2005年设为红色
fill_colors <- ifelse(year_levels == "2005", "red", "blue")
# 为颜色向量命名，确保与年份水平一一对应
names(fill_colors) <- year_levels

ggplot(df, aes(x = fct_rev(fct_infreq(Body_part)), fill = Year)) +
  geom_bar(position = "dodge", stat = "count") +
  scale_fill_manual(values = fill_colors) +
  theme_light() +
  labs(title = "",
       x = "",
       y = "Count") +
  coord_flip()

原理说明 #

原代码中scale_fill_manual(values = c("blue", "2005" = "red"))仅会给第一个年份水平设为蓝色，"2005"设为红色，其余年份会使用ggplot默认颜色。而通过动态生成对应所有年份水平的颜色向量，能确保所有非2005年份都为蓝色，且无需手动枚举每一个年份。

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