Наложите нормальное распределение с плотностью, используя ggplot в R

Question

Я пытаюсь наложить нормальное распределение с плотностью с помощью ggplot в R:

ggplot(Data, aes(x=Rel, y=..density..)) + 
    geom_density(aes(fill=factor(cut)), position="stack") + 
    stat_function(fun = dnorm, args = list(mean = Rel.mean, sd = Rel.sd)) 

Но я получаю эту ошибку:

Error in eval(expr, envir, enclos) : object 'density' not found 
Calls: print ... <Anonymous> -> as.data.frame -> lapply -> FUN -> eval 

Почему? Любое решение?

Answer 1

После @aosmith совет:

ggplot(Data, aes(x=Rel)) + 
    geom_density(aes(y=..density.., fill=factor(cut)), position="stack") + 
    stat_function(fun = dnorm, args = list(mean = Rel.mean, sd = Rel.sd)) 

Works!