我执行预测。
但是我需要得到一个绘制出预测值与置信区间重叠于原始值的图形。当然,如果我没有清楚地解释,我会附上这张图: 绿色曲线是时间序列的初始值(我的4个月),绿色虚线是预测值与原始值重叠在一起的地方。预测虚线上的短划线表示置信区间。如何创建这样的图形?
w=read.csv("C:/Users/admin/Documents/aggrmonth.csv", sep=";",dec=",")
w
#create time series object
w=ts(w$new,frequency = 12,start=c(2015,1))
w
#timeplot
plot.ts(w)
#forecast for the next months
library("forecast")
m <- stats::HoltWinters(w)
test=forecast:::forecast.HoltWinters(m,h=4) #h is how much month do you want to predict
test
现在我想预测未来4个月的情况,即从01.2017-04.2017。 我已经知道原始数据。
1-Jan-17 1020
1-Feb-17 800
1-Mar-17 1130
1-Apr-17 600
但是我需要得到一个绘制出预测值与置信区间重叠于原始值的图形。当然,如果我没有清楚地解释,我会附上这张图: 绿色曲线是时间序列的初始值(我的4个月),绿色虚线是预测值与原始值重叠在一起的地方。预测虚线上的短划线表示置信区间。如何创建这样的图形?
w=
structure(list(yearMon = structure(c(9L, 7L, 15L, 1L, 17L, 13L,
11L, 3L, 23L, 21L, 19L, 5L, 10L, 8L, 16L, 2L, 18L, 14L, 12L,
4L, 24L, 22L, 20L, 6L), .Label = c("1-Apr-15", "1-Apr-16", "1-Aug-15",
"1-Aug-16", "1-Dec-15", "1-Dec-16", "1-Feb-15", "1-Feb-16", "1-Jan-15",
"1-Jan-16", "1-Jul-15", "1-Jul-16", "1-Jun-15", "1-Jun-16", "1-Mar-15",
"1-Mar-16", "1-May-15", "1-May-16", "1-Nov-15", "1-Nov-16", "1-Oct-15",
"1-Oct-16", "1-Sep-15", "1-Sep-16"), class = "factor"), new = c(8575L,
8215L, 16399L, 16415L, 15704L, 19805L, 17484L, 18116L, 19977L,
14439L, 9258L, 12259L, 4909L, 9539L, 8802L, 11253L, 11971L, 7838L,
2095L, 4157L, 3910L, 1306L, 3429L, 1390L)), .Names = c("yearMon",
"new"), class = "data.frame", row.names = c(NA, -24L))