用apply填充数据框

Question

我想通过执行下面的脚本来填充数据框：

for(i in 1:3000) {
    adress=grep(nomcusip[i,1],Name2C[,"LName"])
    if(length(adress)>0 && !is.na(length(adress))) {
        for(j in 1:length(adress)) {
            nomcusip[i,1+j]=adress[j]
        }
    }
}

以下是数据框：

    V1
1   2122united natural foods
2   238 telecom limited
3   24 hour fitness
4   24/7 real media 
5   247media
...

我确信有一种方法可以更快地使用apply函数，但我不知道该怎么做。

有人可以告诉我吗？

非常感谢， 文森特