Superposición de una densidad log-normal en ggplot y stat_function()

Question

Intento superponer una función a través de stat_function() en ggplot pero no puedo entender mi error. este ejemplo produce una parcela buscando:

data <- data.frame(x=rt(10000, df=7)) 

ggplot(data=data, aes(x=x)) + geom_histogram(aes(y = ..density..)) + 
    stat_function(fun =dnorm, size=1, color='gray', args=list()) + 
    opts(title="Histogram of interest rate changes") + theme_bw() 

pero cuando intento de superponer una densidad logarítmica normal esto no funciona como se espera (o mejor dicho, como se esperaba esto no funciona ;):

data <- data.frame(x=rf(10000, df1=7, df2=120)) 

ggplot(data=data, aes(x=x)) + geom_histogram(aes(y = ..density..)) + 
stat_function(fun =dnorm, size=1, color='gray', args=list(log=TRUE)) + 
opts(title="Histogram of interest rate changes") + theme_bw() 

así que aquí está mi pregunta es de esperar sencilla: ¿qué estoy haciendo mal aquí? Supongo que este es un problema realmente simple. Simplemente no veo la respuesta, lo siento.

Answer 1

Uso dlnorm, la función de densidad de la distribución logarítmica normal:

ggplot(data=data, aes(x=x)) + geom_histogram(aes(y = ..density..)) + 
    stat_function(fun = dlnorm, size=1, color='gray') + 
    opts(title="Histogram of interest rate changes") + theme_bw()