r - 捕获 stat_smooth 数据或参数

Question

我正在绘图，ggplot2我想知道是否有一种方法可以捕获由它生成的点，stat_smooth或者至少知道它使用了哪些参数。

    ggplot(data=ICLR, aes(x=  AÑO_MES, y=  ICLRr, size=PatMensualFondo ))  + 
    xlab("Patrimonio Medio") + ylab("% Cobertura Media") + 
    stat_smooth( mapping = aes (group = 1)) +
    geom_point() 

超过 1000 分我得到这个：" geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method. "我知道它用过gam method，但还有什么？

如果我不能像这个线程中所说的那样捕获数据点：

可以在 ggplot stat_smooth 调用后提取模型拟合参数吗？

我怎样才能复制 stat_smooth 所做的事情？