Karpathy's Tweets per Month

karpathys-tweets-rstats.R

library(tidyverse)
rtweet::get_timeline(rtweet::as_userid("karpathy"), n = 1000) %>%
    mutate(year = as.character(lubridate::year(as.Date(created_at))),
           month = lubridate::month(as.Date(created_at))) %>%
    group_by(year, month) %>%
    count(year, month) %>%
    ggplot(aes(month, n, color = year)) + geom_point() +
    geom_smooth(method = "lm", alpha = .15, aes(fill = year)) +
        ggtitle("Karpathy's Tweets per Month")