Добавьте ручную легенду к минимальным и максимальным значениям для графика geom_bar в r - PullRequest
Новая
       33

Добавьте ручную легенду к минимальным и максимальным значениям для графика geom_bar в r

0 голосов
/ 12 мая 2018

Я строю гистограмму своих данных, где я показываю свои классифицированные данные в зависимости от их частоты.Я хотел выделить минимальные и максимальные значения, поэтому мой код выглядит так: 

library(ggplot2)

ggplot(df, aes(val, Count)) + 
   geom_bar(stat = 'identity', fill = " #ff1a1a") + 
   geom_bar(data=subset(df, Count==min(Count)), aes(val, Count), fill="#ffb366", stat="identity") +
   geom_bar(data=subset(df, Count==max(Count)), aes(val, Count), fill="#66ff66", stat="identity")

Я не могу добавить к нему легенду, показывающую, что один цвет означает максимум, а другой - мин.Я попытался добавить scale_colour_manual, но он не работал 

cols <- c("Min"="#ffb366","Max"="#66ff66")
ggplot(df, aes(val, Count)) + 
   geom_bar(stat = 'identity', fill = " #ff1a1a") + 
   geom_bar(data=subset(df, Count==min(Count)), aes(val, Count), fill="#ffb366", stat="identity") +
   geom_bar(data=subset(df, Count==max(Count)), aes(val, Count), fill="#66ff66", stat="identity") 
   scale_colour_manual(name="Bar info",values=cols)

Есть ли решение для этого?

...