Description Usage Arguments Details Examples
When are people's attitudes? Emotional valence of Tweets on certain Topic.
1 2 | twitterEmotionalValence(tweets, title = "AUD/USD",
dir = "~/analytics/common/", fontsize = 10)
|
tweets |
a list of corpus and data.frame of tweets retreived from |
title |
title to be added to the results plots |
dir |
directory to save the plots |
fontsize |
font size |
Please use RQuantAPI
for twitter data retrieval
1 2 3 4 5 6 7 8 9 10 11 12 | setupTwitterConn()
tweets <- tweet_corpus_chunck(search = "aud+usd", n = 50000, chunck_size = 7, total_size = 90, until = Sys.Date())
saveRDS(tweets, '~/analytics/Workspace/Tweets.RDS')
tweets = readRDS('~/analytics/Workspace/Tweets.RDS')
emotion = twitterEmotionalValence(tweets, "AUD/USD")
emotion$orig$text_raw[which.max(emotion$orig$emotionalValence)]
emotion$orig$text_raw[which.min(emotion$orig$emotionalValence)]
emotion$emotionDailyPlot
emotion$emotionPlotDailyBox
emotion$emotionPlot
emotion$emotionPlotViolin
emotion$wc_filename
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.