emojistory.R

library(rtweet)
library(tidyverse)

tweets <- get_timeline("romain_francois", n = 5000)
tweets %>% 
  pull(text) %>% 
  str_extract_all(emo::ji_rx) %>% 
  flatten_chr() %>% 
  table() %>% 
  enframe(name = "emoji") %>% 
  left_join( emo::jis, by = "emoji" ) %>% 
  select( emoji, name, value) %>% 
  arrange( desc(value) ) %$%
  { writeLines(glue("{emoji}  ({name}) - {value} times"))  }