r - 如何摆脱 rpivot 表中的总行和总列

Question

这只是一个示例代码。我想删除数据透视表中名为“Total”的最后一行和最后一列。您的帮助将不胜感激。谢谢你。

library(devtools)
install_github("ramnathv/htmlwidgets") 
install_github("smartinsightsfromdata/rpivotTable")
## Load rpivotTable
library(rpivotTable)
data(mtcars)
## One line to create pivot table
rpivotTable(mtcars, rows="gear", col="cyl", aggregatorName="Average", 
            vals="mpg", rendererName="Treemap")

Answer 1

你可以试试：

data <-rpivotTable(mtcars, rows="gear", col="cyl", aggregatorName="Average", 
            vals="mpg", rendererName="Treemap")

要删除最后一行：

data <- data[-nrow(data), ]

要删除最后一列/特定列名：

## drop column of specific name
drop <- "Total"
data[, !(names(data) %in% drop)]
## drop last column
data[, -ncol(data)]

同时丢弃两者：

data[-nrow(data), !(names(data) %in% drop)]

或者

data[-nrow(data), -ncol(data)]