2016-03-29 2 views
4

Имейте проблему, чтобы добавить легенду к разным плавным в ggplot.Как добавить легенду к geom_smooth в ggplot в R

library(splines) 
    library(ggplot2) 
    temp <- data.frame(x = rnorm(200, 20, 15), y = rnorm(200, 30, 8)) 

    ggplot(data = temp, aes(x, y)) + geom_point() + 
     geom_smooth(method = 'lm', formula = y ~ bs(x, df=5, intercept = T), col='blue') + 
     geom_smooth(method = 'lm', formula = y ~ ns(x, df=2, intercept = T), col='red') 

У меня есть два сплайна: красный и синий. Как я могу добавить для них легенду?

ответ

8

Положите цвет в aes() и добавить scale_colour_manual():

ggplot(data = temp, aes(x, y)) + geom_point() + 
    geom_smooth(method = 'lm', formula = y ~ bs(x, df=5, intercept = T), aes(colour="A")) + 
    geom_smooth(method = 'lm', formula = y ~ ns(x, df=2, intercept = T), aes(colour="B")) + 
    scale_colour_manual(name="legend", values=c("blue", "red")) 

enter image description here

+0

Спасибо! Очень красивое решение! –

+0

И, конечно, вы можете использовать свойство меток в scale_colour_manual, чтобы изменить метку A и B. – Sid