给定的示例字符串:

tst_str <- c("abc", "123", "klm", "lop")

我想进行以下替换:

• abc -> za12
• 123 -> poi
• klm -> uyt

预期结果

简单嵌套 gsub 呼叫传递结果:

gsub(
    pattern = "abc",
    replacement = "za12",
    x = gsub(
        pattern = "123",
        replacement = "poi",
        x = gsub(
            pattern = "klm",
            replacement = "uyt",
            x = tst_str
        )
    )
)
# [1] "za12" "poi"  "uyt"  "lop" 

问题

我想用 purrr::map* 或 purrr::reduce 功能。我最初的想法是利用 purrr::reduce2

purrr::reduce2(
    .x = c("abc", "123", "klm"),
    .y = c("za12", "poi", "uyt"),
    .f = function(x, y, init) {
        gsub(pattern = x,
             replacement = y,
             x = init)
    },
    .init = tst_str
)

显然,这不是正确的方法:

警告消息:在gsub(pattern=x,replacement=y,x=init)中:
参数“pattern”的长度为1,只有第一个元素 习惯于

笔记

• 解决方案必须基于 purrr:: 或其他 Higher Order Function

  • do.call 也可以

• 这个问题不实际; multigsub 类似的功能很容易解决这类任务。