r语言 - 使用 str_replace 进行数百次拼写更正

Question

我正在寻找一种更有效的方法来替换大量字符串。我基本上是在整个 df 上运行手动拼写检查，其中更正拼写错误的响应/拼写错误：

df <- df %>%
mutate_all(funs(str_replace(., "^anker$", "anchor"))) %>%
mutate_all(funs(str_replace(., "^baloon$", "balloon"))) %>%
mutate_all(funs(str_replace(., "^celeary$", "celery"))) %>%
mutate_all(funs(str_replace(., "^dear$", "deer")))

这很好用，我已经完成了查找我想要更改的所有内容的繁琐工作，但是像这样复制和粘贴相同的代码行(用于数百次更正(并不漂亮。有没有办法将 df 输入str_replace以获得类似的结果？我在想这样的事情：

"Spell_check_df" that looks like this:
responses     correction
---------------------------
1. ^anker$       anchor       
2. ^baloon$      balloon
3. ^celeary$     celery
4. ^dear$        deer

df <- df %>%
mutate_all(funs(str_replace(Spell_check_df, responses, correction)))

任何帮助将不胜感激 - 我似乎无法让它工作。显然，我希望将回复和更正联系在一起。

Answer 1

spell_check_vec <- Spell_check_df$correction
names(spell_check_vec) <- Spell_check_df$responses
str_replace_all(.,spell_check_vec)