r - 如何避免密度曲线在绘图中被切断

Question

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

示例:

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

我在互联网上进行了搜索，但没有找到解决此问题的任何内容。我尝试过使用边缘，但这不起作用。我的代码中是否缺少某些内容？

感谢您的帮助!

Answer 1

这是问题的简单字面答案。创建一个对象来保存密度调用的结果，并使用它来设置直方图的 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)