Пользовательские цвета для дискретных значений в geom_bar в ggplot R

Question

Я конвертирую гистограмму с подсчетами в график пропорций. Я хочу сделать семь столбцов слева зеленым (значения х 0-6), следующие два - оранжевым (7,8), а правые столбцы (9 и 10) - красным.

Я пытался следовать методу в этом потоке , но цвета кажутся мне немного произвольными.

Я получал ошибки при применении непрерывного метода к дискретной переменной другими методами, которые я пробовал. Любые идеи?

df <- df <- data_frame( x = c(0,1,2,3,4,5,6,7,8,9,10), n = c(754, 300, 304, 390, 460, 1550, 1450, 4500, 6100, 9000, 14000))

#data
df<-df
 group_by(x) %>%
  summarise(n = n()) %>% 
  mutate(
    freq=(n/sum(n)),
    freq=round(100*freq, 2))

#set colors
colors <- c(rep("green",7), rep("orange",2), rep("red",2))

#plot
bar1<- ggplot(data=df, aes(x=x, y=freq, fill=colors))+
    geom_bar(stat="identity")+
    scale_y_continuous(labels=scales::percent) +
 geom_text(aes(label = scales::percent(freq)), vjust= -0.25, size=4)+
  ylab("Proportion")+
   xlab("X")+
    scale_x_discrete(limits=0:11)+
  ggtitle("Title")+
   theme_minimal()+
     theme(legend.position = "none")+
theme(plot.title = element_text(hjust = 0.5))

bar1

Answer 1

Вы можете использовать scale_fill_manual() и изменить начальное значение aes():

#plot
ggplot(data=df, aes(x=x, y=freq, fill=as.factor(x)))+
  geom_bar(stat="identity")+
  scale_y_continuous(labels=scales::percent) +
  geom_text(aes(label = scales::percent(freq)), vjust= -0.25, size=4)+
  ylab("Proportion")+
  xlab("X")+
  scale_x_discrete(limits=0:11)+
  scale_fill_manual(values = colors) +
  ggtitle("Title")+
  theme_minimal()+
  theme(legend.position = "none")+
  theme(plot.title = element_text(hjust = 0.5))