# Twitter data analysis in R

Like many other fans of the show, I had great expectations for the eighth and last season of Game of Thrones (GoT) that premiered on 14 April 2019. The much anticipated moment coincided with the few last days I spent finalising my last post on Bayesian models. Nonetheless, it provided a good testing ground for quantitative text analysis – by scouring and analysing tweets from the US in the course of the eighth and final GoT season, spanning the period between 7 April and 28 May 2019.

## Introduction

In many regards, this post will be very different from previous entries. While the focus is the usual R-based statistical analysis, data collection is also discussed in depth and this in turn begs for basic Unix / macOS terminal commands. MS Windows users can refer to VirtualBox or Ubuntu installations. In summary, this post will demonstrate how to

• Schedule a Twitter API program to harvest up to 100,000 tweets on a daily basis;
• Process and aggregate harvested tweets;
• Explore the resulting dataset using geocoding, document-feature and feature co-occurrence matrices, wordclouds and time-resolved sentiment analysis.

### Kaggle

The large size of the resulting Twitter dataset (714.5 MB), also unusual in this blog series and prohibitive for GitHub standards, had me resorting to Kaggle Datasets for hosting it. Kaggle not only literally offers a considerable storage capacity for both private and public datasets, but also both writing and reproducible execution of R and Python scripts, also called kernels or notebooks. Notably, execution is served with up to 16 GB RAM and 5 GB storage ATTOW.

You can find the dataset page here and download the files either manually or using the Kaggle API with the following command,

kaggle datasets download monogenea/game-of-thrones-twitter -p INSERT_PATH

The Twitter dataset gotTwitter.csv shows up under Data Sources along with the code used for data collection. The code was split between the complementary scripts harvest.R and process.R that deal with tweet harvest and processing, respectively. To glean some basic insights from the data, I also wrote a Get-Started kernel that you can re-run, fork or modify. You are welcome to publish your own kernel!

### The cron scheduler

Before turning to the R analysis I would like to introduce the cron scheduler. The cron is a convenient Unix scheduler that can assist with repeating tasks over regular time intervals, and a powerful tool for searching tweets using the Twitter API. To initialise a cron job you need to launch a text editor from the terminal by running crontab -e and add a line as shown below, before saving.

* * * * * INSERT_PATH_INTERPRETER INSERT_PATH_SCRIPT


The first five arguments separated by whitespace specify minute, hour, day of month, month and day of the week, respectively. An asterisk in place of any of the five instructs the job to be executed every such instance. Say, if you want a job to be run every Monday at 17:30 you could use 30 17 * * 1. Taking another example, if every tenth day of the month and every minute between 6:00 and 7:00, * 06 10 * *. One can additionally specify ranges (e.g. 00-14 in the first position for the first 15 minutes) or arrays (e.g. 01,05 in the second position for 1:00 and 5:00). This is testament to the versatility of the cron scheduler. Once the job is finished you can simply kill the scheduler by running crontab -r. If, however, you have additional unfinished jobs, enter the editor with crontab -e instead, delete the line above and save. More information about setting up a cron job can be found here.

### Sharing is caring

Much of this post will review, in finer detail, both harvest and processing steps as well as the analysis from the accompanying kernel. Due to the large volume of all harvested files combined and the restricted access to tweets from that period, data collection and analysis are decoupled. I will first describe the data collection so that you can familiarise yourself with the process and reutilise the two scripts. The R analysis, on the other hand, is based on the provided dataset and should be fully reproducible both locally and on Kaggle.

Take the utmost responsibility when handling demographic information. The present records captured from the Twitter API are in the public domain and licensed as such, sensitive to the extent they associate with usernames and geographical coordinates. Use these tools for the common good, and always aim at making your data and work visible and accessible.

# Let’s get started with R

## Harvest

The quality of data collection and downstream analyses is dictated by the scheduled daily tweet search, or as I call it, the harvest. The harvest was executed using the script harvest.R, which will next be broken down into three separate parts – the Twitter API, the optional Google Maps API and the actual tweet search. We will then define the cron job setup that brings all three together.

