R 中的 ggplot2：在 geom_smooth 线下方填充

Question

我正在尝试填充geom_smooth()线条下方的部分情节。

例子：

在示例中，数据适合该曲线。我的数据不是那么流畅。我想用geom_point()和的混合geom_smooth()，并geom_area()在该地区填补了平滑的线下同时使上述几点。

我的数据图片，带有geom_smooth()：

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

Answer 1

使用predict与正在使用的平滑类型。geom_smooth用途loess对于n <1000和gam对于n> 1000。

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')

这使：