如何使用eval向data.table添加列

Question

我有一个观察数据表和是和否的模型。为简单起见，我只假设对组。我浪费了一些分类统计数据，我想控制选择哪一个。我知道如何使用eval做到这一点并将其保存在另一个data.table中，但我想添加到现有的data.table中，因为我每个组只有一行。任何人都可以帮我吗？

首先，我为每个组创建列联表。

 DT  <- data.table::data.table(obs = rep(c("yes","no"), 5), mod = c(rep("yes",5), rep("no", 5)), groupBy = c(1,1,1,1,1,2,1,1,2,1))
categorical <- DT[, .(a = sum(obs == category[1] & mod == category[1]),
                  b = sum(obs == category[2] & mod == category[1]),
                  c = sum(obs == category[1] & mod == category[2]),
                  d = sum(obs == category[2] & mod == category[2])), by = groupBy]

然后定义统计数据

my_exprs = quote(list(
 n    =  a+b+c+d,
 s    = (a+c)/(a+b+c+d),
 r    = (a+b)/(a+b+c+d))) 

如果我使用下面几行，它会给我一个新的数据表:

statList <- c("n","s")
w = which(names(my_exprs) %in% statList)
categorical[, eval(my_exprs[c(1,w)]), by = groupBy]

如何在此示例中使用：=将结果添加到我的旧DT中，这里称为分类？！我执行以下操作并收到错误消息：

categorical[, `:=`(eval(my_exprs[c(1,w)])), by = groupBy]


Error in `[.data.table`(categorical, , `:=`(eval(my_exprs[c(1, w)])),  : 
 In `:=`(col1=val1, col2=val2, ...) form, all arguments must be named.

谢谢，

Answer 1

我不能复制您的示例，但是保留您的< code>my_exprs可能有效，但是定义

my_newcols = as.call(c(quote(`:=`), my_exprs))

就像阿伦的答案一样。

或者，您可以在开始时使用＜code＞＝

my_newcols = quote(`:=`(n = a+b+c+d, s = a+c))