ggplot帮助:为什么我的密度叠加层不出现?

我正在使用以下代码使用最小值,均值和最大值创建概率分布函数:

a <- ggplot(Break_Even, aes(x =((rpert(4000, min=9677, mode=12776, max=16247, shape=4))))) 

a + geom_histogram(binwidth=200, color="black", fill="cadetblue") +
    geom_vline(aes(xintercept=mean(((rpert(4000, min=9677, mode=12776, max=16427, shape=4))))), color="coral", linetype="dashed", size=1) +
    geom_density() + 
    labs(y= "Frequency", x = "Break Even Quantity", title = "Break Even Probability Frequency Distribution") 

为什么我的密度叠加层不显示?

评论