对数据框中的列求和

Question

我有一个 8 列的数据框，其中每一列相加得到总数。然后我必须合并前 2 列的总和，然后是下 2 列的总和，然后是下 2 列的总和，以此类推，这样我就剩下 4 列（前 2 列的总和，下 2 列的总和，等等......）。 以下是数据示例：

A B A1 B1 A2 B2 A3 B3 
1 2 1  2  1  1  3  1
2 3 1  1  3  3  2  1
5 6 6  4  3  2  1  1

这是我使用的代码，我能够成功地做到这一点：

ColumnSums<-lapply(ColumnSums, function(x) sum(x))

AB<-ColumnSums$A+ColumnSums$B
A1B1<-ColumnSums$A1+ColumnSums$B1
A2B2<-ColumnSums$A2+ColumnSums$B2
A3B3<-ColumnSums$A3+ColumnSums$B3

CombinedTotals<-c(AB,A1B1,A2B2,A3B3)
names(CombinedTotals)<-c("AB","A1B1","A2B2","A3B3")

我只是想知道是否有办法减少这段代码。具体来说，我的代码的第二部分。我必须手动将每个总数合并为 2 列。我想知道是否有办法使该过程自动化。

Answer 1

如果df 是您原来的data.frame，您可以简单地执行此操作：

setNames(colSums(df)[c(F, T)]+colSums(df)[c(T,F)], c("AB","A1B1","A2B2","A3B3"))
#AB A1B1 A2B2 A3B3 
#19   15   13    9

或者：

tapply(colSums(df), (seq(ncol(df))-1) %/% 2, sum)