在R中组合多个相同命名的列

时间:2012-01-22 12:32:58

标签: r

我想在R中组合数据框的多个列。给出类似这样的数据:

names: 123   256   192   123   256
       1     2     8     2     3
       4     3     2     9     9
       8     7     1     3     8 

如何将具有相同名称的列的元素相加以生成如下表格:

names: 123   256   192
       3     5     8
       13    12    2
       11    15    1

非常感谢。

1 个答案:

答案 0 :(得分:4)

正如@VincentZoonekynd所建议的那样,拥有多个具有相同名称的列并不是一个好主意。

无论如何,你可以这样做:

df <- data.frame(A=c(1,4,8),B=c(2,3,7),C=c(8,2,1),D=c(2,9,3),E=c(3,9,8))
names(df) <- c('123','256', '192', '123', '256')

df <- t(df)     # transpose the data.frame
aggr <- by(df, INDICES=row.names(df), FUN=colSums) # collapse the rows with the same name
aggr <- as.data.frame(do.call(cbind,aggr)) # convert by() result to a data.frame

或者,在一行中:

aggr <- as.data.frame(do.call(cbind, by(t(df),INDICES=names(df),FUN=colSums)))