R语言实现批量翻译

现实研究过程中，常会遇到将图片中的英文转化为中文，或是将文件中的英文批量转为中文，方便进一步研究。下面介绍在R语言中实现。

使用fanyi包：注意代码中appid和key需要替换成自己从有道网站上申请的。

#Translate
install.packages("fanyi")
help(package="fanyi")
library(fanyi)
set_translate_option(appid = 'XXXXXXXXXXXXX', 
                     key = 'XXXXXXXXXXXXXXX', 
                     source = 'youdao')
translate("If you're a Windows Subsystem for Linux user run the following in your terminal, then follow the onscreen instructions to install Rust.", from = 'en', to = 'zh')

使用函数或者for循环实现批量翻译

a=c("apple","abstract")
translate_result <- sapply(a, function(text) {  
  translate(text, from = 'en', to = 'zh')  
})