add some example analysing

2021-06-24 16:09:27 +02:00
parent 92358482c6
commit 356c98e926
1 changed files with 19 additions and 0 deletions
@@ -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")