r - 当我想要一个接近 0 的正态分布并且 y 是百分比时，ggplot 没有正确缩放

Question

所以这是一个可重现的例子

a <- data.frame(rnorm(1000,0,1))
colnames(a) <- c("test")

ggplot(a,aes(test)) +
    geom_histogram(aes(y=(..count..)/sum(..count..))) +  
    scale_y_continuous(labels=scales::percent) +
    stat_function(fun='dnorm')

这显示了我在 0 上 40% 的情节。当我远离 0 平均值和 1 sd 时，分布实际上变得更接近真实情况。我在现实中使用的值实际上很接近rnorm(1000,0,1)所以这是一个非常接近的例子

标签： rggplot2plot