[英]Datatable and Highcharter in Shiny R
是否有可能将数据表与highcharter链接? 例如,单击表格的任何行,高位图表将以动态方式显示结果?
这是一个示例,选择所需的任何行,然后查看图表(高图)对所选值的反应:
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)
希望能帮助到你!
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.