Question

我在R Shiny中有一个带有多个时间序列的dygraph图。我想要做的是当我点击其中一个时间序列时检索时间系列标识符，以便我可以在我闪亮的应用程序中使用此时间系列标识。

有没有人知道该怎么做？

这是一个代码示例（ui.R和server.R，我将如何使用它，以防它与我们可以用plotly和event_data做的相似。（我知道这段代码无法正常工作，因为dygraph不存在event_data）

ui.R

＆＃13;

library(dygraphs)

shinyUI(fluidPage(
  
  titlePanel("Predicted Deaths from Lung Disease (UK)"),
  
  sidebarLayout(
    sidebarPanel(
    ),
    mainPanel(
      dygraphOutput("dygraph"),
      verbatimTextOutput("selected")
    )
  )
))

＆＃13;

server.R

＆＃13;

library(dygraphs)
library(datasets)

shinyServer(function(input, output) {
  
  lungDeaths <- cbind(ldeaths, mdeaths, fdeaths)
  
  output$dygraph <- renderDygraph({
    
    dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
      dyHighlight(highlightCircleSize = 5, 
                  highlightSeriesBackgroundAlpha = 0.2,
                  hideOnMouseOut = FALSE) %>%
      dyOptions(drawGrid = input$showgrid)
    
  })
  
  output$selected <- renderPrint({
    ts <- event_data("clicked")
    if (! is.null(ts))
      return(ts)
  })
  
})

＆＃13;

提前感谢您的帮助

如何从R闪亮的dygraph获得点击时间系列？

0 个答案: