r - R : fill underneath a geom_smooth line 中的 ggplot2

Question

我正在尝试填写 geom_smooth() 行下方的部分情节。

例子:



在示例中，数据适合该曲线。我的数据不是那么流畅。我想使用 geom_point() 以及 geom_smooth() 和 geom_area() 的混合来填充平滑线下方的区域，同时保留上面的点。

带有 geom_smooth() 的我的数据图片:



换句话说，我希望填充该行下方的所有内容，就像图 1 中那样。

Answer 1

将 predict 与所使用的平滑类型一起使用。 geom_smooth 对于 n < 1000 使用 loess，对于 n > 1000 使用 gam。

library(ggplot2)

ggplot(mpg, aes(displ, hwy)) +
    geom_point() +
    geom_smooth() +
    geom_ribbon(aes(ymin = 0,ymax = predict(loess(hwy ~ displ))),
                alpha = 0.3,fill = 'green')

这使: