R语言中精确匹配指定字符串
001、
dat <- read.table("test.txt") dat idx <- vector() for (i in 1:nrow(dat)) { if ("AKCR02000001" %in% dat[i,]) { idx <- c(idx, i) } } idx dat[idx,] ## 提取精确匹配的行
002、
dat <- read.table("test.txt") dat idx <- vector() for (i in 1:nrow(dat)) { if (length(grep("^AKCR02000001$", dat[i,])) != 0) { idx <- c(idx, i) } } idx dat[idx,] ## 结果文件