The standard Twitter API, which is free of charge, offers a seven-day endpoint to your tweet searches. This means you can only retrieve tweets that are at most seven-day old. If you are planning a search to trace back longer than that, the obvious alternative to paid subscriptions is to repeatedly search tweets weekly or daily, using the standard option. Here is how.

To get started you first need a set of credentials from a Twitter API account. You can use your regular Twitter account, if you have one. All it takes is creating an app, then extracting consumer key, consumer secret, access token and access secret. Handle these carefully and do not share them. You can then create a token with create_token from rtweet by passing the app name and the four keys as shown below.

 #!/Library/Frameworks/R.framework/Resources/Rscript # Mon Apr 15 18:41:47 2019 ------------------------------ library(rtweet) # Twitter API create_token(app = "INSERT_HERE", consumer_key = "INSERT_HERE", consumer_secret = "INSERT_HERE", access_token = "INSERT_HERE", access_secret = "INSERT_HERE")
view raw 1-poissonGoT.R hosted with ❤ by GitHub

Only much later did I notice that a single authentication creates the hidden file .rtweet_token.rds to be used in future executions via .Renviron. Eventually, repeated searches will write the same file with different number endings, creating unnecessary clutter. Because it makes no different in this process, you can prevent this from happening by switching off the set_renv option from create_token.

