你有没有感觉从网上爬下数据后，很多时候不是自己想要的格式或语言，很多时候想要电脑实现自己读文章的功能，甚至，想要分析一篇文章的情绪，那么R语言中的 “AWS”数据包，就是最好的朋友之一。
当需要电脑读出文本时 “aws polly”
首先安装新版本的数据包
install.packages(“aws.polly”, repos = c(getOption(“repos”), “http://cloudyr.github.io/drat"))
然后，声音的数据包
install.packages(“tuneR”)
设置路径
keyTable <- read.csv(“accessKeys.csv”, header = T) # accessKeys.csv == the CSV downloaded from AWS containing your Acces & Secret keys
AWS_ACCESS_KEY_ID <- as.character(keyTable$Access.key.ID)
AWS_SECRET_ACCESS_KEY <- as.character(keyTable$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 <- synthesize(“I did it, so glade to have it finnally.”, voice = “Joey”)
是不是，英文读起来听不太懂？那么，让我们来使用翻译的功能
数据包安装
install.packages(“aws.translate”, repos = c(getOption(“repos”), “http://cloudyr.github.io/drat"))
设置路径
keyTable <- read.csv(“accessKeys.csv”, header = T) # accessKeys.csv == the CSV downloaded from AWS containing your Acces & Secret keys
AWS_ACCESS_KEY_ID <- as.character(keyTable$Access.key.ID)
AWS_SECRET_ACCESS_KEY <- as.character(keyTable$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 <- read.csv(“accessKeys.csv”, header = T) # accessKeys.csv == the CSV downloaded from AWS containing your Acces & Secret keys
AWS_ACCESS_KEY_ID <- as.character(keyTable$Access.key.ID)
AWS_SECRET_ACCESS_KEY <- as.character(keyTable$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.”)
自从开始学码代码，就爱上了，这是人类目前拥有的最强大的工具之一，因为科技，工作效率已然大大提高，连心情，都因科技而变的美好，这是来自未来的惊喜～
