小编Mel*_*ker的帖子

我有一个 ggplot，其中使用了 geom_smooth(method=\'gam\') 函数。我想知道是否有一种方法可以提取模型参数，例如解释的系数和偏差。

类似于 mgcv::gam() 输出的 摘要()：

> summary(gam)\n\nFamily: gaussian \nLink function: identity \n\nFormula:\nmAODscale ~ s(numDate, bs = "cr")\n\nParametric coefficients:\n            Estimate Std. Error t value Pr(>|t|)    \n(Intercept) 0.041461   0.002198   18.86   <2e-16 ***\n---\nSignif. codes:  0 \xe2\x80\x98***\xe2\x80\x99 0.001 \xe2\x80\x98**\xe2\x80\x99 0.01 \xe2\x80\x98*\xe2\x80\x99 0.05 \xe2\x80\x98.\xe2\x80\x99 0.1 \xe2\x80\x98 \xe2\x80\x99 1\n\nApproximate significance of smooth terms:\n             edf Ref.df     F p-value    \ns(numDate) 8.731  8.979 74.54  <2e-16 ***\n---\nSignif. codes:  0 \xe2\x80\x98***\xe2\x80\x99 0.001 \xe2\x80\x98**\xe2\x80\x99 0.01 \xe2\x80\x98*\xe2\x80\x99 0.05 \xe2\x80\x98.\xe2\x80\x99 0.1 \xe2\x80\x98 \xe2\x80\x99 1\n\nR-sq.(adj) =  0.379   Deviance explained = …

我有两年来的水位图。我有一列日期时间（格式 POSIXct 并显示为 2020-03-05 17:00:00）。数据框中有 18,000 行数据。第一条记录是 2020 年 3 月 5 日。当我绘制数据时，x 轴上出现的第一个日期是 Jul-20。3月20日我该怎么做？

这是我目前拥有的与这部分情节设计相关的代码。

scale_x_datetime(
      date_breaks="6 months",
      date_labels="%b-%y")

这是情节的一个例子。

注意：这也是正在进行的数据收集的一部分，因此我不想对最后日期进行硬编码。