r - R - Timeseries、autoplot()、scale_y_continuous() 和消失的 geom_abline()

Question

我正在尝试将回归线拟合到某些数据（来自 fpp2 库的 mens400）。

library(fpp2)
library(forecast)

m400 <- tslm(mens400 ~ tm400)

我想生成包含回归线的数据图。

autoplot(mens400) +
  geom_abline(slope = m400$coefficients[2], intercept = m400$coefficients[1],
              colour = "red")

不幸的是，一切都被压扁了。所以我使用 scale_y_continuous 调整比例：

autoplot(mens400) +
  scale_y_continuous(limits = c(40, 60)) +
  geom_abline(slope = m400$coefficients[2], intercept = m400$coefficients[1])

但是，我的回归线消失了。

对象的顺序似乎不会影响结果......

如何恢复我的回归线？