R ggplot stat_summary：如何添加kde图

Question

我喜欢使用ggplot stat_summary函数，例如geom =＆＃34; histogram＆＃34;或geom =＆＃34; kde＆＃34;。这可以在python中使用kind =＆＃34; kde＆＃34;，但我无法在r中找到一个好的解决方法。谢谢。

library(ggplot2)
data("iris")
ggplot(iris, aes(iris$Species, iris$Sepal.Length))+
stat_summary(fun.y= " mean", geom = "bar")

Answer 1

尝试ggalt package

library(ggalt)
#> Loading required package: ggplot2

m <- ggplot(faithful, aes(x = eruptions, y = waiting)) +
       geom_point() +
       xlim(0.5, 6) +
       ylim(40, 110)

m + geom_bkde2d(bandwidth=c(0.5, 4))

m + stat_bkde2d(bandwidth=c(0.5, 4), aes(fill = ..level..), geom = "polygon")

或使用ggplot2包中的默认值

m + geom_density_2d()

m + stat_density_2d(aes(fill = calc(level)), geom = "polygon")

由reprex package（v0.2.0）创建于2018-05-10。