替换为向量

Question

我有一个包含所有辅音的向量，我希望在给定的数据框中用“C”替换每个辅音。假设我的数据框是下面的 x:

   x <- c("abacate", "papel", "importante")

    v <- c("a", "e", "i", "o", "u")
    c <- c("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "y",     "z")

    find    <- c
    replace <- "C"
    found   <- match(x, find)

    ifelse(is.na(found), x, replace[found])

这是行不通的。谁能告诉我问题出在哪里以及如何解决？

谢谢

Answer 1

正则表达式 (gsub) 通常要灵活得多，但对于特定问题，您还可以使用运行速度更快的 chartr 函数:

old <- c("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n",
         "p", "q", "r", "s", "t", "v", "w", "x", "y", "z")
new <- rep("C", length(old))
chartr(paste(old, collapse = ""),
       paste(new, collapse = ""), x)