tannenberg

library(rio)
library(tidyverse)
library(spotifyr)
library(fuzzyjoin)
library(ggrepel)

#lets get the rapper's vocabulary count data
rappers <- import("https://docs.google.com/spreadsheets/d/1HIIfgDpNMM-j0hoQHN-yP5P1lNOfJuvym0u0sdWwD9g/edit#gid=737896402") %>%
  filter(!is.na(recalc)) %>% #rm those that we don't have word count data for
  as_tibble() %>%

tannenberg

#webscraping livrustkammaren to create a age-tenure graph of Swedish regents
#inspired by https://gist.github.com/acoppock

library(rvest)
library(tidyverse)
library(stringr)
library(lubridate)
library(ggrepel)
library(stringr)

tannenberg

#webscraping wiki to create a age-tenure graph of Swedish PMs
#inspired by https://gist.github.com/acoppock

library(rvest)
library(tidyverse)
library(stringr)
library(lubridate)
library(ggrepel)
library(stringr)