一种更快的方法来查找和返回R中两个向量之间的字符匹配

Question

我有两个表，rfs19.122和TAIR10Func。我试图找到每个列之间的所有匹配，并将匹配附加到其中一个原始表。我想出了下面的for循环，但它很慢。有没有更快的方法来实现这一目标？

n <-nrow(rfs19.122)
matches <- matrix()
for (row in 1:n) {
    position<-grep(paste('^', rfs19.122$Gene[row], sep=''), TAIR10Func$Function)
    matches[row]<-TAIR10Func$Function[position[1]]

}

rfs19.122$functions <-matches