#22 faction color data

[lwarode]

• added file "faction_colors.csv" to data folder (serves as input for function)
• added function get_faction_color that takes either faction_id or abbreviation (of faction) as input and returns a named character vector with hex color code (and either faction_id or abbreviation as name)
• another idea was to add a function that creates a vector which serves as input for ggplot2's scale_fill_manual/scale_color_manual, but it is not necessary since get_faction_color can either generate new columns that are named characters and are thus easily accessible

2 sample workflows:

• generate a new color column with dplyr::mutate

speeches_20 <- speeches %>% 
  filter(electoral_term == 20) %>% 
  left_join(factions, by = c("faction_id" = "id")) %>% 
  mutate(color = get_faction_color(abbreviation, "faction_name")) 

speeches_20 %>% 
  ggplot(aes(abbreviation, fill = abbreviation)) +
  geom_bar() + 
  scale_fill_manual(values = speeches_20$color)

• generate color directly inscale_fill_manual call:

speeches_20 <- speeches %>% 
  filter(electoral_term == 20) %>% 
  left_join(factions, by = c("faction_id" = "id")) %>% 
  mutate(color = get_faction_color(abbreviation, "faction_name")) 

speeches_20 %>%
  ggplot(aes(abbreviation, fill = abbreviation)) +
  geom_bar() +
  scale_fill_manual(
    values = speeches_20 %>%
      distinct(abbreviation) %>%
      pull(abbreviation) %>%
      get_faction_color("faction_name")
  )