У меня есть многоколонка TS в R, и я хочу построить 2 из них с помощью Dygraph

Question

У меня есть многоколонка ts в R, и я хочу создать блестящее приложение, которое позволит мне выбрать, какой из этих столбцов должен отображаться на графике dygraph.

Я читал кое-что о режиме видимости, но я не знаком с JS, и я не мог найти способ использовать его в R. Я также пытался поднастроить мои ts usind что-то вроде:

 `new.ts <- as.data.frame(my.ts)
   new.ts <- my.ts$input$model
   new.ts <- ts(new.ts, start= (...), freq=...)
dygraph(new.ts)`

`library(shiny)
library(dygraphs)

ui <- fluidPage(

  # Application title
  titlePanel("Title"),

  # Selecionar modelo
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "model",
                  label = "Choose the model to be plotted",
                  choices  = c("...") 
                  selected = "x")),
    mainPanel(
      dygraphOutput(outputId = "dygraph")
    )
  )
  server <- function(input, output) {
    output$dygraph <- renderDygraph({
      dygraph(my.ts, main =glue("Forecast vs. Realizado {nome.modelo}")) %>%
        dySeries("realizado", drawPoints = TRUE, pointSize = 3,color = "red") %>%
        dySeries(input$model, drawPoints = TRUE,pointSize = 3,color = "blue")%>%
        dyRangeSelector()

    })
  }
  shinyApp(ui = ui, server = server)` 

Приведенный выше код выводит меня на график со всеми столбцами TS

Answer 1

Я нашел способ исправить это, хотя я не уверен, что он самый эффективный. Я создал реактивное выражение, которое подмножество моего df. После этого я снова привел df к ts.

dataInput <- reactive({
    n <- which(colnames(base)==input$modelo_escolhido)
    x <- a[,c(n,13),drop=FALSE] 
    x <- ts(x,start=start(base),frequency = frequency(base))
  })
  output$dygraph <- renderDygraph({
    dygraph(dataInput(),
            main = "Forecast vs. Realizado") %>% 
      dyOptions(drawPoints = TRUE, pointSize = 3,colors = RColorBrewer::brewer.pal(3, "Set1")) %>%
      dyRangeSelector()