Exploration of rtweet

rtweet exploration

# ----- Load libraries -----
library("rtweet")
library("devtools")
library("tidyverse")
library("gridExtra")

# ----- Connection data (removed) -----
appname <- "" # name of twitter app
key     <- "" # api key
secret  <- "" # api secret
token   <- create_token(
                        app = appname,
                        consumer_key = key,
                        consumer_secret = secret)

# ----- Tweets from R4DScommunity -----
r4ds <- get_timeline(c("R4DScommunity"), n = 5000)

# Plot frequency of tweets for R4DScommunity
r4ds_plot <- 
r4ds %>% 
  filter(created_at > "2018-04-14") %>% 
ts_plot("days", trim = 1L) +
  geom_point() +
  theme_minimal() +
  theme(
    legend.title = element_blank(),
    legend.position = "bottom",
    plot.title = element_text(face = "bold")) +
  labs(
    x = NULL,
    y = NULL,
    title = "Frequency of @R4DScommunity Twitter Statuses",
    subtitle = "Tweet counts by day since @R4DScommunity's first tweet (April 14, 2018",
    caption = "\nSource: Data collected via rtweet - graphic by @mjhendrickson"
  )

# ----- Tweets from mjhendrickson -----
mh <- get_timeline(c("mjhendrickson"), n = 5000)

# Plot frequency of tweets for mjhendrickson
mh_plot <- 
mh %>% 
  filter(created_at > "2018-04-14") %>% 
ts_plot("days", trim = 1L) +
  geom_point() +
  theme_minimal() +
  theme(
    legend.title = element_blank(),
    legend.position = "bottom",
    plot.title = element_text(face = "bold")) +
  labs(
    x = NULL,
    y = NULL,
    title = "Frequency of @mjhendrickson Twitter Statuses",
    subtitle = "Tweet counts by day since April 14, 2018",
    caption = "\nSource: Data collected via rtweet - graphic by @mjhendrickson"
  )

# Plot together
grid.arrange(r4ds_plot, mh_plot)