时间序列的自动绘图功能出错

Question

在从“预测”中绘制时间序列示例时，自动绘图功能会出现以下错误：原理和实践-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")