如何用lapply高效替换列表指定位置元素：抽样不重复原取值

需求说明 #

需要对向量word中由positions指定索引位置的元素进行替换，替换值从列表letters中随机抽样选取，核心要求是替换后的元素不能与原位置元素相同（因letters与word存在值重叠，直接抽样可能出现与原值一致的情况）。

当前使用循环代码可实现需求，但效率极低（元素替换顺序不影响结果），尝试用apply系列函数解决但未找到可行方案。

示例数据 #

word <- c("A","E","C","A","R","O","P")
positions <- c(1,5,3,7)
letters <- c("A","B","C","D","E","F")

当前低效循环代码 #

for (i in 1:length(positions)){
  temp <- word[[positions[i]]] 
  word[[positions[i]]] <- sample(letters, 1)
  while (word[[positions[i]]] == temp) {
    word[[positions[i]]] <- sample(letters, 1) 
  }
}

高效解决方案 #

直接针对每个需要替换的位置，先排除原元素再抽样，避免反复试错的while循环，同时用批量处理替代逐个循环：

# 获取待替换位置的原始值
original_values <- word[positions]
# 为每个原始值从letters中排除自身后随机抽取1个替换值
new_values <- sapply(original_values, function(x) sample(setdiff(letters, x), 1))
# 批量替换指定位置的元素
word[positions] <- new_values

方案优势 #

• 避免了循环中while反复抽样的低效操作，通过setdiff直接过滤掉原元素，一次抽样即可得到符合要求的替换值
• 采用sapply批量处理所有待替换位置，比逐个循环的执行效率更高
• 逻辑清晰，代码简洁易维护

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