R:如何在同一时间序列上绘制多个 ARIMA 预测

Question

我想在同一个地 block 上用不同颜色绘制多个预测，但是，比例尺不对。我对任何其他方法持开放态度。

可重现的例子:

require(forecast)     

# MAKING DATA
data <- c(3.86000,  19.55810,  19.51091,  20.74048,  20.71333,  29.04191,  30.28864, 25.64300,  23.33368,  23.70870 , 26.16600  ,27.61286 , 27.88409 , 28.41400 , 24.81957 , 24.60952,  27.49857,  32.08000 , 29.98000, 27.49000 , 237.26150, 266.35478, 338.30000, 377.69476, 528.65905, 780.00000  )
a.ts <- ts(data,start=c(2005,1),frequency=12)

# FORECASTS
arima011_css =stats::arima(x = a.ts, order = c(0, 1, 1), method = "CSS") # css estimate
arima011_forecast = forecast(arima011_css, h=10, level=c(99.5))

arima321_css =stats::arima(x = a.ts, order = c(3, 2, 1), method = "CSS") # css estimate
arima321_forecast = forecast(arima321_css, h=10, level=c(99.5))

# MY ATTEMPT AT PLOTS
plot(arima321_forecast)
par(new=T)
plot(arima011_forecast)

Answer 1

这是类似于@jay.sf 但使用 ggplot2 的东西。

library(ggplot2)

autoplot(a.ts) +
  autolayer(arima011_forecast, series = "ARIMA(0,1,1)", alpha = 0.5) +
  autolayer(arima321_forecast, series = "ARIMA(3,2,1)", alpha = 0.5) +
  guides(colour = guide_legend("Model"))

^{由 reprex package 创建于 2020-05-19 (v0.3.0)}