如何在R语言中匹配多列表元素并实现批量替换？

实现逻辑：当列表data中的元素与data_to_replace的元素相等时，将其替换为replacement的对应元素。每组三元列表的元素数量各不相同，但data_to_replace和replacement的长度始终相等（范围1到200）。

示例数据 #

data <- list("A-B", "C-D", "E-F", "G-H", "I-J")
data_to_replace  <- list("A-B", "C-D")
replacement <- list("B-A", "D-C")
# Note: The length(data_to_replace)  and length(replacement ) are always equal. Which may range from 1 to 200

注：这是极简示例，实际存在多组此类三元列表，每组元素数量不同。

预期结果 #

data_new <- list("B-A", "D-C", "E-F", "G-H", "I-J")

尝试的代码（替换逻辑未生效） #

## function that reverses a string by words
reverse_words <- function(string) {
  ## split string by blank spaces
  string_split <- strsplit(as.character(string), split="-")
  ## How many split terms?
  string_length <- length(string_split[[1]])
  ## decide what to do
  if (string_length == 1) {
    ## one word (do nothing)
    reversed_string <- string_split[[1]]
  } else {
    ## more than one word (collapse them)
    reversed_split <- string_split[[1]][string_length:1]
    reversed_string <- paste(reversed_split, collapse="-")
  }
  ## output
  return(reversed_string)
} 

## Replacement
replacement <- lapply(data_to_replace, reverse_words)
data_new <- rapply(data, function(x) {
  replace(x, x == data_to_replace, replacement) ## This last line did not work
})

正确实现方法 #

方法1：向量匹配法（效率最优） #

将列表转为向量处理，利用match快速定位匹配位置，适合元素数量较多的场景：

# 转向量简化操作
data_vec <- unlist(data)
replace_vec <- unlist(data_to_replace)
replacement_vec <- unlist(replacement)

# 获取匹配位置
match_pos <- match(data_vec, replace_vec)
# 执行替换：有匹配则用对应替换值，无匹配保留原元素
data_new_vec <- ifelse(!is.na(match_pos), replacement_vec[match_pos], data_vec)
# 转回列表格式
data_new <- as.list(data_new_vec)

方法2：循环遍历替换 #

保持列表结构直接操作，逐个检查并替换目标元素：

data_new <- data
for (i in seq_along(data_to_replace)) {
  # 找到data中与当前替换项匹配的位置
  match_pos <- which(sapply(data, function(x) x == data_to_replace[[i]]))
  # 替换对应位置元素
  data_new[match_pos] <- replacement[i]
}

方法3：优化原rapply逻辑 #

修正原代码中单个元素与整个列表比较的错误，改为精准匹配单个替换项：

replacement <- lapply(data_to_replace, reverse_words)
data_new <- lapply(data, function(x) {
  # 查找当前元素在替换列表中的索引
  match_idx <- which(sapply(data_to_replace, function(y) y == x))
  # 有匹配则替换，否则返回原元素
  if (length(match_idx) > 0) replacement[[match_idx]] else x
})

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