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,]     ## 结果文件