ggplotとstat_function（）に対数正規密度を重ねる

Question

stat_function()で関数をスーパーインポーズしようとしましたが、私は間違いを理解できません。この例では、見栄えの良いグラフを生成します。

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