直线密度线直方图

Question

我想在对数正态数据的直方图上绘制一个三角形，因此三角形的顶部与几何平均值重合。到目前为止我试过这个：

x <- rlnorm(100, log(20), log(2.5))
hist(x, xaxt='n', breaks=20, prob=T)
axis(side=1, at=seq(0,160, 5), labels=seq(0,160,5))
gm <- exp(mean(log(x)))
lines(density(x), col = "red", lwd = 2)

Answer 1

以下是添加三角分布的示例代码。可以根据您的问题更改三角形分布的上限和下限的定义。缩放三角形的高度，使总面积为1。

<br>