如何链接R闪亮的数据表和条形图

Question

我试图制作一个仪表板，我的数据大约有7-8列和1500-2000个条目。有两列是数字，我想要求和。我希望用于切片数据的其余列（通过添加过滤器或根据其他列的条目切片来创建子集）。

我想制作仪表板，任何人都可以随时随地创建条形图或汇总表。我能够使用rpivottable实现此目的。

我的第二步是显示正在这些图表中映射的数据。如果图表处于基本水平，即 1.5k-2k条目，那么这将更有意义，但是当我进一步切片数据时，基于其余列的过滤器。我将达到只有80或100行满足过滤器列表的程度。我想在闪亮的仪表板中显示这些行。

我使用此代码在仪表板下方创建，但数据是我读过的所有数据。

 library(shiny)
 library(DT)
 library(rpivotTable)

  data <-read.csv("Book1.csv")

 ui =  fluidPage(
rpivotTableOutput("test"),DT::dataTableOutput('table'))

server = function(input, output) {
  output$test <- renderRpivotTable({
  rpivotTable(data = data)          })

  output$table <- renderDataTable(
    data, options = list(
      pageLength = 100

    )
  )

我可以使用rpivottable和DT包创建图表和表格，但有没有办法链接这两个？由于数据表现在只是显示最初读取的所有数据。

如同，如果我想在第二张图片中看到构成橙色条的数据，我点击橙色条，表格是否有办法显示构成橙色条的数据？