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 が行ったことをどのように再現できますか?