Добавьте форму легенды geom_area в график плотности - PullRequest
Новая
       25

Добавьте форму легенды geom_area в график плотности

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

У меня есть следующий график. Я хочу добавить легенду, чтобы объяснить серую область в плотности. Какие-либо предложения?

enter image description here

Код здесь: 

dd <- density(x, y, , na.rm = TRUE)
dd <- data.frame(x=dd$x,y=dd$y )

ggplot(dd, aes(x,y)) + 
 geom_line(color="black") + xlim(range(0, 45)) +
 geom_area(data = subset(dd, x >41), color="grey", fill = "grey")  +
 scale_x_discrete(limits=seq(from=0, to=45, by =5),
  labels=c("45", "40" , "35" , 
  "30", "25","20","15" , "10" , "5" , "Election")) + theme_minimal() +
 labs(title="Local Election", y="Density", x="Distance to the election(in 
  Months)")

1 Ответ

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

Вам нужно добавить эстетику к вашему geom_area(), например: 

geom_area(data = subset(dd, x > 41), aes(fill = "x>41"))

Это позволит достичь того, что вы хотите, но цвет не будет серым, чтобы изменить цвет, вам нужноиспользовать scale_fill_manual(): 

ggplot() + .... + scale_fill_manual(values = c("x>41"="grey"))
...