在 RpivotTable 中删除总计的问题

Question

谁能帮我删除 RpivotTable 中出现的总计，如图所示。我也在添加代码。卡了好久，求指教

此致

library(rpivotTable)
rpivotTable(data = mtcars, subtotals = FALSE, rows = c( "cyl"),cols=c("carb"), vals = "mpg", aggregatorName = "Sum", rendererName = "Table", width="50%", height="550px")

Answer 1

当前版本的 rPivottable 不允许您删除总计，但下一个版本可能会。

Answer 2

我通过 CSS 让它像这样工作（一种解决方法，因为只有显示被隐藏）：

mypivottable <- htmlwidgets::prependContent(mypivottable,
     htmltools::tags$style(
     ".pvtTotalLabel, .colTotal, .rowTotal, .pvtGrandTotal { display: none; }"
     )
  )

不过我认为它在 Shiny 应用程序中不起作用。

Answer 3

下面第 6 行显示的小计可以删除：

library(pivottabler)

pt <- PivotTable$new()

pt$addData(data)

pt$addColumnDataGroups("Date")  

pt$addRowDataGroups("SKU.ID" ,  addTotal=FALSE) 

pt$addRowDataGroups("Location" ,  addTotal=FALSE)

pt$renderPivot()

pt$defineCalculation(calculationName="Total Sales Qty", summariseExpression="sum(Sales_Qty, na.rm=TRUE)")

pt$defineCalculation(calculationName="TotalSalesQty")
pt$renderPivot()

Answer 4

szapiszapo 中的解决方案适用于闪亮的应用程序，如果你添加 tags$style( ".pvtTotalLabel, .colTotal, .rowTotal, .pvtGrandTotal { display: none; }" ) 到 UI。例如

ui <- fluidPage(
    tags$style(
        ".pvtTotalLabel, .colTotal, .rowTotal, .pvtGrandTotal { display: none; }"
    ),
    rpivotTableOutput("pivot_table", height = "100%")
)

在 RpivotTable 中删除总计的问题

problem with removing Totals in RpivotTable

dashboard

pivot-table

r

shiny

rpivottable