我正在使用以下代码使用最小值，均值和最大值创建概率分布函数：
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")
为什么我的密度叠加层不显示？
