Datatable and Highcharter in Shiny R

Question

是否可以将数据置与高电度链接？例如，单击表的任何行，高压将显示为动态的结果？

Answer 1

这是一个示例，选择您想要的任何行，然后查看图表（HighChart）对选定值的反应：

library(highcharter)
library(DT)
library(shiny)
db <- mtcars
ui <- fluidPage(DTOutput("my_dt"),
                highchartOutput("my_hc"))
server <- function(input, output, session) {
  output$my_dt <- renderDT({
    db
  })
  output$my_hc <- renderHighchart({
    db_hc <-
      db[input$my_dt_rows_selected, ] # filter dataset according to select rows in my_dt
    hc <- highchart() %>%
      hc_add_series(name = "mpg", data = db_hc$mpg) %>%
      hc_add_series(name = "wt", data = db_hc$wt)
    hc
  })
}
shinyApp(ui, server)

希望它有帮助！