The existence of geographical coordinates from users or devices can substantially empower studies based on social media content. If you want to geocode tweets you also need a Maps JavaScript API key from the Google Maps Platform. This can be done for free after setting up an account, creating a project, setting up a billing account with your credit card details and generating a set of credentials you can then pass to rtweet. You should get about US$200 monthly free credit, which is plenty for searching tweets. You can find more information here. After setting up your Google Maps token, you can pass the key to lookup_cords as apikey, immediately after the region, country or city you want to study. In the present case we are interested in the whole of the US, so we have lookup_coords("usa", apikey = apiKey) as will be seen later.  apiKey <- "INSERT_HERE" view raw 2-poissonGoT.R hosted with ❤ by GitHub ### Tweet search The key player in the harvest process is the actual tweet search, which is singlehandedly managed by the function search_tweets. Inside this function you can define keywords q, whether or not to use retryonratelimit, language lang, geocoding geocode, whether or not to include retweets include_rts and search size n among other options. I used the simple query game of thrones with retry-on-rate-limit, English language, US geocoding, discarding retweets and limiting the search to 100,000 tweets. The resulting object newTweets is then to be written into a CSV file in a directory called tweets. I found it convenient calling Sys.date() to set the name of the individual CSV files to the corresponding day of harvesting, i.e. YYYY-MM-DD.csv.  # Read GOT tweets from US newTweets <- search_tweets(q = "game of thrones", retryonratelimit = T, lang = "en", geocode = lookup_coords("usa", apikey = apiKey), include_rts = FALSE, n = 1e5) # 1st day 3e5, to go back ~1 week # Specify dir dirPath <- "~/Documents/INSERT_PATH" # Create dir for storage if(!dir.exists(paste0(dirPath, "tweets/"))){ dir.create("tweets/") } # Write csv with date save_as_csv(newTweets, paste0(dirPath, "tweets/", Sys.Date(), ".csv"), prepend_ids = TRUE, na = "", fileEncoding = "UTF-8") view raw 3-poissonGoT.R hosted with ❤ by GitHub ### Cron job setup At this stage the tweet search harvest.R is fully set up and ready to be scheduled. The interpreter for executing R scripts is Rscript and the script we want to execute on a regular basis is harvest.R. As put forth in the Get-Started kernel, to reproduce my cron job you need to launch a text editor from the terminal by running crontab -e and add the following line before saving, 0 04 * * * /Library/Frameworks/R.framework/Resources/Rscript ~/Documents/INSERT_PATH/harvest.R My cron job was instructed to execute the script harvest.R everyday at 4:00. You might also have noticed the very first line in harvest.R, carrying a #! prefix. This is a shebang, a special header that invokes an interpreter for executing the script. By using it we no longer need to specify the interpreter in the cron instance above. However, execution permissions must be first granted from the terminal, with e.g. the command chmod u+x harvest.R. Only then the following alternative to the above crontab will work, 0 04 * * * ~/Documents/INSERT_PATH/harvest.R ## Processing I ran through some issues at the start of the harvest, so the first effective batch from 17 April 2019 had to stretch back well over three days, when the first episode aired. To address the problem, I exceptionally set the search size to 300,000 tweets in the first day and to 100,000 in all successive days until the end of the harvest. Taking 100,000 per day was clearly more than needed, as reflected by large overlaps in successive files (data not shown). Despite the redundancy, it nevertheless assured capturing most activity including peaks coinciding with the air dates of all six episodes. By the end of the harvest all batches but the first weighted up to ~100 MB. The process generated a large volume of data (4.02 GB), so it made little sense to keep the individual files. Therefore, I wrote the script processing.R that i) Lists all CSV files in the directory tweets; ii) Defines a function mergeTweets to extract records from a donor table to a reference recipient table, using the column status_id to identify unique tweets; iii) Iterates the function over all files listed in i) to populate a recipient table called allTweets; iv) Writes the resulting allTweets table as gotTwitter.csv with UTF-8 encoding. Note that I make use of rtweet functions throughout, namely read_twitter_csv, do_call_rbind and write_as_csv. These functions are optimised for handling rtweet objects, they run considerably faster and are cross-compatible, compared to alternative methods. Also note the unflatten = T option in read_twitter_csv that prevents inadvertently writing the flat long-lat coordinates back to CSV. This was one of the issues I ran into, as the default mode will return a table whose coordinates can no longer be used with the maps package.  # Wed May 8 21:22:45 2019 ------------------------------ # Use status_id to identify and exclude duplicates library(rtweet) # List all files allFiles <- paste0("tweets/", list.files("tweets/")) # Write function to merge tweets mergeTweets <- function(recipient, donor){ idx <- !donor$status_id %in% recipient$status_id return(do_call_rbind(list(recipient, donor[idx, ]))) } for(i in allFiles){ if(i == allFiles[1]){ allTweets <- read_twitter_csv(file = i, unflatten = T) }else{ tmp <- read_twitter_csv(file = i, unflatten = T) allTweets <- mergeTweets(allTweets, tmp) } } # Write CSV write_as_csv(allTweets, file_name = "gotTwitter.csv") view raw 4-poissonGoT.R hosted with ❤ by GitHub To my relief, the resulting gotTwitter.csv file carried tweets dated to between 7 April and 28 May 2019, therefore covering all six episode air dates and some more. It amassed an impressive total of 760,660 unique tweets. ## Get-Started analysis This analysis is largely based on the quanteda and maps packages and fully described in the Get-Started kernel. We will first load all required packages and read the CSV Twitter file. The tidyverse package and downstream dependencies work seamlessly with rtweet, maps and lubridate. The package reshape2 will be used later to convert timestamps from wide to long format. The Twitter dataset will then be read and unflattened using read_twitter_csv.  # Load libraries library(tidyverse) library(reshape2) library(ggplot2) library(ggridges) library(lubridate) library(rtweet) library(maps) library(quanteda) # Read final dataset allTweets <- read_twitter_csv("../input/gotTwitter.csv", unflatten = T) view raw 5-poissonGoT.R hosted with ❤ by GitHub Before proceeding, you might want to convert the UTC timestamps under created_at to an appropriate US timezone. In the kernel, created_at is overwritten with the corresponding lubridate encoding via as_datetime, and then converted to EDT (NY time) using with_tz. Next, we can look into the US-wide geographical distribution of the harvested tweets. It will first take overwriting of allTweets using lat_long, which will simply add two new columns lat and lng carrying valid long-lat coordinates. Then we can create an instance of maps, which will require very large par margins in Kaggle kernels. To draw the US map with state borders we use map("state") with an appropriate lwd option to set line width. Now we can add the data points to the canvas by passing the long-lat coordinates.  # Convert UTC to EDT allTweets %<>% dplyr::mutate(created_at = as_datetime(created_at, tz = "UTC")) %>% dplyr::mutate(created_at = with_tz(created_at, tzone = "America/New_York")) # Produce lat and lng coordinates allTweets <- lat_lng(allTweets) # Plot par(mar = rep(12, 4)) map("state", lwd = .25) # plot lat and lng points onto state map with(allTweets, points(lng, lat, pch = 16, cex = .25, col = rgb(.8, .2, 0, .2))) view raw 6-poissonGoT.R hosted with ❤ by GitHub Aside from having more GoT reactions on Twitter in more densely populated areas, the above figure clearly hints on the representativity of all 48 contiguous US states. My apologies to all Alaskans and Hawaiians, please modify the code above to visualise either state or the whole of the 50-state US. Interestingly, the dataset covers some activity outside of the US. Let us move on to textual analysis and the underlying mathematical representation. We will clean up the tweet text by removing irrelevant elements, generate tokens from the resulting content and build a document-feature matrix (DFM). In rigour, tokens are vocables that comprise single or multiple words (i.e. n-grams) delineated by whitespace, and the number of occurrences per tweet shows up in the corresponding DFM column. Because tokenisation is exhaustive, DFMs tend to be extremely sparse. The proposed tokenisation process strips off Twitter-specific characters, separators, symbols, punctuation, URLs, hyphens and numbers. Then, it identifies all possible uni- and bigrams. The inclusion of bigrams is important to capture references to characters like Night King and Grey Worm. Then, after setting all alphabetical characters to lower-case and removing English stop-words (e.g. the, and, or, by) we create the DFM gotDfm, with a total of 2,025,121 features. We can now investigate co-occurrence of character names in the DFM. In this context, if we let $CO_{A,B }$ represent the co-occurrence of a pair of any characters A and B, we have $CO_{A,B} = \sum_{i=1}^{n} 1_{T_i}(\{A,B\}) := \begin{cases} 1, \text{if} \{A,B\} \subseteq T_i \\ 0, \text{otherwise} \end{cases}$ where $T_i$ is the ith tweet, and a mathematical set with as many elements as tokens. The summation over the indicator function $1_{T_i}(\{A,B\})$ counts tweets where both A and B are mentioned, and hence serves as a measure of association between the two characters. I chose a set of 20 GoT character names whose matching features will be pulled out from the DFM and used to prepare a feature co-occurrence matrix (FCM). Because $CO_{A,B} = CO_{B,A}$, this is a simple $20 \times 20$ symmetric matrix carrying all co-occurrence counts in the DFM that very much resembles a covariance matrix. We can easily visualise the FCM as a network of GoT characters using textplot_network. The min_freq argument applies a cutoff to discard co-occurrences with small relative frequencies.  # Tokenize words tkn <- tokens(allTweets$text, remove_twitter = T, remove_separators = T, remove_symbols = T, remove_punct = T, remove_url = T, remove_hyphens = T, remove_numbers = T) %>% tokens_ngrams(n = 1:2) gotDfm <- dfm(tkn, tolower = T, remove = stopwords("english")) gotChars <- c("jon", "cersei", "sansa", "arya", "bran", "tyrion", "jaime", "daenerys", "hound", "davos", "missandei", "theon", "brienne", "gendry", "grey_worm", "jorah", "night_king", "varys", "melisandre", "tormund") gotFcm <- dfm_select(gotDfm, pattern = gotChars) %>% fcm() set.seed(100) textplot_network(gotFcm, min_freq = 0.1, edge_alpha = .25, edge_size = 5)
view raw 7-poissonGoT.R hosted with ❤ by GitHub

