好吧，我想明白了。如果其他人也有这个问题，就发布吧。如果你有一个样本和对照之间的相关矩阵，其中的值为1.0（完美匹配），并且只想提取一个非冗余的名称列表，其中包含一个匹配的对照，这应该可以工作：

corout<- cor(cases,controls)

corout <-as.data.frame(t(corout))

df2 <- as.data.frame(Filter(function(x) any(x == 1), corout))
temp <- apply(df2, 2, function(x) names(which(x == 1)))
temp.b<-as.data.frame(unlist(temp))

v <-vector()

for(i in temp){
    matching_control <- as.vector(str_split(as.vector(i), " "))
    
    for (j in 1:length(matching_control )) { 
        
        
        if((is.element(matching_control[j], v))){  
            
        } else 
            
            if(!is.element(matching_control[j], v)){ 
                v <-append(v, matching_control[j]) 
                break
                
                
            }    
    }
    
}

selected.matches <-unlist(v)
rm(v)

字符串