用gsub的重音替换多个字母

当然，我可以这样替换特定的参数：

    mydata=c("á","é","ó")
    mydata=gsub("á","a",mydata)
    mydata=gsub("é","e",mydata)
    mydata=gsub("ó","o",mydata)
    mydata

但是肯定有一种更简单的方法可以在线完成所有操作，对吗？我发现gsub在这方面的帮助不是很全面。

使用字符翻译功能

chartr("áéó", "aeo", mydata)

一个有趣的问题！我认为最简单的选择是设计一个特殊功能，例如“ multi” gsub（）：

mgsub <- function(pattern, replacement, x, ...) {
  if (length(pattern)!=length(replacement)) {
    stop("pattern and replacement do not have the same length.")
  }
  result <- x
  for (i in 1:length(pattern)) {
    result <- gsub(pattern[i], replacement[i], result, ...)
  }
  result
}

这给了我：

> mydata <- c("á","é","ó")
> mgsub(c("á","é","ó"), c("a","e","o"), mydata)
[1] "a" "e" "o"

也许这可能是有用的：

iconv('áéóÁÉÓçã', to="ASCII//TRANSLIT")
[1] "aeoAEOca"

您可以使用stringi包来替换这些字符。

> stri_trans_general(c("á","é","ó"), "latin-ascii")

[1] "a" "e" "o"

这与@kith非常相似，但采用函数形式，并且具有最常见的故障情况：

removeDiscritics <- function(string) {
  chartr(
     "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
    ,"SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
    , string
  )
}


removeDiscritics("test áéíóú")

“测试aeiou”

mgsub使用的另一种实现Reduce

mystring = 'This is good'
myrepl = list(c('o', 'a'), c('i', 'n'))

mgsub2 <- function(myrepl, mystring){
  gsub2 <- function(l, x){
   do.call('gsub', list(x = x, pattern = l[1], replacement = l[2]))
  }
  Reduce(gsub2, myrepl, init = mystring, right = T) 
}

上面的某些实现（例如Theodore Lytras的实现）存在的一个问题是，如果模式是多个字符，则在一个模式是另一个模式的子字符串的情况下，它们可能会冲突。解决此问题的一种方法是创建对象的副本并在该副本中执行模式替换。这在我的包bayesbio中实现，可在CRAN上获得。

mgsub <- function(pattern, replacement, x, ...) {
  n = length(pattern)
  if (n != length(replacement)) {
    stop("pattern and replacement do not have the same length.")
  }
  result = x
  for (i in 1:n) {
    result[grep(pattern[i], x, ...)] = replacement[i]
  }
  return(result)
}

这是一个测试用例：

  asdf = c(4, 0, 1, 1, 3, 0, 2, 0, 1, 1)

  res = mgsub(c("0", "1", "2"), c("10", "11", "12"), asdf)

不太优雅，但可以正常工作并满足您的要求

> diag(sapply(1:length(mydata), function(i, x, y) {
+   gsub(x[i],y[i], x=x)
+ }, x=mydata, y=c('a', 'b', 'c')))
[1] "a" "b" "c"

您可以使用该match功能。此处match(x, y)返回y元素x匹配位置的索引。然后，您可以使用返回的索引来子集另一个向量（例如z），该向量包含的值的替换项x，适当地与匹配y。在您的情况下：

mydata <- c("á","é","ó")
desired <- c('a', 'e', 'o')

desired[match(mydata, mydata)]

在一个简单的例子，考虑下面的情况，在那里我试图取代a的'alpha'，'b'对'beta'等的。

x <- c('a', 'a', 'b', 'c', 'b', 'c', 'e', 'e', 'd')

y <- c('a', 'b', 'c', 'd', 'e')
z <- c('alpha', 'beta', 'gamma', 'delta', 'epsilon')

z[match(x, y)]

与贾斯汀的答案有关：

> m <- c("á"="a", "é"="e", "ó"="o")
> m[mydata]
  á   é   ó 
"a" "e" "o" 

如果需要，您可以删除名称names(*) <- NULL。

在这种情况下，没有太多意义，但是如果它们只有两个，则还可以将它们与gsub结合使用：

mydata <- gsub("á","a", gsub("é","e",mydata))