The undirected graph above represents my choice of 20 GoT characters using nodes, and the underlying co-occurrences by means of connecting edges, which are the larger the greater their relative frequency. Do these results make sense? For one, the strongest associations occur between lovers or enemies. In the first case we have couples like Daenerys and Jon, Jaime and Cersei, Arya and Gendry, Brienne and Jaime with a dash of Tormund. Although not popular overall, Grey Worm associated more closely to his beloved Missandei too. In the second case, we have Arya and the Night King, Cersei and Daenerys and Arya and Cersei. This is clearly a very crude way to characterise their relationships and one could argue this should be done on separate time intervals, as these same relationships can be assumed to evolve the show throughout.

Next we will consider the popularity dynamics of all 20 GoT characters to flesh out patterns based on their interventions in all six episodes. We will create the object popularity to carry binary values that ascertain whether individual tweets mention any of the characters, from the tkn list object. Then, we append the created_at column from allTweets and use the melt function to expand created_at over all 20 columns. Finally, entries where any of the 20 GoT characters is mentioned are selected and the results can be visualised.

Since character popularity can be expected to fluctuate over time, pinpointing the exact air dates of all six episodes can greatly improve our analysis. They all occurred in regular intervals of one week, at 21:00 EST starting 14 May 2019. Again with the help of lubridate, we can encode this using ymd_hms("2019-04-14 21:00:00", tz="EST") + dweeks(0:5). We can now use epAirTime to highlight the exact time of all six air dates. Finally, a bit of ggplot and ggridges magic will help plotting the distribution of character references over time.

 # Identify tweets containing any of the characters names (0/1) popularity <- as.data.frame(lapply(gotChars, function(x){ as.integer(sapply(tkn, function(k){any(k %in% x)})) })) # Write colnames colnames(popularity) <- gotChars # Add column with corresponding EST time popularity$created_at <- allTweets$created_at # Reshape w.r.t. created_at, select hits popularity <- reshape2::melt(popularity, id.vars = "created_at") popularity <- slice(popularity, which(value == 1)) # Determine the time all six episodes were aired (9pm EST every Sunday starting 14th April) epAirTime <- ymd_hms("2019-04-14 21:00:00",tz="EST") + dweeks(0:5) # Plot ggridge-style ggplot(popularity, aes(x = created_at, y = variable, fill = variable)) + geom_density_ridges() + geom_vline(xintercept = epAirTime, linetype = "dashed", color = "red",show.legend = T) + theme_ridges() + theme(legend.position = "none") + annotate("text", x = epAirTime, y = 20.75, label = paste0("Ep.", c(1:6)) ,hjust = 1.25)
