Proportion of tweeted characters that are exclamation points

potus.R

library(tidyverse)
library(rtweet)

potus <- get_timeline("realDonaldTrump", n = 3200)

potus %>%
    transmute(creation_date = as.Date(created_at),
              text = str_remove_all(text, "https://t.co/[A-Za-z\\d]+"),
              exclamations = str_extract_all(text, "\\!"),
              exclamations = map_int(exclamations, length),
              total_chars = nchar(text)) %>%
    group_by(creation_date) %>%
    summarise(percent_excl = sum(exclamations) / sum(total_chars)) %>%
    ggplot(aes(creation_date, percent_excl)) +
    geom_line(color = "midnightblue", size = 1.5) +
    scale_y_continuous(labels = scales::percent_format()) +
    labs(x = NULL, y = "Daily proportion of tweeted characters that are exclamation points!!!",
         title = "What proportion of @realDonaldTrump's tweets are exclamation points?!?!!!!",
         subtitle = "Sometimes, quite a lot!!!")