我有一个像这样的数据表
DT <- ata.table::data.table(
ref = rep(3L, 4L),
nb = 12:15,
i1 = c(3.1e-05, 0.044495, 0.82244, 0.322291),
i2 = c(0.000183, 0.155732, 0.873416, 0.648545),
i3 = c(0.000824, 0.533939, 0.838542, 0.990648),
i4 = c(0.044495, 0.82244, 0.322291, 0.393595)
)
DT
# ref nb i1 i2 i3 i4
# 1: 3 12 0.000031 0.000183 0.000824 0.044495
# 2: 3 13 0.044495 0.155732 0.533939 0.822440
# 3: 3 14 0.822440 0.873416 0.838542 0.322291
# 4: 3 15 0.322291 0.648545 0.990648 0.393595
现在我想计算行总和，但只包括以“i”开头的列（“i1”，“i2”等）
我用过grep创建要求和的列名向量：
listCol <- colnames(DT)[grep("i", colnames(DT))]
listCol
# [1] "i1" "i2" "i3" "i4"
然后我尝试循环列：
DT$sum <- rep.int(0, nrow(DT))
for (i in listCol){
DT$sum = DT$sum + DT[ , get(i)]
}
...这给出了所需的输出：
DT
# ref nb i1 i2 i3 i4 sum
# 1: 3 12 0.000031 0.000183 0.000824 0.044495 0.045533
# 2: 3 13 0.044495 0.155732 0.533939 0.822440 1.556606
# 3: 3 14 0.822440 0.873416 0.838542 0.322291 2.856689
# 4: 3 15 0.322291 0.648545 0.990648 0.393595 2.355079
我该如何改进我的代码？
子问题：
该子问题部分包含上一个问题的答案：
如何避免这种奇怪的符号：
myrowMeans = function (x){
rowMeans(x, na.rm = TRUE)
}
DT[ , var := myrowMeans(.SD-myrowMeans(.SD)^2), .SDcols = grep("i", colnames(DT))]