view raw 8-poissonGoT.R hosted with ❤ by GitHub

Here too we can relate the results to key events in the show, specifically

• Brienne knighted by Jaime in Ep.2;
• The affair between Arya and Gendry in Ep.2;
• The demise of Melisandre, Jorah, Theon and Night King in Ep. 3;
• The beheading and execution of Missandei and Varys, respectively, in Ep.4;
• The demise of both the Hound and Cersei in Ep.5;
• The crowning of Bran in Ep.6.

Up to this point all materials and analysis we discussed are described and available from the Kaggle dataset page. Time for a break? ☕

## Since you are here

To avoid making this post a mere recycling of what I uploaded to Kaggle a few months ago, I propose moving on to discuss Twitter bots, building wordclouds and conducting sentiment analysis.

In working with Twitter data, one can argue that the inexpressive and pervasive nature of ads and news put out by bot accounts can severely bias analyses aimed at user sentiment, which we will use shortly. One strategy to identify and rule out bots is to simply summarise the number of tweets, as there should be a human limit to how many you can write in the period between 7 April and 28 May 2019. An appropriate tweet count limit can then be used, beyond which users are considered bots.

But before kicking off, I would like to bring out some intuition about tweeting behaviour. I would expect that users are generally less reactive to corporate than personal tweets (your thoughts?). How reactive users are about a certain tweet, for example, can be manifest in retweeting. Moreover, considering the point discussed above,  I would therefore expect users that tweet less to gather more retweets in average. The following piece will test this hypothesis in the present dataset, and investigate that association in relation to the number of followers.

