From 356c98e92642a85b43b6440c0861041c14fe5ec1 Mon Sep 17 00:00:00 2001
From: flavis <christian@flavigny.de>
Date: Thu, 24 Jun 2021 16:09:27 +0200
Subject: [PATCH] add some example analysing

---
 analysis/funwithdata.R | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 analysis/funwithdata.R

diff --git a/analysis/funwithdata.R b/analysis/funwithdata.R
new file mode 100644
index 0000000..9277361
--- /dev/null
+++ b/analysis/funwithdata.R
@@ -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")