r - Data.table:组合列(聚合的个别功能)

Question

我有一些类似的数据

foo <- data.table(uid=c("a","b", "c"), var1=c(T, F, F), var2=c(F, T, F))

我想融化(var1, var2)进入var3 ，使用使用以下聚合的函数:

• w IF var1 == T & var2 == T (否则:)
• x IF var1 == T
• y IF var2 == T
• z IF var1 == F & var2 == F

也就是说，给定我的 foo ，预期结果为

uid var3
  a    x
  b    y
  c    z

此外，foo 的任何附加列除了(var1, var2)应该接管到新的data.table

Answer 1

另一种方式是:

foo1 <- CJ(var1 = c(T,F), var2 = c(T,F))[, var3 := c('z', 'y', 'x', 'w')]
setkey(foo, var1, var2)

foo[foo1, var3 :=i.var3][order(uid)][, c(1L, 4L)]
#   uid var3
#1:   a    x
#2:   b    y
#3:   c    z