矢量化：如何才能在向量矢量中只有所有元素集合的集合差异？

Question

我有这样一个data.table：

dt=data.table(freq=c(4,3,2,1),elements=list(c('a','b','c'), 
              c('a','d'), 
              c('b','d'), 
              c('b','d','c','e'))) 
    freq elements 
1: 4 a,b,c 
2: 3  a,d 
3: 2  b,d 
4: 1 b,d,c,e 

我需要每一行中的元素是只有该行的元素和该行之前的集合中的所有元素的关节之间的差集。这样一来，我会得到这样的：

freq elements 
1: 4 a,b,c 
2: 3  d 
3: 2  NA 
4: 1  e 

我可以与该组中的所有元素做到这一点，直到我-1，只得到差集，但我真的想知道如何做到这一点的矢量化的方式，如果可能的话。

谢谢你们！

Answer 1

假设你的意思是有dt你的最后一排的一个“e”，那freq是唯一的（如果没有，创建唯一索引，或者用行）：

dt[, .(els = elements[[1]]), by = freq][ 
    , .(freq = freq[1]), by = els][ 
    , .(filtered = list(els)), by = freq][ 
    dt, on = 'freq'] 
# freq filtered elements 
#1: 4 a,b,c a,b,c 
#2: 3  d  a,d 
#3: 2  NULL  b,d 
#4: 1  e b,d,e