如何在R的pivottabler包中移除数据透视表的小计与总计？

我经常用pivottabler处理类Excel的透视表，刚好能解决你遇到的问题～有两种实用的方法，一种是从源头避免生成这些行，另一种是生成透视表后再移除，具体如下：

方法1：创建透视表时直接禁用小计和总计 #

这是最省心的方式，在定义行分组的时候就明确告诉pivottabler不要生成小计或总计。

假设你原本的代码是这样的（以销售数据为例）：

library(pivottabler)

# 示例数据
df <- data.frame(
  Category = rep(c("电子产品", "服饰"), each=4),
  Subcategory = rep(c("手机", "电脑", "T恤", "裤子"), each=2),
  Region = rep(c("华东", "华南"), 4),
  Sales = c(12000, 15000, 8000, 9000, 3000, 4000, 2500, 3500)
)

# 创建基础透视表
pt <- PivotTable$new()
pt$addData(df)
pt$addRowData("Category")
pt$addRowData("Subcategory")
pt$addColumnData("Region")
pt$defineCalculation(calculationName="销售额", summariseExpression="sum(Sales)")
pt$renderPivot()

要移除行的小计和总计，只需要把addRowData替换为addRowGroup，并指定includeTotal = FALSE（禁用总计）和includeSubtotal = FALSE（禁用小计）：

pt <- PivotTable$new()
pt$addData(df)
# 禁用类别级别的总计和子类别级别的小计
pt$addRowGroup(variableName = "Category", includeTotal = FALSE)
pt$addRowGroup(variableName = "Subcategory", includeSubtotal = FALSE)
pt$addColumnData("Region")
pt$defineCalculation(calculationName="销售额", summariseExpression="sum(Sales)")
pt$renderPivot()

这样生成的透视表就不会包含任何行方向的小计和总计了。

方法2：生成透视表后移除已有的小计/总计行 #

如果已经生成了透视表，不想重新构建，可以直接操作透视表对象的行集合来移除：

方式A：按行类型批量移除 #

pivottabler给行标记了类型，直接指定类型就能批量移除：

# 移除所有行总计
pt$removeRows(rowType = "total")
# 移除所有行小计
pt$removeRows(rowType = "subtotal")
# 重新渲染透视表
pt$renderPivot()

方式B：按行标题精准移除 #

如果你的透视表是中文环境，小计/总计的标题可能是“小计”“总计”，可以通过标题匹配来移除：

# 找到标题包含"小计"或"总计"的行的索引
rowsToRemove <- which(sapply(pt$rows, function(row) grepl("小计|总计", row$caption)))
# 移除这些行
pt$removeRows(rowIndices = rowsToRemove)
# 重新渲染
pt$renderPivot()

需要注意的是，如果是英文环境，标题会是“Subtotal”“Total”，记得把匹配的关键词换成对应的英文。

内容的提问来源于stack exchange，提问作者MysteryChinaman