如何用ggplot绘制npdensity对象？

Question

如何使用ggplot绘制npdensity对象，就像npudens输出中的对象一样？

Answer 1

将geom_line与predict和npdensity的内置功能一起使用。

df <- data.frame(x = rnorm(1000))
df.kde <- npudens(~x, data=df)
ggplot(df, aes(x)) 
  + stat_function(fun = function(new.x) predict(df.kde, newdata=data.frame(x=new.x)))

如果您已经评估了足够的x个点，从而使图形看起来不错，则可以使用eval$x和dens。

geom_line(aes(df.kde$eval$x, df.kde$dens))