r - 如何处理 data.table 中的列表列

Question

在合并数据的过程中，我经常以列表列结束(例如，左表中的一行在右表中有多个匹配项)

让我们定义

DT = data.table(x=list(c(1,2),c(3,4,5)),y=list(c(T,T),c(T,F,T)),z=c(1,2),N=c(1L,2L))
#       x               y z N
#1:   1,2       TRUE,TRUE 1 1
#2: 3,4,5 TRUE,FALSE,TRUE 2 2

1. 是否可以就地修改 update x 为 x[y] ？

我可以做到，但不能更新(而且看起来很难看):

DT1 = DT[,list(x=list(unlist(x)[unlist(y)])),by=N]
DT = cbind(DT[,x:=NULL],DT1[,list(x)])
                 y z N   x
1:       TRUE,TRUE 1 1 1,2
2: TRUE,FALSE,TRUE 2 2 3,5

现在假设我定义了 mySet = c(1,5) 并想检查 x %in% mySet 列的值

1. 我该怎么做？

                    y z N   x isInMySet
   1:       TRUE,TRUE 1 1 1,2 TRUE,FALSE
   2: TRUE,FALSE,TRUE 2 2 3,5 FASLE,TRUE
   

Answer 1

另一种方法:

DT
       x               y z N
1:   1,2       TRUE,TRUE 1 1
2: 3,4,5 TRUE,FALSE,TRUE 2 2

DT[,x2:=mapply(`[`,x,y,SIMPLIFY=FALSE)]
DT
       x               y z N  x2
1:   1,2       TRUE,TRUE 1 1 1,2
2: 3,4,5 TRUE,FALSE,TRUE 2 2 3,5

DT[,isInMySet:=lapply(x2,`%in%`,c(1,5))]
DT
       x               y z N  x2  isInMySet
1:   1,2       TRUE,TRUE 1 1 1,2 TRUE,FALSE
2: 3,4,5 TRUE,FALSE,TRUE 2 2 3,5 FALSE,TRUE