Code Appendix

Appendix A: Packages

library(ggplot2)
library(readr)
library(dplyr)
library(ROAuth)
library(tm)
library(stm)
library(stringr)
library(tidyverse)
library(lubridate)
library(wordcloud)
library(ggthemes)
library(tidytext)
library(ggsci)
library(Zelig)
library(lubridate)
library(stringr)
library(tidyverse)
library(stm)
library(wordcloud)
library(SnowballC)
library(RColorBrewer)

Appendix B

how to create a dataset of the most recent #MeToo twitter data using twitteR

#load relevant packages
library(twitteR)
library(ROAuth)
library(httr)

# Set API Keys
# I used my real API keys to run the data
# but I've subbed in nonsense letters to mask my real API keys
# since I don't want that to be publicly displayed!
api_key <- "xxxx"
api_secret <- "xxxxx"
access_token <- "xxxxxx"
access_token_secret <- "xxxxx"
setup_twitter_oauth(api_key, api_secret, access_token, access_token_secret)

# Grab latest n tweets
#the intial 2017 set includes 390000 tweets
#for recent data, 10000 seems reasonable since it is trending less now than it was in 2017
tweets_metoo <- searchTwitter('#MeToo', n=10000)

# Loop over tweets and extract text
library(plyr)
feed_metoo = laply(tweets_metoo, function(t) t$getText())

#create csv of tweets
write.csv(feed_metoo,'me2.csv')