string - 替换列表的一部分

Question

有没有一种简单的方法可以用另一个字符串列表替换字符向量中的字符串子列表？就像是

gsub(c("a","b"),c("z","y"),a)

或者

replace(a,c("a","b"),c("z","y"))

不幸的是，这两个都不起作用？

Answer 1

如果您只是替换单个字符，那么chartr可能正是您要查找的内容：

> chartr( "ab", "zy", "abababa")
[1] "zyzyzyz"

这个问题可能也很有趣。

Answer 2

一个简单的循环 usinggsub就足够了，并且在大多数情况下可能会执行得很好：

a <- c("x","y")
b <- c("a","b")
vec <- "xy12"

 mgsub <- function(pattern,replacement,x,...){
    for (i in seq_along(pattern)){
        x <- gsub(pattern = pattern[i],replacement = replacement[i],x,...)
    }
    x
 }

> mgsub(a,b,vec)
[1] "ab12"

Answer 3

我可以发誓在 R 中有一个递归应用，确实​​有，但它做了一些非常不同的事情。

无论如何，这是一个：

#' Iteratively (recursively) apply a function to its own output
#' @param X a vector of first arguments to be passed in
#' @param FUN a function taking a changing (x) and an initial argument (init)
#' @param init an argument to be "worked on" by FUN with parameters x[1], x[2], etc.
#' @return the final value, of the same type as init
#' @example
#' vec <- "xy12"
#' replacementPairs <- list( c("x","a"), c("y","b") )
#' iapply( replacementPairs , FUN=function(repvec,x) {
#'   gsub(repvec[1],repvec[2],x)
#' }, init=vec )
iapply <- function(X, FUN, init, ...) {
  res <- init
  for(x in X) {
    res <- FUN(x, res, ...)
  }
  res
}

该示例返回"ab12".