如何獲取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")