r - 在 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来自预测包的命令允许您将涉及时间序列和预测的图层添加到现有绘图中。