延长 ggplot2 中密度图的尾部

Prolong the tails on the density plot in ggplot2

我正在使用基本绘图系统ggplot2绘制相同的密度图基础绘图系统中的密度图尾部平滑:

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

ggplot2 中的密度图有切尾:

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

有没有办法强制 ggplot2 绘制类似于基本绘图系统的密度图(尾部平滑)?

存储密度并使用xlim设置范围:

library(ggplot2)

d <- density(iris$Sepal.Length)

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

情节