使用Grep函数和for循环

Question

我的代码出了问题。当ID值全部在标记矩阵中时，这适用于其他值，但是，如果ID中的值不在标记矩阵中，则会出现错误：

Error in IDintag[i] <- grep(ID[i], tag) : replacement has length zero

提前致谢

tag=NULL
ID=NULL

url <- readLines("http://www.afip.gob.ar/contacto")
tag <- as.matrix(grep("</strong>",url))
ID <- grep("correo",url)

for(i in 1:length(ID))
    {IDintag[i] <- grep(ID[i],tag)
    }

Answer 1

无需循环，您可以将%in%与which()

一起使用

url <- readLines("http://www.afip.gob.ar/contacto")
tag <- as.matrix(grep("</strong>",url))
ID <- grep("correo", url)

matrix(which(tag %in% ID))
#      [,1]
# [1,]    3
# [2,]    4
# [3,]    5