如何为geom_col()中的分组柱形分配特定填充颜色？

要实现不同球队柱形的差异化着色，核心思路是先给你的数据添加一个分组标记列，再将这个列映射到fill参数，最后自定义对应颜色即可，具体步骤如下：

1. 给数据添加分组列
   首先在你的数据框中新增一列，用来标记每支球队所属的类别（突出球队/新球队/现有球队）。假设你的数据框名为df，包含Teams（球队名）和AVG Attendance（平均上座率）两列：

用dplyr实现（推荐，代码更清晰） #

library(dplyr)
library(ggplot2)

# 替换成你实际的球队名称
highlight_team <- "你要突出的特定球队名"
new_teams <- c("新球队1", "新球队2", "新球队3", "新球队4")

df <- df %>%
  mutate(team_category = case_when(
    Teams == highlight_team ~ "Highlight",
    Teams %in% new_teams ~ "New Teams",
    TRUE ~ "Existing Teams"
  ))

用Base R实现（无需额外包） #

highlight_team <- "你要突出的特定球队名"
new_teams <- c("新球队1", "新球队2", "新球队3", "新球队4")

df$team_category <- ifelse(df$Teams == highlight_team, "Highlight",
                           ifelse(df$Teams %in% new_teams, "New Teams", "Existing Teams"))

2. 绘制带分组颜色的柱形图
   将fill参数放入aes()中，映射到刚才新增的team_category列，再用scale_fill_manual()指定你需要的颜色：

ggplot(df, aes(x = Teams, y = `AVG Attendance`, fill = team_category)) +
  geom_col() +
  # 自定义颜色映射
  scale_fill_manual(values = c(
    "Highlight" = "red",
    "New Teams" = "green",
    "Existing Teams" = "blue"
  )) +
  # 可选：修改图例标题，或用guides(fill = "none")隐藏图例
  labs(fill = "球队类别") +
  # 可选：旋转x轴标签避免重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

关键说明 #

• 不要直接在geom_col()里写fill = "blue"，这种固定值会让所有柱形同色；必须把fill映射到数据中的分组变量，ggplot才会根据分组分配不同颜色。
• 如果不需要显示图例，在代码末尾加上guides(fill = "none")即可。

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