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

Question

这只是一个示例代码。我想删除名为＆＃34; Total＆＃34;的最后一行和最后一列。在数据透视表中。我们将不胜感激。谢谢。

struct Node {
    int value;
    Node *left;
    Node *right;
}

int heightOfTree(Node node){
    if(node ==NULL)
    {
         return 0;
    }
    else
    {
       int lheight=heightOfTree(node->left);
       int rheight = heightOfTree(node->right);
       if(lheight>rheight)
       {
           return lheight;
       }
       else
       {
           return rheight;
       }
    }
}

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)]