Example of ts_plot() and stream_tweets() from rtweet pkg

ts_plot-ex.hacking-stream.R

library(rtweet)
## use stream_tweets() to capture an hour of tweets
"wikileaks,assange,hacking,russia,putin" %>%
    stream_tweets(
        parse = FALSE,
        timeout = (60 * 60),
        file_name = "wikileaks.json")

## read and parse data
rt <- parse_stream("wikileaks.json")

## plot to png
png("ts_plot-ex-hacking.png", 8, 5, "in", res = 127.5)
par(family = "Avenir")
rt %>%
    subset(!is.na(created_at)) %>%
    ts_plot(
        "21 secs", filter = c(
                       "trump|elect|peotus",
                       "obama",
                       "assange|wikileaks",
                       "russia|putin",
                       "cia|fbi|intelligence"
                   ),
        key = c("Trump", "Obama", "Wikileaks",
                "Russia", "CIA/FBI"),
        main = "rtweet: Collecting Twitter data",
        box = FALSE, adj = 0, xtime = "%T",
        theme = "spacegray")
## subtitle will be built-in to ts_plot soon to simplify this
text(.1925, 1.125, cex = .75, "",
     col = "white", xpd = FALSE)
text(.1925, 1.125, cex = .75,
     "Using stream_tweets() to capture tweets about hacking",
     col = "white", xpd = TRUE)
dev.off()