在data.table中组合多个变量名列表？

Question

我正在尝试将两个单独的变量名列表传递到 data.table (v1.9.4) 中。它返回正确的列，但会删除变量名。这按预期工作：

dt <- data.table(a=1:3, b=4:6, c=7:9, d=10:12)
dt
   a b c  d
1: 1 4 7 10
2: 2 5 8 11
3: 3 6 9 12

传递单个名称列表也可以正常工作：

dt[,list(a,b)]
   a b
1: 1 4
2: 2 5
3: 3 6

但是当我需要传递多个列表时，它会返回正确的列但会去掉变量名：

dt[,c(list(a,b), list(c,d))]
   V1 V2 V3 V4
1:  1  4  7 10
2:  2  5  8 11
3:  3  6  9 12

为什么是两个列表？我正在使用多个引用（）的变量列表。我已阅读 FAQ 问题 1.6，并且我知道一种解决方法是使用 with=FALSE 的字符向量。但我的真实用例涉及将名称和表达式的混合传递给函数，例如，

varnames <- quote(list(a,b))
expr <- quote(list(a*b, c+d))
function(dt, varnames, expr) {
  dt[,c(varnames, expr)]
}

我希望“varnames”列有它们的专有名称（如果你只传递一个类似的列表，它们就会这样做

dt[,list(a,b,a*b,c+d)]
   a b V3 V4
1: 1 4  4 17
2: 2 5 10 19
3: 3 6 18 21

如何在 data.table 中组合多个列表，使其仍返回正确的列名？ （我不完全确定这是否是 data.table 问题，或者我只是在尝试在 R 中组合列表的方式中做一些愚蠢的事情，但 c() 似乎做了我想做的事。）

Answer 1

另一种选择是提前构建完整的调用：

varnames[4:5] <- expr[2:3]  # this results in `list(a, b, a * b, c + d)`
dt[, eval(varnames)]

产生：

   a b V3 V4
1: 1 4  4 17
2: 2 5 10 19
3: 3 6 18 21

更一般地说，假设您有一个引用的表达式列表：

exprlist <- list(quote(list(a, b)), quote(list(c, c %% a)), quote(list(a + b)))
expr <-  as.call(Reduce(function(x, y) c(as.list(x), as.list(y)[-1]), exprlist))  # @eddi
dt[, eval(expr)]

Answer 2

这是使用.SD的可能解决方法

varnames <- quote(list(a,b))
expr <- quote(list(a*b, c+d))

myFunc <- function(dt, varnames, expr) {
  dt[, c(.SD[, eval(varnames)], eval(expr))]
}

myFunc(dt, varnames, expr)

#    a b V1 V2
# 1: 1 4  4 17
# 2: 2 5 10 19
# 3: 3 6 18 21