Я работаю над векторной авторегрессией с использованием пакета прогноза и пытаюсь очистить окончательные графики.
Стандартный график прогноза выполняется с помощью следующей команды:
fcast1 <- forecast(var2, h=8)
autoplot(fcast1)
Это дает хороший график ниже:
Что я хотел бы сделать, это просто показать период с 2018 года. Тем не менее, кажется, что даты были преобразованы в десятичные годы. Таким образом, единственный способ его расширения заключается в следующем:
f <- forecast(var2, h=8) %>% autoplot() + coord_cartesian(xlim = c(2019.0,2019.75))
f
Это дает график с осью X в десятичных годах.
Есть ли способ получить доступ к датам или преобразовать их из десятичных дробей? Я попытался получить доступ к данным на графике f с помощью f$data$x <- as.Date(f$data$x)
, но это не помогло.
Кроме того, я попытался обернуть ограничения в команде lubridate::date_decimal()
, но не повезло. Я вижу, что этот индекс в объекте var2 указан в моем еженедельном формате даты.