使用匿名函数替换字符向量元素未返回完整向量的问题排查

在R中，赋值操作x[索引] <- 值的返回结果是被赋的值，而不是修改后的向量x。你的匿名函数里只执行了这一条赋值语句，所以整个函数的返回值就是c("1", "2")，而非修改后的letters向量。

修正代码：返回完整修改后的向量 #

要让函数返回替换后的完整letters向量，你需要在匿名函数里先完成赋值，再显式返回x：

y <- letters |>
  (\(x) {
    x[stringr::str_which(x, "a|e")] <- c("1", "2")
    x
  })()

运行后y就是替换了a和e的完整26个字母向量。

针对你的实际需求：按顺序替换匹配的元素 #

比如你给出的例子a <- c("Q1", "Q6", "Q6")，要把第一个"Q6"换成"a"、第二个换成"b"，可以按以下逻辑实现：

1. 先用str_which定位所有匹配目标模式的元素位置
2. 给这些位置按顺序赋值对应的新值

基础写法 #

a <- c("Q1", "Q6", "Q6")
# 获取所有"Q6"的索引位置
match_pos <- stringr::str_which(a, "Q6")
# 按索引替换对应值
a[match_pos] <- c("a", "b")
# 结果：[1] "Q1" "a"  "b"

管道+匿名函数写法 #

如果偏好链式风格：

a <- c("Q1", "Q6", "Q6") |>
  (\(x) {
    pos <- stringr::str_which(x, "Q6")
    x[pos] <- c("a", "b")
    x
  })()

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