在R中向autoplot添加线条

Question

我制作了一个可以预测时间序列的图表。它是通过以下代码实现的:

forecast1 <- HoltWinters(ts, beta = FALSE, gamma = TRUE) 
forecast2 <- forecast(forecast1, h = 60)    
autoplot(forecast2)

这里的'ts'是一个时间序列对象。因此，我想添加另一个时间序列来比较预测值和实际值，从我的最后一个实际观察开始。我用经典图表实现了这一点，添加了一个实际时间序列的线条。这是我拥有的图表:

我该如何将这个新行添加到我的第一个图中？

- User 6683331

Answer 1

这是最简单的方法:

library(ggplot2)
library(forecast)

smpl1 <- window(AirPassengers, end = c(1952, 12))
smpl2 <- window(AirPassengers, start = c(1953, 1), end = c(1953,12))

hw       <- HoltWinters(smpl1, beta = FALSE, gamma = TRUE) 
forecast <- forecast(hw, h = 12)  

autoplot(forecast) +
  autolayer(smpl2, series="Data") +
  autolayer(forecast$mean, series="Forecasts")

< p >来自预测包的autolayer命令允许您向现有图形添加涉及时间序列和预测的图层。

- Rob Hyndman