Rのdata.table：別々の列のベクトルの和は

Question

私はベクターでdata.tableを持っているか、実際に列内のベクトルで一覧表示する細胞は、IE：

testDATA <- data.table('COLUMN_1' = list(1:4, 11:14, 21:24), 
         'COLUMN_ABC' = list(5:8, 25:28, 15:18), 
         'COLUMN1342' = list(2:5, 32:35, 22:25)) 

さらに私は、ベクトルの列の名前を持つベクトルを持っています「私はすなわちを合計する要素：

columnsToSum <- c('COLUMN_ABC', 'COLUMN1342') 

どのように私はベクトル合計れるdata.tableに列を追加することができます」最初の行で、私はベクトルcを有するようにcolumnsToSumで定義された列から要素を（6,8 、10,12）？事は私がcolumnsToSumベクトルにまとめる必要があるすべての列を持っているということですが、

testDATA[, sumCol := list(Map(function(x,y) x + y, get('COLUMN_ABC'), get('COLUMN1342')))] 

：私は、私はこのような二つのベクトルを加算することができます知っています。何か案は？

Answer 1

私はこれがあなたたちはその後、私たちは順番にそれらを追加し、それぞれを追加するためにMap()を使用するReduce()を使用して、データテーブルから列のグループを取得するために.SDを使用

testDATA[, sumCol := Reduce(function(a,b) Map(`+`,a,b), .SD), 
    .SDcols=columnsToSum] 

のために働くべきだと思います行は別々にそれは2列以上で動作します

columnsToSum <- names(testDATA) 
testDATA[, sumCol := Reduce(function(a,b) Map(`+`,a,b), .SD), .SDcols=columnsToSum] 
testDATA 
#  COLUMN_1 COLUMN_ABC COLUMN1342   sumCol 
# 1:  1,2,3,4  5,6,7,8  2,3,4,5  23,31,39,47 
# 2: 11,12,13,14 25,26,27,28 32,33,34,35 193,201,209,217 
# 3: 21,22,23,24 15,16,17,18 22,23,24,25 153,161,169,177