r - rpivotTable:删除不必要的聚合器

我通过使用rpivotTable包创建一个交互式数据透视表。但是，我发现某些聚合器和renderName对我的用户而言是不必要的。我想删除它们。例如，我要从聚合器下拉菜单中删除“平均”。

这是我的示例：

library(shiny)
library(rpivotTable)
df <- iris

ui <- fluidPage(

fluidRow(
column(width=10, rpivotTableOutput("pivot"))
)
)

server <- function(input, output, session) {

output$pivot<-renderRpivotTable({

rpivotTable(df,
            rendererName="Heatmap",
            cols=c("Species"),
            rows=c("Petal.Width"),
            aggregatorName="Count",
            hiddenFromAggregators=["Average"]
)


 })

 }

 shinyApp(ui = ui, server = server)

我注意到似乎有一些相关的参数称为“ hiddenFromAggregators”，但我无法弄清楚如何在R / Shiny环境中应用它。

我在这里找到“ hiddenFromAggregators”。

https://github.com/nicolaskruchten/pivottable/wiki/Parameters

最佳答案

您可能正在寻找这样的东西：

rpivotTable(iris,
            rendererName = "Treemap",
            cols = c("Species"),
            rows = c("Petal.Width"),
            aggregatorName = "Count",
            aggregators = list(Sum = htmlwidgets::JS('$.pivotUtilities.aggregators["Sum"]'),
                               Count = htmlwidgets::JS('$.pivotUtilities.aggregators["Count"]')),
            subtotals = TRUE)

可能有比逐个添加聚合器更快的方法（使用完整的pivotUtilities.aggregators）

我找不到默认聚合器的完整列表，但是您可以使用应用程序上的Web检查器（使用Google Chrome浏览器：右键单击>检查）在控制台选项卡中键入$.pivotUtilities.aggregators来获取它。