The dataset can be partitioned based on the usernames available under allTweets$screen_name, from which we can then derive • num_tweets, how often each user tweeted during this period; • median_rt, the median number or retweets from each user (median over mean, to avoid large fluctuations due to extreme cases of null or exaggerated retweeting); • mean_followers, the average number of followers in that period (average since of course it is dynamic). We should also visualise the data in log-scale, as they are expectedly highly skewed. The code below uses a $log_{10}$ transformation with a unit offset.  # Sat Oct 5 10:06:01 2019 ------------------------------ # Bonus - rm bots, time-dependend wordclouds & sentiment analysis rtStats <- do.call("rbind", by(allTweets, INDICES = allTweets$screen_name, function(x){ return(data.frame(num_tweets = nrow(x), mean_followers = mean(x$followers_count), median_rt = median(x$retweet_count))) })) # Plot log10(num_tweets) vs. log10(median_rt) with(log10(rtStats+1), plot(num_tweets, median_rt, cex = mean_followers / max(mean_followers), pch = 16, col = rgb(0,0,0,.25), xlab = expression(paste(log[10], " # tweets + 1")), ylab = expression(paste(log[10], " median # rts + 1")))) nums <- c(1e2, 1e4, 1e6, 1e8) legend("topright", title = "# followers", pch = 16, col = rgb(0,0,0,.25), pt.cex = log10(nums + 1)/max(log10(rtStats$mean_followers + 1)), legend = formatC(nums, format = "e", digits = 1), bty = "n") view raw 9-poissonGoT.R hosted with ❤ by GitHub It seems that indeed there is a negative relationship between the frequency of tweeting and the average number of retweets. Here, the plotting character size is proportional to the $log_{10}$ of the number of followers. In the original scale, we are talking about users with a number of followers ranging from zero to 77,581,904. This impressive number in particular comes from @TheEllenShow. Nonetheless, there is no clear association with neither median retweet or tweet counts, which suggests that both high- and low-profile users can be equally prolific and equally contribute to viral retweeting. Before turning our attention to wordclouds, I propose we first remove potential bots. How likely is it for a human user to publish $10^3$ tweets about GoT in seven weeks? My approach removes all users that tweeted as many as $10^2$ times during this period. You may find it to be too strict, so feel free to update the cutoff. ### Wordclouds Wordclouds are an effective way of summarising textual data by displaying the top frequent terms in a DFM, where word size is proportional to its relative frequency. To better understand the audience, the following wordcloud construction procedure will be focussed on tweets published right after each episode. This will require cleaning the textual data more thoroughly than before. I mentioned UTF-8 previously, which is the encoding used on the text from our dataset. UTF-8 helps encoding special characters and symbols, such as those from non-latin alphabets, and can easily be decoded back. Since special characters and symbols can tell us little about opinion, we can easily remove them using a trick proposed by Ken Benoit in this Stackoverflow thread. Then we also have Unicode for emojis, equally irrelevant. Under allTweets$text, emojis share a common encoding structure between arrows, e.g. <U+1F600> so we might be better off using a regex (i.e. regular expression) to replace all emoji encodings with single whitespaces while avoiding off-targets. In the code below, I propose using the regex <[A-Z+0-9]+>. You can read this pattern as something like identify all occurrences of < followed by one or more capital letters, digits and +, followed by >. Regex patterns are really useful and I might cover them in greater depth in a future post.

