如何获得ggplot2::geom_smooth曲线后面的数据？

Question

举个例子：

ggplot(iris,aes(Sepal.Width,Sepal.Length)) + geom_smooth()

如何获得用于绘制这条蓝色曲线的x和y？

这个案例将由loess自动计算，我的真实案例将由gam自动计算。

我试过：

• 用gam函数复制它
• 探索情节对象

也没有成功的机会

Answer 1

就我所理解的问题而言，试试这种方法：

 library(gam)
    library(broom)
    mod <- gam(Sepal.Length ~ Sepal.Width,  data = iris)
    ggplot(iris, aes(Sepal.Width,Sepal.Length)) + geom_point() + 
      geom_line(data = augment(mod, type.predict = "response"), 
                aes(y = .fitted), color = "blue")