Как сравнить 2 вектора по элементам с помощью цикла

Question

Я пытаюсь сравнить элементы из 2 векторов таким образом, но я получаю результат только для первого элемента.

 >ex1<-c('gdgdg','dd','fffff','ssdsds') 

     fuct1<-function(x){ 
     for(i in 1:length(x)){ 
      ex2<-c('xxxx','ddd','ddd','ddd','dddd') 
      match<-agrep(x[i],ex2[i],value='true') 
      return(match[i]) 
     } 
     } 

     >fuct1(ex1) 

На этом примере я хочу сравнить «gdgdg» и «XXXX» (первые элементы из каждого вектора) «dd'and„ДДД“(вторые) и так далее ... В результате я бы например, иметь что-то как (NA, ddd, NA, NA). Мой результат с моим кодом - это просто NA. Спасибо за помощь.

Answer 1

T думаю вы ищете mapply

mapply(agrep,ex1,ex2,value=TRUE) 

Но это предполагает, что ваши 2 вектора имеют одинаковую длину.

Answer 2

Вы хотите использовать sapply здесь:

ex2<-c('xxxx','ddd','ddd','ddd','dddd') 
sapply(ex1, function(x) agrep(x, ex2)) 

$gdgdg 
integer(0) 

$dd 
[1] 2 3 4 5 

$fffff 
integer(0) 

$ssdsds 
integer(0) 

Answer 3

Может быть, это то, что вы хотите:

ex1<-c('gdgdg','ddd','fffff','ssdsds') 
match<-"TROLOLOL" 
fuct1<-function(x){ 
for(i in 1:length(x)){ 
ex2<-c('xxxx','ddd','ddd','dddd') 
    match<-c(match,agrep(x[i],ex2[i],value=TRUE)) 
    } 
return(match) 
} 
fuct1(ex1)[-1] 
[1] "ddd" 

Вы можете выполнить это, если вы хотите Nas я думаю :)