R：在预测时间系列上使用geom_smooth

Question

我遇到了一个我正在预测的时间段问题。我被要求在层trend中添加一条线，该线应该给出线性演化。更清楚一点：我必须在此表中重现geom_smooth comportement。这是一个可重复性最小的例子：

require(forecast)
require(ggplot2)
require(dplyr)

nottem.stl = stl(nottem, s.window="periodic")
autoplot(nottem.stl)

dmn <- list(month.abb, unique(floor(time(nottem))))
nottem.df <- as.data.frame(t(matrix(nottem, 12, dimnames = dmn)))
nottem.df$mean <- rowMeans(nottem.df, na.rm = TRUE)
nottem.df <- tibble::rownames_to_column(nottem.df)
nottem.df$rowname <- as.numeric(nottem.df$rowname)

ggplot(data=nottem.df, aes(x=rowname, y=mean))+
  geom_line()+
  geom_smooth(method = 'lm', color="blue")

我的目标是为自动时格网格trend提供一个有点平易近人的结果作为上面的ggplot示例。我需要的原因是我的数据集的趋势不是真正线性的，很难猜测这些年份是否普遍增加或减少。

欢迎任何帮助。如果问题不清楚/不完整，请在评论中告诉我，我会对其进行编辑。 提前致谢