For the past few years, tasks involving text and speech processing have become really hot-trendy. Among the various researches belonging to the fields of Natural Language Processing and Machine Learning, sentiment analysis ranks really high. Sentiment analysis allows identifying and getting subjective information from the source data using data analysis and visualization, ML models for classification, text mining and analysis. This helps to understand social opinions on the subject, so sentiment analysis is widely used in business and politics and usually conducted in social networks.
Nowadays, social nets and forums are the main stage for people sharing opinions. That is why they are so interesting for researches to figure out the attitude to one or another object. Sentiment analysis allows challenging the problem of analyzing textual data created by users on social nets, microblogging platforms and forums, as well as business platforms regarding the opinions the users have about some product, service, person, idea, and so on. In the most common approach, text can be classified into two classes (binary sentiment classification): positive and negative, but sentiment analysis can have way more classes involving multi-class problem. Sentiment analysis allows processing hundreds and thousands of texts in a short period of time. This is another reason for its popularity - while people need many hours to do the same work, sentiment analysis is able to finish it in a few seconds.
Sentiment analysis of the text data can be done via three commonly used methods: machine learning, using dictionaries, and hybrid.
Machine learning approach is one of the most popular nowadays. Using ML techniques and various methods, users can build a classifier that can identify different sentiment expressions in the text.
The main concept of this approach is using a bag of words with polarity scores, that can help to establish whether the word has a positive, negative, or neutral connotation. Such an approach doesn't require any training set to be used allowing to classify even a small amount of data. However, there are a lot of words and expressions that are still not included in sentiment dictionaries.
As is evident from the title, this approach combines machine learning and lexicon-based techniques. Despite the fact that it's not widely used, the hybrid approach shows more promising and valuable results than the two approaches used separately.
In this article, we will implement a dictionary-based approach, so let's deep into its basis.
All three are the sentiment dictionaries which help to evaluate the valence of the textual data by searching for words that describe emotion or opinion.
Before starting building sentiment analyzer, a few steps must be taken. First of all, we need to state the problem we are going to explore, understand its objective. Since we will use data from Donald Trump twitter, let’s claim our objective as an attempt to analyze which connotation his last tweets have.
As the problem is outlined, we need to prepare our data for examining.
Data preprocessing is basically an initial step in text and sentiment classification. Depending on the input data, various amount of techniques can be applied in order to make data more comprehensible and improve the effectiveness of the analysis. The most common steps in data processing are:
The first step in building our classifier is installing the needed packages. We will need the following packages that can be installed via command install.packages("name of the package") directly from the development environment:
As soon as all the packages are installed, let's initialize them.
library(twitteR) library(dplyr) library(splitstackshape) library(tidytext) library(purrr)
We're going to get tweets from Donald Trump's account directly from Twitter, and that is why we need to provide Twitter API credentials.
api_key <- "----" api_secret <- "----" access_token <- "----" access_token_secret <- "----"
setup_twitter_oauth(api_key,api_secret,access_token,access_token_secret)
[1] "Using direct authentication"
And now it's time to get tweets from Donald Trump's account and convert the data into dataframe.
TrumpTweets <- userTimeline("realDonaldTrump", n = 3200)
TrumpTweets <- tbl_df(map_df(TrumpTweets, as.data.frame))
Here how our initial dataframe looks:
head(TrumpTweets)
text | favorited | favoriteCount | replyToSN | created | truncated | replyToSID | id | replyToUID | statusSource | screenName | retweetCount | isRetweet | retweeted | longitude | latitude |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
It was my great honor to host Canadian Prime Minister @JustinTrudeau at the @WhiteHouse today!πΊπΈπ¨π¦ https://t.co/orlejZ9FFs | FALSE | 17424 | NA | 2019-06-20 17:49:52 | FALSE | NA | 1141765119929700353 | NA | <a href="http://twitter.com/download/iphone" rel="nofollow">Twitter for iPhone</a> | realDonaldTrump | 3540 | FALSE | FALSE | NA | NA |
Iran made a very big mistake! | FALSE | 127069 | NA | 2019-06-20 14:15:04 | FALSE | NA | 1141711064305983488 | NA | <a href="http://twitter.com/download/iphone" rel="nofollow">Twitter for iPhone</a> | realDonaldTrump | 38351 | FALSE | FALSE | NA | NA |
“The President has a really good story to tell. We have unemployment lower than we’ve seen in decades. We have peop… https://t.co/Pl2HsZbiRK | FALSE | 36218 | NA | 2019-06-20 14:14:13 | TRUE | NA | 1141710851617034240 | NA | <a href="http://twitter.com/download/iphone" rel="nofollow">Twitter for iPhone</a> | realDonaldTrump | 8753 | FALSE | FALSE | NA | NA |
S&P opens at Record High! | FALSE | 43995 | NA | 2019-06-20 13:58:53 | FALSE | NA | 1141706991464849408 | NA | <a href="http://twitter.com/download/iphone" rel="nofollow">Twitter for iPhone</a> | realDonaldTrump | 9037 | FALSE | FALSE | NA | NA |
Since Election Day 2016, Stocks up almost 50%, Stocks gained 9.2 Trillion Dollars in value, and more than 5,000,000… https://t.co/nOj2hCnU11 | FALSE | 62468 | NA | 2019-06-20 00:12:31 | TRUE | NA | 1141499029727121408 | NA | <a href="http://twitter.com/download/iphone" rel="nofollow">Twitter for iPhone</a> | realDonaldTrump | 16296 | FALSE | FALSE | NA | NA |
Congratulations to President Lopez Obrador — Mexico voted to ratify the USMCA today by a huge margin. Time for Congress to do the same here! | FALSE | 85219 | NA | 2019-06-19 23:01:59 | FALSE | NA | 1141481280653209600 | NA | <a href="http://twitter.com/download/iphone" rel="nofollow">Twitter for iPhone</a> | realDonaldTrump | 20039 | FALSE | FALSE | NA | NA |
To prepare our data for classification, let's get rid of links and format dataframe in a way when only one word is in line.
TrumpTweets <- TrumpTweets[-(grep('t.co', TrumpTweets$'text')),]
TrumpTweets$'tweet' <- 'tweet' TrumpTweets <- TrumpTweets[ , c('text', 'tweet')] TrumpTweets <- unnest_tokens(TrumpTweets, words, text)
And this is how our dataframe looks now:
tail(TrumpTweets)
tweet | words |
---|---|
tweet | most |
tweet | of |
tweet | their |
tweet | people |
tweet | from |
tweet | venezuela |
head(TrumpTweets)
tweet | words |
---|---|
tweet | iran |
tweet | made |
tweet | a |
tweet | very |
tweet | big |
tweet | mistake |
It's obvious that dataframe also contains various words without useful content. So it's a good idea to get rid of them.
TrumpTweets <- anti_join(TrumpTweets, stop_words, by = c('words' = 'word'))
And here's the result:
tail(TrumpTweets)
tweet | words |
---|---|
tweet | harassment |
tweet | russia |
tweet | informed |
tweet | removed |
tweet | people |
tweet | venezuela |
head(TrumpTweets)
tweet | words |
---|---|
tweet | iran |
tweet | mistake |
tweet | amp |
tweet | record |
tweet | congratulations |
tweet | president |
Much better, isn't it?
Let's see how many times each word appears in Donald Trump's tweets.
word_count <- dplyr::count(TrumpTweets, words, sort = TRUE)
head(word_count)
words | n |
---|---|
day | 2 |
democrats | 2 |
enjoy | 2 |
florida | 2 |
iran | 2 |
live | 2 |
Now it's time to create some dataframe with sentiments that will be used for tweets classification. We will use bing dictionary although you can easily use any other source.
sentiments <-get_sentiments("bing") sentiments <- dplyr::select(sentiments, word, sentiment)
TrumpTweets_sentiments <- merge(word_count, sentiments, by.x = c('words'), by.y = c('word'))
Above we did a simple classification of Trump's tweets words using our sentiment bag of words. And this is how the result looks:
TrumpTweets_sentiments
words | n | sentiment |
---|---|---|
beautiful | 1 | positive |
burning | 1 | negative |
congratulations | 1 | positive |
defy | 1 | negative |
enjoy | 2 | positive |
harassment | 1 | negative |
hell | 1 | negative |
limits | 1 | negative |
mistake | 1 | negative |
scandal | 1 | negative |
strong | 1 | positive |
trump | 1 | positive |
Let's look at the number of occurrences per sentiment in tweets.
sentiments_count <- dplyr::count(TrumpTweets_sentiments, sentiment, sort = TRUE)
sentiments_count
sentiment | n |
---|---|
negative | 7 |
positive | 5 |
sentiments_sum <- sum(sentiments_count$'n')
sentiments_count$'percentage' <- sentiments_count$'n' / sentiments_sum
Let's now create an ordered dataframe for plotting counts of sentiments.
sentiment_count <- rbind(sentiments_count)
sentiment_count <- sentiment_count[order(sentiment_count$sentiment), ]
sentiment_count
sentiment | n | percentage |
---|---|---|
negative | 7 | 0.5833333 |
positive | 5 | 0.4166667 |
And now it's time for the visualization. We will plot the results of our classifier.
sentiment_count$'colour' <- as.integer(4)
barplot(sentiment_count$'n', names.arg = sentiment_count$'sentiment', col = sentiment_count$'colour', cex.names = .5)
barplot(sentiment_count$'percentage', names.arg = sentiment_count$'sentiment', col = sentiment_count$'colour', cex.names = .5)
Sentiment analysis is a great way to explore emotions and opinions among the people. Today we explored the most common and easy way for sentiment analysis that is still great in its simplicity and gives quite an informative result. However, it should be noted that different sentiment analysis methods and lexicons work better depending on the problem and text corpuses.
The result of the dictionary-based approach also depends much on the matching between the used dictionary and the textual data needed to be classified. But still, user can create own dictionary that can be a good solution. Despite this, dictionary-based methods usually show much better results than more compound techniques.