The tokenisation recipe above to remove symbols, punctuation and more can be re-used here. In preparing the subsequent DFM we will convert all letters to lower case and remove stop-words, as before, but also stem words. Stemming words, as the name suggests, clips the few last characters of a word and is effective in resolving the differences among singular, plural, and verbal forms of semantically related terms (e.g. imagined, imagination and imagining can be stemmed to imagin). Further down the line, irrelevant terms such as the show title and single-letter features can also be discarded from the DFM. Finally, we subset the resulting DFM for every two hours and four days after the airing of each of the six episodes. The six subsets will be use to construct six separate wordclouds with a word limit of 100. You might be warned about words not fitting the plot, worry not!

 # Wordcloud # Remove potential bots w/ > 100 tweets in the dataset bots <- rownames(rtStats)[which(rtStats$num_tweets > 100)] reducedTweet <- allTweets[!allTweets$screen_name %in% bots,] reducedTweet$text <- texts(reducedTweet$text) %>% iconv(from = "UTF-8", to = "ASCII", sub = "") %>% gsub(pattern = "<[A-Z+0-9]+>", repl = " ") # Tokenize words tkn <- tokens(reducedTweet$text, remove_twitter = T, remove_separators = T, remove_symbols = T, remove_punct = T, remove_url = T, remove_hyphens = T, remove_numbers = T) # Remove stopwords and stem words gotDfm <- dfm(tkn, tolower = T, remove = stopwords("en"), stem = T) # Remove irrelevant terms incl. single-character words badWords <- c("game", "throne", "gameofthron", "got", "watch", "episod", "season", "show", "just", "like") gotDfm <- gotDfm[,nchar(colnames(gotDfm)) > 1 & !colnames(gotDfm) %in% badWords] epAirTime <- ymd_hms("2019-04-14 21:00:00", tz = "EST") + dweeks(0:5) wcLists <- lapply(1:6, function(x){ idx <- tweetReduced$created_at > epAirTime[x] + dhours(2) & tweetReduced$created_at < epAirTime[x] + ddays(4) return(gotDfm[idx,]) }) par(mar = rep(0, 4)) for(i in 1:length(wcLists)){ set.seed(100) textplot_wordcloud(wcLists[[i]], max_words = 100) } view raw 10-poissonGoT.R hosted with ❤ by GitHub Move your mouse over the different panels to reveal the episode number and title. We can now inquire about why some of these frequent terms emerge: • Ep.1 – premier, first and one certainly allude to this being the season premiere. Another interesting emerging term is recap, hinting on fans going back to previous seasons; • Ep.2 – night, week and battl are clear references to the much anticipated battle of Winterfell that aired the week after (Ep.3, The Long Night); arya and sex likely refer to the sex scene with Gendry; • Ep.3 – night, battl and winterfel as explained above. There are also some curious references to Avengers: Endgame, the film that premiered on 24 April 2019; • Ep.4 – If you watched to the show, you certainly remember the controversial Starbucks coffee cup scene from this episode; • Ep.5 – final, last and similar terms reflect some anticipation about the show finale. Fans discuss petitions for a remake (remak, petit) and express disappointment (disappoint). We will encounter disappointment again when working with sentiment analysis; • Ep.6 – end and final, evidently; bran and king also emerge, as Bran is crowned the king of the six kingdoms. Some disappointment, as noticed before. ### Sentiment analysis I would like to conclude the post with sentiment analysis, i.e. determining the balance between positive and negative emotions over time. By framing the analysis against the six air dates we can make statements about the public opinion on the last GoT season. Conducting sentiment analysis is deceptively simple. The tokens from the wordcloud exercise are initially matched against the sentiment dictionary data_dictionary_LSD2015 from quanteda and processed just as before, to build a DFM. In contrast to previous DFMs, this instance carries counts of words associated with either positive or negative emotions. Alternative methods including the package SentimentAnalysis also list emotionally neutral words, thereby relying on a tertiary response. Finally, we pool counts from the same day accordingly and can now set to investigate the evolution of sentiment regarding the eighth season of GoT. In accordance to this quanteda tutorial we can derive a relative sentiment score whose sign informs of the sentiment most expressed in any particular day. The sentiment score from any given day is simply calculated as $sentiment = \frac{\sum_{i=1}^{n}P_i-N_i}{\sum_{i=1}^{n}P_i+N_i}$ where $P_i$ and $N_i$ are counts of words associated with positive and negative sentiment, respectively, in the ith tweet from that day. As a results, this score ranges between -1 and 1 and takes positive (resp. negative) values when positive (resp. negative) emotions dominate, with the advantage of normalising to the total counts. Let us have a look.  # Sentiment analysis tknDct <- tokens_lookup(tkn, dictionary = data_dictionary_LSD2015) saDfm <- dfm(tknDct, remove = stopwords("en"), stem = T) summ <- do.call("rbind", by(convert(saDfm, to="data.frame")[,-1], INDICES = date(tweetReduced$created_at), FUN = colSums)) dev.off() # reset past graphical pars plot(date(rownames(summ)), (summ[,2] - summ[,1]) / rowSums(summ[,1:2]), type = "l", xlab = "Date", ylab = "Sentiment score") abline(h = 0) abline(v = date(epAirTime), lty = 2, col = rgb(1,0,0,.5)) text(date(epAirTime) - 3, .095, labels = paste0("Ep.", c(1:6)))
