Ошибка в функции Автоплота для временных рядов

Question

Функция автоплота выдает следующую ошибку при построении примера временного ряда из Forecasting: Принципы и практика - Hyndman и Athanasopoulos:

library(forecast)
library(fpp2)
data(ausbeer)
beer2 <- window(ausbeer, start=1992)
fit.beer <- tslm(beer2 ~ trend + season)
summary(fit.beer)
autoplot(beer2, series="Data") +
  autolayer(fitted(fit.beer), series="Fitted") +
  xlab("Year") + ylab("Megalitres") +
  ggtitle("Quarterly Beer Production")

# the error is:
# Error: Invalid input: date_trans works with objects of class Date only

Похоже, что это от линии автослоя.

Я не могу понять, как отформатировать значения x в качестве даты.

Answer 1

Попробуйте это (я не пробовал с вашим кодом, но ранее сталкивался с подобной проблемой):

library(scales)
.....
autoplot(beer2, series="Data") + + scale_x_yearmon() + 
autolayer(fitted(fit.beer), series="Fitted") +
xlab("Year") + ylab("Megalitres") +
ggtitle("Quarterly Beer Production")