Продлите хвосты на графике плотности в 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))

График