Изменить цвет для процентного бара в ggplot2

Question

Процентная полоса была создана с помощью ggplot2, fill=cyl создал цвет по умолчанию (красный / зеленый / синий) для панели. Как я могу изменить цвет? Есть идеи?

library(dplyr)
library(ggplot2)
mtcars %>% 
  count(cyl = factor(cyl)) %>% 
  mutate(pct = prop.table(n)) %>% 

  ggplot(aes(x = cyl, y = pct, fill=cyl, label = scales::percent(pct))) + 
  geom_col(position = 'dodge') + 
  geom_text(position = position_dodge(width = .9),    # move to center of bars
            vjust = -0.5,    # nudge above top of bar
            size = 3) + 
  scale_y_continuous(labels = scales::percent)

введите описание изображения здесь

Answer 1

Вы можете использовать ggplot2 s scale_fill_manual функцию:

library(dplyr)
library(ggplot2)
mtcars %>% 
  count(cyl = factor(cyl)) %>% 
  mutate(pct = prop.table(n)) %>% 

  ggplot(aes(x = cyl, y = pct, fill=cyl, label = scales::percent(pct))) + 
  geom_col(position = 'dodge') + 
  geom_text(position = position_dodge(width = .9),    # move to center of bars
            vjust = -0.5,    # nudge above top of bar
            size = 3) + 
  scale_y_continuous(labels = scales::percent) +
  scale_fill_manual(values = c("#555555", "#554325", "#122355"))

Мы можем использовать шестнадцатеричные значения для цветов или имен, то есть возможно что-то вроде

  scale_fill_manual(values = c("orange", "black", "red"))