pinyin: 把汉字转换成拼音的R包

R, pinyin, post

更新：2017-06-19，‘pinyin 1.0.2’ 在 CRAN 正式发布。

beginr::plotpkg(c("bookdownplus", "mindr", "pinyin", "beginr")[3], 
                from = c("2017-06-21", "2017-06-19", "2017-06-19", "2017-06-23")[3])

今天新写了个R包，粗暴地取名为 pinyin，作用是把汉字转换成拼音。

安装方法：

稳定版：

install.packages("pinyin")

devtools::install_github("pzhaonet/pinyin")

安装时可能会出现一些关于 locale 的警告，净吓唬人，无视。

使用方法：

pinyin 0.0.0版包含3个函数.pinyin()是主函数，可以把一个带汉字的字符串转换成拼音。可以选择:

  • 转换成标准的全拼 (默认 method = 'quanpin')，或
  • 以数字表示声调 (method = 'tone') , 或
  • 不含声调(method = 'toneless'),
  • 也可以选择仅保留每个字的首字母(only_first_letter = TRUE),
  • 可以自定义相邻两字拼音的分隔符号(sep = '_'),
  • 如果汉字字符串里边包含非汉字字符，可以选择将这些字符保留原样(nonezh_replace = NULL)还是转换成指定字符(如nonezh_replace = '-')。

举例如下：

library('pinyin')
pinyin('羌笛何须怨杨柳春风不度玉门关')
pinyin('羌笛何须怨杨柳春风不度玉门关', sep = ' ')
pinyin('羌笛何须怨杨柳春风不度玉门关', sep = ' ', method = 'tone')
pinyin('羌笛何须怨杨柳春风不度玉门关', sep = ' ', method = 'toneless')
pinyin('羌笛何须怨杨柳春风不度玉门关', sep = '', only_first_letter = TRUE)
pinyin('羌笛何须怨?杨柳春风,不度玉门关.', sep = '', nonezh_replace = '-')

如果自变量是多个字符串的向量，那么只会转换第一个字符串：

pinyin(c('羌笛何须怨杨柳', '春风不度玉门关'))

这怎么行？哎，用 sapply() 嘛：

sapply(c('羌笛何须怨杨柳', '春风不度玉门关'), pinyin)

其他两个函数，其实是 pinyin() 的延伸和示例：

  • file.rename2py()用来将文件名里的汉字转换成拼音。
  • bookdown2py()是专门为 bookdown 包服务的，作用是为章节的中文标题自动添加个对应的拼音ID {#biaotipinyin}，避免在生成网页文件时文件名里出现一大堆乱码，并且解决标题里中英文混合的问题。这事儿已经让我惦记三个月了。— 当然这事儿手动完全可以处理，只是手动处理的过程毫无乐趣可言罢了。

拼音库我试了好几个，最后选定了wangyanhan整理制作的42856字拼音表，直接处理文本文件，简单粗暴，转换起来可能有点慢，会顿一下，但已经够我自用了。

我写这个包的环境是 windows 7 下区域设置为中国，别的环境没测试，估计会有不少坑。我这里就有一些，比如不知道哪里设置有问题，包的函数里居然不能出现中文字符，弄得我自变量的默认值和example部分只好空着。再比如多音字的问题，目前完全没处理。所以，转换春眠不觉晓的结果会让人愣一下，再转换处处闻啼鸟……

结果好尴尬。

comments powered by Disqus