本文介绍了谷歌翻译通过网络抓取 r的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我有一个包含 1000 条俄语文本的列表,想在 R 中将其转换为英语.我知道有一些用于谷歌翻译的 R 包,但这需要 API.现在获得 google API 是付费的.在 Excel VBA 中,我有一个宏可以访问谷歌翻译网站并进行转换.见下面的网址和参数-

I have a list of 1000 text in Russian language and want to convert it to English in R. I know there are some R packages for google translate but that requires API. And getting google API is paid now. In Excel VBA, I have a macro which visits google translate website and converts it. See the URL and parameters below -

getParam = "Прием (осмотр, консультация) врача-инфекциониста первичный"
translateFrom = "ru"
translateTo = "en"

URL = "https://translate.google.pl/m?hl=" & translateFrom & "&sl=" & translateFrom & "&tl=" & translateTo & "&ie=UTF-8&prev=_m&q=" & getParam

在 R 中可以做同样的事情吗?

Can same thing be done in R?

推荐答案

这里有一个解决方案,

library(RCurl)
library(XML)

getParam = "Прием (осмотр, консультация) врача-инфекциониста первичный"
translateFrom = "ru"
translateTo = "en"

search <- gsub(" ", "%20", getParam)

URL <- paste("https://translate.google.pl/m?hl=",translateFrom,"&sl=",translateFrom,"&tl=",translateTo,"&ie=UTF-8&prev=_m&q=",search,sep="")

page <- getURL(URL)

tree <-htmlTreeParse(page)

body <- tree$children$html$children$body

body_text <- body$children[[5]]$children[[1]]

print(body_text)

您可以从这个 问题.

这篇关于谷歌翻译通过网络抓取 r的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!

08-01 04:26
查看更多