Siêu mật độ log-bình thường trong ggplot và stat_function()

Question

Tôi cố gắng chồng lên một hàm qua stat_function() trong ggplot nhưng không thể tìm ra lỗi của mình. Ví dụ này tạo ra một âm mưu cái nhìn tốt đẹp:

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

nhưng khi tôi cố gắng để chồng lên một mật độ đăng nhập bình thường này không hoạt động như mong đợi (hay tôi nên nói như mong đợi này không hoạt động ;):

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

vì vậy đây là câu hỏi hy vọng đơn giản của tôi: những gì tôi làm sai ở đây? Tôi đoán đây là một vấn đề thực sự đơn giản, tôi không thấy câu trả lời - xin lỗi.

Answer 1

Sử dụng dlnorm, hàm mật độ phân bố log-bình thường:

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