如何摆脱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") 

要删除最后一行：一次

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

跌落两个：

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

要删除最后一列/具体列名：

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

或

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