循环中使用ifelse更新R语言DataFrame失败的问题求助

原代码问题分析 #

你的代码未生效的核心原因有两点：

1. 每次循环时，ifelse的no分支使用原始的MedicationName列而非已更新的MedicationNameSimple，导致前一次循环的替换结果被覆盖。
2. 循环顺序会影响最终结果：如果某行匹配多个med_string，最后一次匹配的字符串会覆盖之前的替换值。

修正方案 #

方案1：修复循环逻辑 #

先初始化目标列，再仅更新匹配到的行，避免覆盖之前的结果：

# 初始化目标列为原始药物名称
meds$MedicationNameSimple <- meds$MedicationName

# 遍历med_strings，仅替换匹配的行
for (med_string in med_strings) {
  # 找出当前药物字符串匹配的行
  match_idx <- grepl(med_string, meds$MedicationName, ignore.case = TRUE)
  # 对匹配行进行替换
  meds$MedicationNameSimple[match_idx] <- med_string
}

方案2：使用dplyr+stringr高效处理（推荐） #

通过正则表达式一次性匹配提取，无需循环，效率更高：

library(dplyr)
library(stringr)

# 将med_strings拼接成正则匹配模式，匹配任意一个药物名称
med_regex <- str_c(med_strings, collapse = "|")

# 提取匹配的药物名称，统一为小写
meds <- meds %>%
  mutate(MedicationNameSimple = str_extract(tolower(MedicationName), med_regex))

效果验证 #

以你提供的样本数据为例：

• ONDANSETRON HCL (PF) 4 MG/2 ML INJECTION SOLUTION 会被替换为 ondansetron
• HYDROcodone-acetaminophen (NORCO) 7.5-325 mg tablet 会被替换为 hydrocodone
• venlafaxine (EFFEXOR XR) 150 mg 24 hr capsule 会被替换为 venlafaxine

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