使用plyr::mapvalues替换数据框多值时逗号分隔项失效的解决方法

需求说明 #

需要对数据框的A列执行值替换：将"1"替换为currently，"2"替换为in the past，且保留原有的逗号分隔格式。使用plyr::mapvalues仅能处理单个值，无法识别逗号分隔的多值内容，需更换实现方式。

原始数据 #

dput输出 #

structure(list(A= c("2", "1, 2", "2", "2"), B= c("2", 
"none", "1", "1")), row.names = 10:13, class = "data.frame")

表格形式 #

A            B 
10            2            2
11         1, 2         none
12            2            1
13            2            1

预期结果 #

A                   B 
10        in the past             2
11        currently, in the past  none
12        in the past             1
13        in the past             1

可行解决方案 #

方法1：使用stringr包批量替换（最简洁） #

借助stringr::str_replace_all，直接传入命名向量定义替换规则，自动匹配所有符合条件的子字符串：

library(stringr)

# 定义替换规则
replace_rules <- c("1" = "currently", "2" = "in the past")

# 执行替换
dt$A <- str_replace_all(dt$A, replace_rules)

方法2：基础R实现（无需额外包） #

用gsub依次替换目标值，同样能匹配逗号分隔的子内容：

# 替换"1"为"currently"
dt$A <- gsub("1", "currently", dt$A)
# 替换"2"为"in the past"
dt$A <- gsub("2", "in the past", dt$A)

方法3：拆分-替换-合并（灵活适配复杂格式） #

适合值的分隔规则或替换逻辑更复杂的场景，先拆分每个单元格的内容，替换后再合并：

# 按", "拆分每个单元格的内容
split_cols <- strsplit(dt$A, ", ")

# 对拆分后的每个子元素执行替换
replaced_cols <- lapply(split_cols, function(x) {
  ifelse(x == "1", "currently", ifelse(x == "2", "in the past", x))
})

# 合并回逗号分隔的字符串
dt$A <- sapply(replaced_cols, paste, collapse = ", ")

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