将行添加到R中的自动绘图

Question

我做了一个预测时间序列的图。通过以下代码实现：

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

其中“ ts”是时间序列对象。因此，我想添加另一个时间序列，以从我上一次实际观察开始，将预测值与实际值进行比较。我用一个经典的情节实现了这一点，并添加了一条具有实际时间序列的直线。这是我的情节：

如何将这条新线添加到我的第一个绘图中？

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

autolayer预测包中的命令允许您将涉及时间序列和预测的图层添加到现有绘图中。