如何從列表中刪除一個值，如果它沒有出現在任何其他列表中

Question

例如說，我有5個列表，名爲a，b，c，d，e。列表a包含[1,2,3,4,5]，列表b包含[2,3,4,5,6]，列表c包含[2,3,5,6,7]，列表d包含[2 ，4，5]，列表e包含[3,5,7]。

我使用的數據更加複雜，所以我需要找到一種方法來讀取每個列表中的每個值，檢查它是否存在於任何其他列表中，如果沒有，請將其從原始列表中刪除。所以當它讀取列表a時，它看到「1」不存在於任何其他列表中，因此應該從列表a中刪除「1」。

我該怎麼做呢？

謝謝！

Answer 1

# assuming you have a list of lists 
a=list(1, 2, 3, 4, 5);b=list(2, 3, 4, 5, 6);c=list(2, 3, 5, 6, 7);d=list(2,4,5);e=list(3,5,7) 
my_list = list(a,b,c,d,e) 

# first unlist each list 
my_list = lapply(my_list,unlist) 


n=length(my_list) 
new_list = lapply(seq(n), function(x) 
        {my_list[[x]][my_list[[x]] %in% unlist(my_list[-x])]}) 

輸出：

[[1]] 
[1] 2 3 4 5 

[[2]] 
[1] 2 3 4 5 6 

[[3]] 
[1] 2 3 5 6 7 

[[4]] 
[1] 2 4 5 

[[5]] 
[1] 3 5 7 

Answer 2

像這樣：

a <- c(1, 2, 3, 4, 5) 
b <- c(2, 3, 4, 5, 6) 
c <- c(2, 3, 5, 6, 7) 
d <- c(2, 4, 5) 
e <- c(3, 5, 7) 

僅保留在其他載體中的值：

a[a %in% b | a %in% c | a %in% d | a %in% e] 
[1] 2 3 4 5