Làm cách nào để tìm các phần tử phổ biến từ nhiều vectơ?

Question

Bất cứ ai có thể cho tôi biết cách tìm các yếu tố chung từ nhiều vectơ?

a <- c(1,3,5,7,9) 
b <- c(3,6,8,9,10) 
c <- c(2,3,4,5,7,9) 

Tôi muốn để có được những yếu tố phổ biến từ các vectơ trên (ví dụ: 3 và 9)

Answer 1

Có thể có một cách thông minh để đi về việc này, nhưng

intersect(intersect(a,b),c) 

sẽ làm công việc.

EDIT: khéo léo hơn, và thuận tiện hơn nếu bạn có rất nhiều đối số:

Reduce(intersect, list(a,b,c)) 

Answer 2

Một câu trả lời tốt rồi, nhưng có một vài cách khác để làm điều này:

unique(c[c%in%a[a%in%b]]) 

hay,

tst <- c(unique(a),unique(b),unique(c)) 
tst <- tst[duplicated(tst)] 
tst[duplicated(tst)] 

bạn rõ ràng là có thể bỏ qua unique cuộc gọi nếu bạn biết rằng không có các giá trị lặp lại trong phạm vi a, b hoặc c.

Answer 3

intersect_all <- function(a,b,...){ 
    all_data <- c(a,b,...) 
    require(plyr) 
    count_data<- length(list(a,b,...)) 
    freq_dist <- count(all_data) 
    intersect_data <- freq_dist[which(freq_dist$freq==count_data),"x"] 
    intersect_data 
} 


intersect_all(a,b,c) 

CẬP NHẬT EDIT Một mã đơn giản

intersect_all <- function(a,b,...){ 
    Reduce(intersect, list(a,b,...)) 
} 

intersect_all(a,b,c)