、私はdata.tableと式のリストを持っているRにdata.table

Question

を式のリストを適用します

DT <- data.table(A = c(1:3), B = c(3:1), C = c(4:6), D = (6:4)) 
l <- list(f1 = "A + B", f2 = "B + C", f3 = "C - D", f4 = "D/A") 

これは

DT[, ":="(f1 = A + B, f2 = B + C, f3 = C - D, f4 = D/A)] 

または

for (i in 1:length(l)) { 
    DT[, eval(names(l)[i]) := eval(parse(text=l[[i]]))] 
} 

によって達成することができます

ループを使用せずにlの情報を使用してこれを行う方法はありますか？

# some code 
DT 
# A B C D f1 f2 f3  f4 
# 1: 1 3 4 6 4 7 -2 6.000000 
# 2: 2 2 5 5 4 7 0 2.500000 
# 3: 3 1 6 4 4 7 2 1.333333 

Answer 1

あなたが手でlを構築している場合は、代わりのようにそれを書きます

L = quote(`:=`(f1 = A + B, f2 = B + C, f3 = C - D, f4 = D/A)) 

次にあなたが

0のようにそれを使用することができます

DT[, eval(L)] 

# A B C D f1 f2 f3  f4 
# 1: 1 3 4 6 4 7 -2 6.000000 
# 2: 2 2 5 5 4 7 0 2.500000 
# 3: 3 1 6 4 4 7 2 1.333333 

これは説明recommended practice from the FAQ、ある...

quote()とeval()は、他の言語でのマクロのようなものです。

Answer 2

これはスーパーずさんですが、callを使用して式を作成することができ、parse、およびpaste、その式を呼び出す：

library(data.table) 
DT <- data.table(A = c(1:3), B = c(3:1), C = c(4:6), D = (6:4)) 
l <- list(f1 = "A + B", f2 = "B + C", f3 = "C - D", f4 = "D/A") 
ncall <- call(":=", names(l), 
      parse(text = paste0("list(", paste(l, collapse = ","), ")"))) 
DT[ , eval(ncall)] 
DT 
# A B C D f1 f2 f3   f4 
# 1: 1 3 4 6 4 7 -2 6.00000000 
# 2: 2 2 5 5 4 7 0 2.50000000 
# 3: 3 1 6 4 4 7 2 1.33333333