Настройка Fanchart (пакет vars)

У меня есть следующий набор данных df:

price <- as.vector(c(3755,3243,3109,2990,2949,3021,3104,2988,3014,2999,3090,3209,3039,2748,2671,2556,2554,2650,2627,2560))
people <- as.vector(c(4228,4966,4614,4752,4545,4851,4598,4597,4713,4672,4833,4790,4844,4995,5068,4918,4909,4807,5024,4898))
df <- cbind(price,people)

С помощью моделирования library(vars)я получил следующие прогнозы :vecm.predVAR

cointest <- ca.jo(df, K = 5, type = "eigen", ecdet = "trend", spec = "transitory")
vecm.level <- vec2var(cointest, r = 1)
vecm.pred <- predict(vecm.level, n.ahead = 6)

Затем я хочу использовать fanchartграфику для моей модели и ее предсказания. Вырезание участка включает:

  1. Титулы
  2. имена оси y
  3. Видимые диапазоны оси Y
  4. Даты по оси x
  5. Добавить контрольные точки
  6. Измените цвет доверительного интервала прогноза на красно-желтую тепловую карту (если это возможно, но не приоритет)

Я попытался это, сначала определяя мою ось x (примечание: я также попытался заставить меня tmax <- as.Date("2018-09-01")учитывать мои дополнительные 6 vecm.predпрогнозов, но они не появлялись на fanchart при попытке этого):

tmin <- as.Date("2016-08-01")
tmax <- as.Date("2018-03-01")
tlab <- seq(tmin, tmax, by="month")
time <- substr(tlab, 0, 7)

Затем я запустил код fanchart:

fanchart(vecm.pred, xaxt="n",ylab = c("Price (a‚¬)","Volume"), main = c("Price","People"))

par(new=TRUE)

axis(1, at=seq_along( c( time, rep(NA,6) )), labels=c( time, rep(NA,6)) ,
 las=3, line=-13.5, cex.axis=0.6)

axis(1, at=seq_along( c( time, rep(NA,6) )), labels=c( time, rep(NA,6)) ,
 las=3, line=5, cex.axis=0.6)

Это дало мне ниже fanchart: введите описание изображения здесь

У этого есть ряд проблем. Как бы вы пошли:

  1. Обеспечение того, чтобы оси y имели только одно имя
  2. Убедитесь, что все значения тикера для y-осей видны
  3. Переместите даты влево, чтобы первое наблюдение было «2016-08» (и, если возможно, включить даты для следующих 6 прогнозов, т.е. до «2018-09»)
  4. Добавить две из выборки точек , чтобы показать , как мои прогнозы делали предсказания их , например , 2525и 2500дляprice
  5. Измените цвет прогнозов по умолчанию по шкале серого на шкалу красного / оранжевого / желтого цветов (если возможно)?

r,plot,colors,axis,forecast,

0

Ответов: 0

Настройка Fanchart (пакет vars)

У меня есть следующий набор данных df:

price <- as.vector(c(3755,3243,3109,2990,2949,3021,3104,2988,3014,2999,3090,3209,3039,2748,2671,2556,2554,2650,2627,2560))
people <- as.vector(c(4228,4966,4614,4752,4545,4851,4598,4597,4713,4672,4833,4790,4844,4995,5068,4918,4909,4807,5024,4898))
df <- cbind(price,people)

С помощью моделирования library(vars)я получил следующие прогнозы :vecm.predVAR

cointest <- ca.jo(df, K = 5, type = "eigen", ecdet = "trend", spec = "transitory")
vecm.level <- vec2var(cointest, r = 1)
vecm.pred <- predict(vecm.level, n.ahead = 6)

Затем я хочу использовать fanchartграфику для моей модели и ее предсказания. Вырезание участка включает:

  1. Титулы
  2. имена оси y
  3. Видимые диапазоны оси Y
  4. Даты по оси x
  5. Добавить контрольные точки
  6. Измените цвет доверительного интервала прогноза на красно-желтую тепловую карту (если это возможно, но не приоритет)

Я попытался это, сначала определяя мою ось x (примечание: я также попытался заставить меня tmax <- as.Date("2018-09-01")учитывать мои дополнительные 6 vecm.predпрогнозов, но они не появлялись на fanchart при попытке этого):

tmin <- as.Date("2016-08-01")
tmax <- as.Date("2018-03-01")
tlab <- seq(tmin, tmax, by="month")
time <- substr(tlab, 0, 7)

Затем я запустил код fanchart:

fanchart(vecm.pred, xaxt="n",ylab = c("Price (a‚¬)","Volume"), main = c("Price","People"))

par(new=TRUE)

axis(1, at=seq_along( c( time, rep(NA,6) )), labels=c( time, rep(NA,6)) ,
 las=3, line=-13.5, cex.axis=0.6)

axis(1, at=seq_along( c( time, rep(NA,6) )), labels=c( time, rep(NA,6)) ,
 las=3, line=5, cex.axis=0.6)

Это дало мне ниже fanchart: введите описание изображения здесь

У этого есть ряд проблем. Как бы вы пошли:

  1. Обеспечение того, чтобы оси y имели только одно имя
  2. Убедитесь, что все значения тикера для y-осей видны
  3. Переместите даты влево, чтобы первое наблюдение было «2016-08» (и, если возможно, включить даты для следующих 6 прогнозов, т.е. до «2018-09»)
  4. Добавить две из выборки точек , чтобы показать , как мои прогнозы делали предсказания их , например , 2525и 2500дляprice
  5. Измените цвет прогнозов по умолчанию по шкале серого на шкалу красного / оранжевого / желтого цветов (если возможно)?
00г, участок, цвет, ось, прогноз
Похожие вопросы