tìm các phần tử phổ biến trong một số vectơ với R và áp dụng hàm

Question

Tôi là một newbie R và tôi muốn đặt câu hỏi, mặc dù tiêu đề tương tự với các câu hỏi được đăng khác mà tôi không tìm thấy giải pháp trong đó. Câu hỏi của tôi là như sau: Tôi có một số vectơ với độ dài khác nhau và tôi muốn so sánh chúng theo cách hai chiều và áp dụng một hàm cho mỗi so sánh để tạo ra giá trị của các phần tử chung giữa các vectơ, ví dụ 4 vectơ có tên A, B, C, DI muốn tìm các phần tử chung giữa A và B, A và C, A và D, B và C, B và D, C và D.

Ví dụ chi tiết hơn ở đây (chỉ có hai vectơ):

Tôi có số lượng lớn vectơ và tôi không biết cách thực hiện vòng lặp để thực hiện so sánh cặp đôi.

Nhiều cảm ơn trước

Answer 1

Bạn có thể sử dụng outer

baseSet <- c('t','qt','er','oa','qra','ea','ew','ee','qwt') 
set.seed(0) 
A <- sample(baseSet, 5) 
B <- sample(baseSet, 5) 
C <- sample(baseSet, 5) 
D <- sample(baseSet, 5) 
dFun <- function(x,y){length(which(x%in%y))/min(length(x),length(y))} 

outer(list(A,B,C,D), list(A,B,C,D),Vectorize(dFun)) 
#  [,1] [,2] [,3] [,4] 
#[1,] 1.0 0.6 0.2 0.6 
#[2,] 0.6 1.0 0.4 0.6 
#[3,] 0.2 0.4 1.0 0.4 
#[4,] 0.6 0.6 0.4 1.0 

EDIT:

list.df <- list(A=A, B=B, C=C, D=D) 
outer(list.df, list.df, Vectorize(dFun)) 
# A B C D 
#A 1.0 0.6 0.2 0.6 
#B 0.6 1.0 0.4 0.6 
#C 0.2 0.4 1.0 0.4 
#D 0.6 0.6 0.4 1.0