view raw 11-poissonGoT.R hosted with ❤ by GitHub

There seems to be a dominant positive sentiment around the Ep.1 and Ep.2  that gives way to an uninterrupted period of negative sentiment between Ep.3 and Ep.5, which in turn evolves to a more neutral sentiment by Ep.6 and the end of the show.

While no statistical tests were used, I think it is fair to make some assumptions. There was a lot of excitement with the approaching premiere, as fans waited over one year for the final season. In that light, it would make sense to observe overall positive emotions leading to Ep.1. Then, the negative emotions that dominate from Ep.2 to Ep.5 are in fine agreement with the disappointment picked up from our wordclouds and indeed echoed in various media. Finally, with the approaching end of the season and the show by Ep.6, users presumably reviewed it as a whole, explaining perhaps the appeased negative reactions. Had we used a permutation test, e.g. shuffling the date order of the tweets and re-analysed the data, we could have drawn a confidence interval and determine the significance of the sentiment changes. Up for the challenge?

# Wrap-up

This was a long journey, six months in the making, a very productive one ☕. Various different aspects of Twitter data analysis were considered, including

• How to collect Twitter data, first by harvesting tweets using a cron job with daily access to the Twitter API, then by processing the harvested tweets;
• How to judiciously clean textual data, remove stop-words, stem words and manipulate date-time variables;
• How to build DFMs, FCMs and co-occurrence networks;
• How to analyse the popularity dynamics of individual GoT characters;
• How to distinguish human users and bots;
• How to build basic wordclouds using well defined time intervals;
• How to conduct a basic sentiment analysis.

I hope this gives you a glimpse of the value of this dataset and the powerful combination of R and other scripting languages. I learned much about Unix with The Unix Workbench free course from Coursera, which I highly recommend to beginners.

My first contact with quantitative textual analysis took place in the Cambridge AI Summit 2018 organised by Cambridge Spark, after a brilliant talk by Kenneth Benoit, professor at the London School of Economics and Political Science in the UK. Ken is the main developer of quanteda and demonstrated its use on a Twitter analysis of Brexit vote intentions. I am much indebted to him for inspiration.

Finally, those that follow my blog surely also noticed it has a new face. After much struggling with the ugly and poorly functional Syntax Highlighter plugin from WordPress.com, I found Github Gists a neat alternative. I also finally registered the website, now poissonisfish.com and totally ad-free. I hope you like it!

And yes, I have a thing with coffee. ☕

# Citation

de Abreu e Lima, F (2019). poissonisfish: Twitter data analysis in R. From https://poissonisfish.com/2019/10/09/twitter-data-analysis-in-r/

## 8 thoughts on “Twitter data analysis in R”

1. Guilherme Post Sabin says:

Great my friend!!!

Like

2. Ivan says:

Amazing post! Ever so detailed and peppered with subtle humor 🙂

Like

This site uses Akismet to reduce spam. Learn how your comment data is processed.