R语言使用if语句与while循环获取匹配特定结果的前10条记录ID

• 第一版可运行代码仅存储了匹配到的应答结果文本，未在匹配触发的节点同步抓取对应行的受访者id，因此无法关联到目标记录
• 后续尝试的for循环存在两个根本性错误：一是R语言for循环语法要求必须将遍历元素绑定到自定义变量，直接将固定字符串写在循环变量位置本身不符合语法规则；二是循环内直接打印整个crimes$id列，没有和已筛选的10条记录的行位置做关联，会输出全量id，完全达不到匹配效果

# 初始化遍历所需的计数、指针、存储向量
x <- 0 
i <- 1
target_outcome <- "Investigation complete; no suspect identified"
# 预分配固定长度的存储向量，避免循环中动态扩容降低运行效率
no_sus <- character(10)
no_sus_id <- character(10)

# 逐行遍历的while循环
while (x < 10) { 
  # 边界判断：防止行指针超出数据集总长度引发报错
  if (i > nrow(crimes)) {
    break
  }
  # 匹配目标应答结果的if判断
  if (crimes$outcome_status_category[i] %in% target_outcome) {
    x <- x + 1
    # 匹配命中时，同时存储结果文本和对应行的受访者id
    no_sus[x] <- crimes$outcome_status_category[i]
    no_sus_id[x] <- crimes$id[i]
  }
  # 行指针后移，遍历下一条记录
  i <- i + 1
}

# 输出获取到的10条匹配记录对应的受访者id
print(no_sus_id)

• id和结果的位置完全匹配：所有存储id的操作都放在匹配成功的if分支内部，此时的行指针i正指向符合筛选条件的当前记录，抓取的crimes$id[i]和对应的no_sus[x]是同一条记录的两个字段，不会出现行错位
• 增加的边界判断是必要的：如果数据集内符合目标结果的记录不足10条，行指针会走到数据集范围外触发下标越界报错，加入i > nrow(crimes)的判断可以在遍历到数据集末尾时自动终止循环，避免程序崩溃
• 不要采用存完结果再反向匹配的思路：因为no_sus向量中所有元素都是完全相同的固定字符串，没有携带原记录的行位置标记，反向匹配会定位到全数据集所有符合该结果的记录，无法精准对应之前筛选出的前10条记录
• 整个实现完全满足要求：核心逻辑全部由while循环做逐行遍历，通过if语句完成匹配判断和分支操作，没有使用向量化筛选、内置筛选函数等替代逻辑

内容的提问来源于stack exchange，提问作者Crow-dy