R语言中怎么调用有道翻译，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。
目前创新互联公司已为成百上千的企业提供了网站建设、域名、虚拟主机、绵阳服务器托管、企业网站设计、安徽网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
方法一：
url<-paste("http://fanyi.youdao.com/openapi.do?keyfrom=JustForTestYouDao&key=498375134&type=data&doctype=json&version=1.1&q=",word,sep="")
url<-youdaoUrl(word=word,api="498375134",keyfrom="JustForTestYouDao")
以上两句等价。
Res<-c()
for( i in word){
Res[i] = youdaoLookUp(i,api="282671603",keyfrom="fy1991--421fy")
}
以上使用for循环，结合包内的查询函数，可获取查询结果向量。
其实我是觉得这样的不加筛选的输出不够友好，看了下源码里面的封装函数，稍微做了些改动，以下是方法二。
方法二：
youdaoUrl = function(word){
paste("http://fanyi.youdao.com/openapi.do?keyfrom=fy1991--421fy&key=282671603&type=data&doctype=json&version=1.1&q=",word,sep="")
}
youdaoTranslate<-function(word){
url = getURL(youdaoUrl(word))
obj = fromJSON(url)
result=paste0(obj$web[[1]]$value,collapse="；")
return(result)
}
以上构造了两个函数，一个提供单词的URL地址匹配，一个提供查询结果。
sapply(word,youdaoTranslate,simplify=TRUE)
这里结果摒弃for循环，使用内置的apply组函数sapply，懂行的都知道为什么！
以上经过我的进一步筛选，结果更加简洁，实用。
如果是遇到大批量的翻译需求，这种方式还是很能提高效率的，不过我还没有测试中文单词的翻译效果，有兴趣的大家可以自己玩。
你以为到这里就结束了吗？ NO！
后面还有好戏呢！
其实微软的excel更新至13版以后，也提供了调用有道在线翻译的服务。而且使用比较简单。以下是函数语句，不要被冗长的各种参数吓到了，你需要改的只是其中的单元格引用。（本例中位于中间位置的A2，记得用的时候是相对引用，否则填充后只能翻译首个单元格内容）。
本小编已经测试过了翻译结果，中英文互译效果相当棒，但是限制是：
单词翻译效果好，句子不行，水平还不如小编我，即便是那种带空格的短句、地名、人名也够呛。
=FILTERXML(WEBSERVICE("http://fanyi.youdao.com/translate?&i="&A2&"&doctype=xml&version"),"//translation")
看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注创新互联行业资讯频道，感谢您对创新互联的支持。