2

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

我想制作仪表板，任何人都可以在其中创建条形图或汇总表。我能够使用rpivottable.

使用 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打包来创建图表和表格，但是有没有办法链接这两者？由于数据表现在只是显示最初读取的所有数据。

如，如果我想在第二张图片中查看构成橙色条的数据，然后单击橙色条，表格是否可以显示构成橙色条的数据？

4

0 回答 0