|
|
|
@@ -0,0 +1,19 @@ |
|
|
|
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") |
