提升特定代码效率：base R中替代for循环实现数据框列赋值方案

最优无循环向量化方案（效率最高，无需apply族） #

你可以直接利用R命名向量的索引特性，或者原生match()函数实现，全程无循环、完全基于base R：

方案1：反转映射后直接索引 #

# 反转现有映射：编码作为向量名，对应可读文本作为向量值
code_map <- setNames(names(tempAssessmentCodes), tempAssessmentCodes)
# 直接用assessment列索引赋值，一行完成
rawDisp$assessText <- code_map[as.character(rawDisp$assessment)]

方案2：用match()函数直接匹配（无需反转映射） #

# match返回待匹配值在参考向量中的位置，直接提取对应名称即可
rawDisp$assessText <- names(tempAssessmentCodes)[match(rawDisp$assessment, tempAssessmentCodes)]

apply族实现方案 #

如果需要用apply系列函数实现，可通过sapply()遍历assessment列完成匹配：

rawDisp$assessText <- sapply(rawDisp$assessment, function(x) {
  # 加[1]避免同一编码匹配到多个结果时报错
  names(tempAssessmentCodes)[tempAssessmentCodes == x][1]
})

注意：你当前构造的参考向量中存在同一个编码对应多组映射的情况，匹配时默认取第一个符合条件的结果，建议提前对参考向量做去重处理避免歧义：

# 保留每个编码的第一个映射规则，去重后再使用
tempAssessmentCodes <- tempAssessmentCodes[!duplicated(tempAssessmentCodes)]

内容的提问来源于stack exchange，提问作者Todd Camnitz