In Gabegit/gmdata: My some useful functions for data tools.

有两个相关的函数：conpare_pinyin()和search_easy_mistake()。目的是比较容易读错的词语，标出其注音。主要功能有：

• 比较相似的读音的词语
• 以拼音搜索词语
• 搜索容易读错的词语

函数用法

search_with_py(pinyin_vector)
compare_pinyin(pypairs)
search_easy_mistake(my_easy_mistake, onlyTheWord = FALSE)

几个例子

当然，别忘了先加载宏包，否则，就要迎接出错提示。我们只需这样：

library(gmdata)

以拼音搜索

• 精准搜索

search_with_py("fu")

• 比较搜索

search_with_py(c("fu","hu"))

• 模糊搜索

下面的列出搜索的结果有点长哦。

search_with_py("f")

比较拼音

• 比较一组拼音

pl <- list(c("lan","ren"),c("leng","reng"))
compare_pinyin(pl)

再比较一组长的、易错的。

pl2 <- list(c("lan","ran"),c("lao","rao"),c("le","re"),c("lou","rou"),c("liang","rang"),c("long","rong"), c("lun","run"),c("leng","reng"),c("luan","ru"))

compare_pinyin(pl2)

nl <- list(c("nei","lei"),c("len","nen"),c("luo","nuo"))
compare_pinyin(nl)

检索易错的词语

下面是本人容易读错的字。

• 几个例字

search_easy_mistake('初')

search_easy_mistake('婚')

search_easy_mistake('装')

• 只检索这个字本身，其他的相同读音的都省略

search_easy_mistake("除",onlyTheWord = TRUE)

• 列出一个较为完整的易错的字表

my_easy_mis <- c("审","互","复","环") 
lapply(my_easy_mis,search_easy_mistake)

Gabegit/gmdata documentation built on May 6, 2019, 5:32 p.m.