删除重复的元素

Question

我有charactervectorlist一个S：

my.list <- list(e1 = c("a","b","c","k"),e2 = c("b","d","e"),e3 = c("t","d","g","a","f")) 

而且我正在寻找一个function，对于出现比整个list的vector一度以上（在任何character每个vector一个character只能出现一次），只会保持第一次出现。

这个例子的结果列表将因此会：

res.list <- list(e1 = c("a","b","c","k"),e2 = c("d","e"),e3 = c("t","g","f")) 

注意，可能的是，在list整个vector被消除，使得元件在所得list数量不一定必须等于输入list。

Answer 1

我们可以unlist的list，使用duplicated得到一个逻辑list并使用mapply与setdiff和Reduce替代提取基于逻辑索引

un <- unlist(my.list) 
res <- Map(`[`, my.list, relist(!duplicated(un), skeleton = my.list)) 
identical(res, res.list) 
#[1] TRUE 

Answer 2

这里my.list'的元素。

# make a copy of my.list 
res.list <- my.list 
# take set difference between contents of list elements and accumulated elements 
res.list[-1] <- mapply("setdiff", res.list[-1], 
            head(Reduce(c, my.list, accumulate=TRUE), -1)) 

保持列表的第一个元素，我们计算在后续的元件和通过与Reduce产生c元件的累积的向量和accumulate=TRUE参数的列表。 head(..., -1)删除包含所有元素的最终列表项，以便长度对齐。

这将返回

res.list 
$e1 
[1] "a" "b" "c" "k" 

$e2 
[1] "d" "e" 

$e3 
[1] "t" "g" "f" 

注意，在Reduce，我们可以用function(x, y) unique(c(x, y))取代c和完成同样的总产量。