如何交叉引用 data.table 中的列

Question

我需要从 data.table 中的列交叉引用到其中的多个其他列。作为一个例子，我有：

library(data.table) 

dt = data.table(mtcars)
sub = dt[1:3]
sub[, v1 := ('vs', 'am', 'gear')]
head(dt) 
mpg     cyl disp    hp  drat    wt      qsec    vs  am  gear    carb
21.0    6   160    110  3.90    2.620   16.46   0   1   4        4
21.0    6   160    110  3.90    2.875   17.02   0   1   4        4
22.8    4   108    93   3.85    2.320   18.61   1   1   4        1

所以列 v1 包含应该采用哪一列的值的信息。因此，对于 sub 我想要一个具有值的新列： 第 1 行：第一行的“vs”列中的值 第 2 行：第二行中“am”列的值 第 3 行：“齿轮”第三行的值 简而言之，像

这样的 data.table

mpg    cyl  disp hp     drat    wt      qsec    vs  am  gear carb   v1  v2
21.0    6   160  110    3.90    2.620   16.46   0   1   4    4      vs  0
21.0    6   160  110    3.90    2.875   17.02   0   1   4    4      am  1 
22.8    4   108  93     3.85    2.320   18.61   1   1   4    1    gear  4

不幸的是

sub[, v2 := get(value))]

或

sub[, v2 := get((sub$value))] 

不会导致解决方案，因为 v2 将等于 [0,0,1] 但不等于 [0,1,4] 在此先感谢

Answer 1

好的，这比我想象的要容易，但是对于任何想要在各自的专栏中实现类似分组的人来说都解决了我的问题。所以解决方案是：

sub[, v2 := get(c(value)), by = value]

这会导致预期的结果：

head(sub[, .(mpg, v1, v2 )]
mpg     v1      v2
21.0    vs      0
21.0    am      1
22.8    gear    4