R中的ggplot2：在geom_smooth行下面填充

Question

我正在尝试填写geom_smooth()行下方的一部分地块。

示例：

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

我的数据图片geom_smooth()：

换句话说，我想要填写该行下的所有内容，如图1所示。

Answer 1

将predict与正在使用的平滑类型一起使用。 geom_smooth使用loess代表n＆lt; 1000和gam用于n＆gt; 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')

给出了：