0

I have the below code and the legend is all wrong. The black line shows up purple and in the legend the color labels are wrong. for red it says black, etc.

ggplot(newdata,aes(x=immigrants.per.day,y=cc.percent),show.legend = TRUE) +
+       stat_summary(aes(y = cc.percent, color = "red"),fun = mean, geom = "line", label = c('CC'), show.legend = TRUE) + 
+       stat_summary(aes(y = cd.percent, color = "blue"),fun = mean, geom = "line", show.legend = TRUE) + 
+       stat_summary(aes(y = dc.percent, color = "green"),fun = mean, geom = "line", show.legend = TRUE) +
+       stat_summary(aes(y = dd.percent, color = "black"),fun = mean, geom = "line", show.legend = TRUE)

enter image description here

i did follow links below but not able to solve my problem.

How can I add the legend for a line made with stat_summary in ggplot2?

Allan Cameron
  • 147,086
  • 7
  • 49
  • 87
shwts
  • 11
  • 4

1 Answers1

2

You could do

ggplot(newdata,aes(x=immigrants.per.day,y=cc.percent),show.legend = TRUE) +
       stat_summary(aes(y = cc.percent, color = "a1"),fun = mean, geom = "line", label = c('CC'), show.legend = TRUE) + 
       stat_summary(aes(y = cd.percent, color = "a2"),fun = mean, geom = "line", show.legend = TRUE) + 
       stat_summary(aes(y = dc.percent, color = "a3"),fun = mean, geom = "line", show.legend = TRUE) +
       stat_summary(aes(y = dd.percent, color = "a4"),fun = mean, geom = "line", show.legend = TRUE)+
scale_colour_manual("", 
                      breaks = c("a1", "a2", "a3","a4"),
                      values = c("red", "blue", "green","black"))
P.Chakytei
  • 412
  • 2
  • 12