hateimparlament/analysis/funwithdata.R

library(tidyverse)
source("../scraping/fetch.R")
source("../scraping/parse.R")
source("../scraping/repair.R")

# fetch_all()
read_all() %>% repair() -> res

reden <- res$reden
redner <- res$redner
talks <- res$talks

# first tries

left_join(reden, redner, by=c("redner" = "id")) %>%
    group_by(fraktion) %>%
    summarize(n = n()) %>%
    ggplot(aes(x = fraktion, y = n)) +
    geom_bar(stat = "identity")