В flexdashboard я хочу сделать ползунок ввода года, но я получаю ошибку в своем реактивном утверждении, я думаю, - PullRequest
Новая
       31

В flexdashboard я хочу сделать ползунок ввода года, но я получаю ошибку в своем реактивном утверждении, я думаю,

0 голосов
/ 26 октября 2019

В моей панели инструментов я хочу создать ползунок для ввода диапазона лет. Но я получаю следующую ошибку:

Столбцы Tibble должны иметь одинаковую длину, только значения длины один перерабатываются: * Длина 0: столбцы y, linetype, .plotlyGroupIndex * Длина 2:Столбец x

Avg <- Hollywood %>% group_by(Genre,year)
Avg <-Avg %>% summarise(avg_Gross=mean(WorldwideGross, na.rm = TRUE))
Avg$year <- factor(Avg$year)

Входы {.sidebar data-width = 350} 

 sliderInput("Year", "year", 2005, 2014, value = c(2005, 2014), sep = "")

Столбец

Диаграмма B 

average <- reactive({
  Avg[Avg$year==input$Year,]
})

renderPlotly({
  p2 <- plot_ly(average(), x = input$Year, y = ~avg_Gross, type = 'scatter', mode = 'lines', linetype = ~Genre) 
  print(p2)
  })
...