Question

我的Shiny应用程序中有一个数据框，可根据各种用户输入进行过滤。

global_evolution=reactive({

  results_combined %>%
  filter(!is.na(SVM_LABEL_QOL) & SVM_LABEL_QOL=='QoL' & globalsegment==input$inp_pg1segment & Account==input$inp_pg1clientsfiltered & Date >=input$inp_pg1daterange[1] & Date <=input$inp_pg1daterange[2]) %>% #Inputs
  select(Account,Date,SVM_LABEL_DIMENSION) %>%
  mutate(Month=month(as.Date(format(as.POSIXct(Date),format = "%d/%m/%Y"),"%d/%m/%Y"))) %>%
  select(Account,Month,SVM_LABEL_DIMENSION,-Date) %>%
  group_by(Month,SVM_LABEL_DIMENSION) %>%
  summarise(Monthly_Count=n()) %>%
  spread(SVM_LABEL_DIMENSION,Monthly_Count) %>%
  ungroup() %>%
  mutate(Month=month.abb[Month]) %>%
  mutate_all(funs(replace(., is.na(.), 0)))

})

在下一步中，我通过plot_ly函数

传递此过滤后的数据帧

这是我需要帮助的地方

我正在尝试plot_ly 有条件地添加行（添加跟踪），具体取决于数据框中是否有可用的给定列。目前，plot_ly如果在过滤数据框后add_trace中包含的任何列不可用，则会引发错误。

以下是我的Shiny应用程序中带有plot_ly输出的部分。我尝试在if-else个参数之间添加add_trace个语句，但我的尝试还没有成功。

 output$pg1evolution <- renderPlotly({

global_evolution_final() %>%
plot_ly(x = ~Month, y = ~`COLUMN_1`, name = 'Column 1', type = 'scatter', mode = 'lines') %>%
add_trace(y = ~`COLUMN_2`, name = 'Column 2') %>%
add_trace(y = ~`COLUMN_3`, name = 'Column 3') %>%
add_trace(y = ~`COLUMN_4`, name = 'Column 4') %>%
add_trace(y = ~`COLUMN_5`, name = 'Column 5') %>%
add_trace(y = ~`COLUMN_6`, name = 'Column 6') %>%
layout(title = "Trend Over Time",
       xaxis = list(title = ""),
       yaxis = list (title = "Monthly Count of Products Sold"))

})

我抱歉无法包含可重现的数据帧，我意识到这将使事情变得更容易。非常感谢您提供的任何提示/指示。

Answer 1

一种方法是使用for循环为每列添加一个跟踪

output$pg1evolution <- renderPlotly({

colNames <- names(global_evolution_final())[-1] #Assuming Month is the first column

p <- plotly::plot_ly(data = global_evolution_final(), x = ~Month, type = "scatter",
                     mode = "lines")

for(trace in colNames){
    p <- p %>% plotly::add_trace(y = as.formula(paste0("~`", trace, "`")), name = trace)
}

p %>% 
layout(title = "Trend Over Time",
       xaxis = list(title = ""),
       yaxis = list (title = "Monthly Count of Products Sold"))
})

R根据数据框中的可用列有条件地添加跟踪

1 个答案: