如何使用dplyr替换R中的多个字符？

Question

我写了一个函数寻找如下：

special_char <- function(data_in) { 
    data_in=gsub("à","a",data_in) 
    data_in=gsub("â","a",data_in) 
    data_in=gsub("é","e",data_in) 
    data_in=gsub("î","i",data_in) 
    data_in=gsub("ä","ae",data_in) 
    data_in=gsub("ö","oe",data_in) 
    data_in=gsub("ü","ue",data_in) 
    data_in=gsub("imp.","impessa",data_in) 
    data_in=gsub("ch.","chemin",data_in) 
    data_in=gsub("av.","avenue",data_in) 
    data_in=gsub("str.","strasse",data_in) 

    return(data_in) 
} 

然后，我尝试把它在我的数据集使用。

some_data %>% mutate_all(funs(special_char(.))) 

然而，输出是一团糟。有人注意到我的方法中有一个明显的错误吗？

假设我有以下输入：

data_test <- data.frame(col1 = c("Céline", "Désiré", "Björn")) 

我希望得到以下的输出：

c("Celine", "Desire", "Bjoern") 

Answer 1

这个工作对我来说：

some_data %>% mutate_all(funs(special_char)) 

我希望这也为您解决问题。如果不是，你的数据是什么样的？

Florian