疊加在ggplot和stat_function（）

Question

我試着通過stat_function()在ggplot疊加功能，但無法弄清楚我的錯誤對數正態密度。這個例子會產生一個好看的情節：

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() 

但是當我嘗試疊加對數正態密度預計不工作（或者我應該說預期這不起作用;）：

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() 

所以這裏是我的希望很簡單的問題：我究竟做錯了什麼？我想這是一個非常簡單的問題，我只是不明白的答案 - 對不起。

Answer 1

使用dlnorm，對數正態分佈的密度函數：

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()