r - 延长 ggplot2 中密度图的尾部

Question

我正在绘制相同的 密度图 使用 基础绘图系统和 ggplot2 .
中的密度图基础绘图系统有光滑的尾部:

d = density(iris$Sepal.Length) 
plot(d)

中的密度图ggplot2 有切碎的尾部:

library(ggplot2)
ggplot( iris, aes(x=Sepal.Length)) + geom_density()

有什么方法可以强制 ggplot2 绘制类似于基本绘图系统(具有平滑尾部)的密度图？

Answer 1

存储密度和使用 xlim从它设置范围:

library(ggplot2)

d <- density(iris$Sepal.Length)

ggplot(iris, aes(x=Sepal.Length)) + 
  geom_density() + 
  xlim(range(d$x))

剧情