我正在尝试在存储在列表列中的向量之间执行集合操作,例如 this .
DT <- data.table(exp = c("exp1", "exp2", "exp2"),
sample = c(1L, 1L, 2L),
listdata = list(c(2L,5L), c(2L,3L,5L,7L), c(1L,2L,6L)))
> DT
exp sample listdata
1: exp1 1 2,5
2: exp2 1 2,3,5,7
3: exp2 2 1,2,6
虽然很麻烦,但我可以做
DT$inc = list(setdiff(unlist(DT$listdata[2]), unlist(DT$listdata[1])))
并获取值为 c(3,7)
的新列表列。但是如果我尝试使用
DT$inc = list(list(setdiff(unlist(DT$listdata, recursive = FALSE), unlist(DT$listdata[1]))))
期待一个新列“inc”
0
c(3,7)
c(1,6)
我得到 c(3,7,1,6)
。显然 unlist
将整个列表列拼合在一起。知道发生了什么事吗?
我也在学习dplyr和data.table。因此,如果您可以使用其中之一提供解决方案,那将非常有帮助。
最佳答案
[...] I try to calculate the difference between the current row and the first row
好吧,你可以做...
DT[, inc := .(Map(setdiff, listdata, listdata[1L]))]
# exp sample listdata inc
# 1: exp1 1 2,5
# 2: exp2 1 2,3,5,7 3,7
# 3: exp2 2 1,2,6 1,6
但我认为不使用列表列要好得多。
不使用列表列可能看起来像...
DT[, r := .I]
DT2 = DT[,c(.SD[rep(.I, lengths(listdata))], .(v = unlist(listdata))), .SDcols=!"listdata"]
# exp sample r v
# 1: exp1 1 1 2
# 2: exp1 1 1 5
# 3: exp2 1 2 2
# 4: exp2 1 2 3
# 5: exp2 1 2 5
# 6: exp2 1 2 7
# 7: exp2 2 3 1
# 8: exp2 2 3 2
# 9: exp2 2 3 6
然后我们只需要处理这个数据集,就可以做到
DT2[!DT2[r==1L], on="v"]
# exp sample r v
# 1: exp2 1 2 3
# 2: exp2 1 2 7
# 3: exp2 2 3 1
# 4: exp2 2 3 6
关于r - 在列表列中设置操作,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/38796767/