將特定的 colors 分配給 geom_col() 中的列

Question

我制作了一個 geom_col()，上面有 13 個單獨的列。 我想為列分配特定顏色：例如，我在 x 軸上有“團隊”，在 y 軸上有團隊的“平均出勤率”。

在這 13 支球隊中，我希望我的特定球隊的欄被塗成紅色以便突出，其他欄（新加入聯賽的球隊）中有 4 支是綠色，而其他 9 支現有球隊是藍色。

如果我使用 - geom_col(fill = "blue")，我只能讓所有列成為一種顏色。

如何區分列以按照我上面描述的方式分組單獨的顏色？ 我花了很多天在谷歌上搜索這個，但我找不到辦法。

Answer 1

代碼中的注釋...

# need dplyr and ggplot
library(tidyverse)

# make our random numbers the same
set.seed(123)

# fake minimum reproducible example
game_df <- tibble(team = LETTERS[1:13],
                  attendance = sample(5000:10000, 13),
                  # this is hand coded but you should find a way to do this automatically using existing data
                  # or use mutate() to create a new column with a calculation
                  color_group = c('old','old','new', 'new', 'old', 'highlight','old','new','old','new','old','old','old') )

# plot
game_df %>% 
  ggplot (., aes(x = team, y = attendance,  fill = color_group)) +
  geom_col() +
  scale_color_manual( values = c('red','blue','green'))