如何避免密度曲线在绘图中被截断

How To Avoid Density Curve Getting Cut Off In Plot

我正在使用 R 进行作业,覆盖在直方图上的拟合密度曲线在其峰值处被截断。

示例:

x <- rexp(1000, 0.2)
hist(x, prob = TRUE)
lines(density(x), col = "blue", lty = 3, lwd = 2)

我已经在 Internet 上对此进行了搜索,但没有找到任何解决此问题的方法。我试过玩边距,但这不起作用。我的代码中是否遗漏了什么?

感谢您的帮助!

这是对问题的简单文字回答。创建一个对象来保存密度调用的结果,并使用它来设置直方图的 ylim。

x <- rexp(1000, 0.2)
tmp <- density(x)
hist(x, prob = TRUE, ylim = c(0, max(tmp$y)))
lines(tmp, col = "blue", lty = 3, lwd = 2)

(应该去 SO)