R - Таймсерии, autoplot(), scale_y_continuous() и исчезающая geom_abline()

Question

Я пытаюсь подогнать линию регрессии к некоторым данным (mens400 из библиотеки fpp2).

      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])

Но моя линия регрессии исчезает.

Похоже, что порядок объектов не влияет на результат ...

Как мне вернуть мою регрессионную линию?