如何使用R语言实现翻译、读文本及分析功能

你有没有感觉从网上爬下数据后，很多时候不是自己想要的格式或语言，很多时候想要电脑实现自己读文章的功能，甚至，想要分析一篇文章的情绪，那么R语言中的 “AWS”数据包，就是最好的朋友之一。

当需要电脑读出文本时 “aws polly”

首先安装新版本的数据包

install.packages(“aws.polly”, repos = c(getOption(“repos”), “http://cloudyr.github.io/drat"))

然后，声音的数据包

install.packages(“tuneR”)

设置路径

keyTable

AWS_ACCESS_KEY_ID

AWS_SECRET_ACCESS_KEY

激活

Sys.setenv(“AWS_ACCESS_KEY_ID” = AWS_ACCESS_KEY_ID,

“AWS_SECRET_ACCESS_KEY” = AWS_SECRET_ACCESS_KEY,

“AWS_DEFAULT_REGION” = „your“ region)

调用数据包library(“aws.polly”)

Listed all available voices by using following code:

list_voices()

最后，我们就可以用joey的声音读起来啦

vec

是不是，英文读起来听不太懂？那么，让我们来使用翻译的功能

数据包安装

install.packages(“aws.translate”, repos = c(getOption(“repos”), “http://cloudyr.github.io/drat"))

设置路径

keyTable

AWS_ACCESS_KEY_ID

AWS_SECRET_ACCESS_KEY

激活

Sys.setenv(“AWS_ACCESS_KEY_ID” = AWS_ACCESS_KEY_ID,

“AWS_SECRET_ACCESS_KEY” = AWS_SECRET_ACCESS_KEY,

“AWS_DEFAULT_REGION” = „your“ region)

调用数据包 library(“aws.translate”), 然后就可以将德语转换成英文啦！

translate(“guten tag!”, from = “de”, to = “en”)

分析文章

安装数据包

install.packages(“aws.comprehend”, repos = c(cloudyr = “http://cloudyr.github.io/drat", getOption(“repos”)))

设置路径

keyTable

AWS_ACCESS_KEY_ID

AWS_SECRET_ACCESS_KEY

激活

Sys.setenv(“AWS_ACCESS_KEY_ID” = AWS_ACCESS_KEY_ID,

“AWS_SECRET_ACCESS_KEY” = AWS_SECRET_ACCESS_KEY,

“AWS_DEFAULT_REGION” = „your“ region)

调用分析数据包library(“aws.comprehend”)

detect_language(“This is a test sentence in English”)

检查这是什么语言

其他语言也是支持的，比如中文

detect_language(“你是谁?”)

对文字的情绪进行分析（太晚了是负面情绪吗？？？）

detect_sentiment(“Hey, It is so late!”)

句子也一样分析哦

detect_sentiment(“Chronicles the experiences of a formerly successful banker as a prisoner in the gloomy jailhouse of Shawshank after being found guilty of a crime he did not commit. The film portrays the man’s unique way of dealing with his new, torturous life; along the way he befriends a number of fellow prisoners, most notably a wise long-term inmate named Red.”)

自从开始学码代码，就爱上了，这是人类目前拥有的最强大的工具之一，因为科技，工作效率已然大大提高，连心情，都因科技而变的美好，这是来自未来的惊喜～