R: ggplot добавить легенду вручную

Question

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

ggplot(data.frame(x = c(-4, 4)), aes(x)) + 
stat_function(fun = dnorm, args = list(mean = 0, sd = 1), col='red') + 
stat_function(fun = dnorm, args = list(mean = 0, sd = .5), col='blue') 

Answer 1

Вы можете попробовать:

ggplot(data.frame(x = c(-4, 4)), aes(x)) + 
    stat_function(fun = dnorm, args = list(mean = 0, sd = 1), aes(colour = "mean = 0/sd =1")) + 
    stat_function(fun = dnorm, args = list(mean = 0, sd = .5),aes(colour = "mean = 0/sd =0.5"))+ 
    scale_colour_manual("Parameters",values=c("blue","red"))