Функция Filter_time - для фильтрации времени в R

Question

Я пытаюсь сделать прогноз по временным рядам на основе этого блога от R Bloggers. Прогнозирование временных рядов с использованием керас

Это мой код, который я пытаюсь использовать.

# Core Tidyverse
library(tidyverse)
library(glue)
library(forcats)
library(dplyr)

# Time Series
library(timetk)
library(tidyquant)
library(tibbletime)
library(stats)

# Visualization
library(cowplot)

# Preprocessing
library(recipes)

# Sampling / Accuracy
library(rsample)
library(yardstick) 

# Modeling
library(keras)
library(tfruns)

#reading excel file

library("readxl")
incoming_volume <- read_excel(file.choose())

volume <- incoming_volume %>%
  tk_tbl() %>%
  mutate(index = as_date(index)) %>%
  as_time(index = index)

p1 <- volume %>%
  ggplot(aes(index, value)) +
  geom_point(color = palette_light()[[1]], alpha = 0.5) +
  theme_tq() +
  labs(
    title = "From July 2011 to May 2018 "
  )

p2 <- volume %>%
  filter_time("start" ~ "2011") %>%
  ggplot(aes(index, value)) +
  geom_line(color = palette_light()[[1]], alpha = 0.5) +su
  geom_point(color = palette_light()[[1]]) +
  geom_smooth(method = "loess", span = 0.2, se = FALSE) +
  theme_tq() +
  labs(
    title = "2011 to 2018 (Zoomed In To Show Changes over the Year)",
    caption = "Incoming Volume"
  )

Я получаю сообщение о том, что функция filter_time не может быть найдена. Я тоже пробовал time_filter. Я получаю ту же ошибку.

Как мне избежать этой ошибки.

С уважением, Ren.

Answer 1

Вы можете изменить «filter_time» на:

require(lubridate)

p2 <- volume %>%
      filter(year(as.Date(index)) > 2011)