リストから値を削除する方法

Question

たとえば、a、b、c、d、eという5つのリストがあります。リスト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