折叠，汇总和重命名R中的表中的列

Question

我有一个包含多个列的表（简单示例）：

a b c d  
1 1 2 2  
2 3 4 3  

我想将最后一列折叠成一个并添加内容以生成如下内容：

a b other  
1 1     4   
2 3     7  

我可以设法找到添加最后一列并重命名它们的方法，但我不能在不更改数据格式的情况下将它们再次附加到表中，我需要将它们作为表格，因为我必须创建一个图表

Answer 1

数据框：

dat <- read.table(text = "a b c d
1 1 2 2
2 3 4 3", header = TRUE)

您可以使用rowSums计算总和：

cbind(dat[1:2], other = rowSums(dat[3:4]))

#   a b other
# 1 1 1     4
# 2 2 3     7