neverWarrenBots.R

#note, above this, use rtweet
#instructions for getting api keys and the like
#from http://dev.twitter.com
library(rtweet)
library(tweetbotornot)
library(ggplot2)
library(dplyr)
library(ggridges)

token <- create_token(
  app = "byrnesTweetAnalysis",
  consumer_key = api_key,
  consumer_secret = api_secret_key,
  access_token = access_token,
  access_secret = access_secret)

## search for 18000 tweets using the rstats hashtag
nw_tweets<- search_tweets(
  "#neverWarren", n = 20, include_rts = FALSE
)

#assess the unique users for bot-ness
bots <- tweetbotornot(unique(nw_tweets$screen_name))


bots <- bots %>%
  mutate(half_bot = ifelse(prob_bot>0.5, "Likely Bot", "Unlikely Bot"))

#plot the distribution - huh, it's bimodal
ggplot(data = bots,
       aes(x = prob_bot)) +
  geom_density(fill = "lightblue", alpha = 0.5)

#split at 0.5 and see what the dists look like
ggplot(data = bots,
       aes(x = prob_bot, y = half_bot, fill = half_bot)) +
  geom_density_ridges() +
  theme_bw(base_size=14)

#numbers of users that fall above or below 50% threshold
ggplot(data = bots,
       aes(x = half_bot, fill = half_bot)) +
  geom_bar() +
  theme_bw(base_size=14)