Проблема DateRangeInput. Не могу реализовать ggplot - PullRequest
Новая
       23

Проблема DateRangeInput. Не могу реализовать ggplot

1 голос
/ 04 мая 2019

Я пытаюсь показать импорт и экспорт по годам в моей стране.У меня есть dateRangeInput, который позволяет выбрать годы.Тем не менее, я не знаю, как фильтровать входные данные.

Я пробовал это 

 df2 <- df[as.Date(df$Year) > input$dateRange[1] &
              as.Date(df$Year) < input$dateRange[2],]

Это в моем интерфейсе 

dateRangeInput("dateRange", label = 'Date Range', format = "yyyy-mm-dd", 
                     startview = "year", start = '2009-01-01', end='2017-01-01',
                     min = df$Year[1], max = df$Year[9])

И это часть SERVER 

output$retail = renderPlotly({
  df1 <- reactive({
    filter(df, between(df$Year ,input$daterange[1], input$daterange[2]))
  })

    ggplot(df1(), aes(x = Year)) + 
      geom_line(aes(y = Export.TOTAL), color = "#FF7954") + 
      geom_line(aes(y = Import.TOTAL), color= "#3639e2") +
      scale_fill_manual(values = c("#FF5733"), name = "Type")+
      labs(title = "Balance of Import/Export", y =" " ) +
      theme_minimal() +
      scale_x_continuous(breaks = seq(2009,2017)) +
      )
  })

Я ожидаюграфик, который показывает результаты импорта / экспорта между выбранными датами.

1 Ответ

0 голосов
/ 04 мая 2019

Из этого выпуска https://github.com/tidyverse/dplyr/issues/1639, between() ожидает числовые значения.Кажется, если вы оберните as.Date() вокруг значений, это должно работать.

...