add basic analysing utils

2021-07-28 21:23:06 +02:00
parent d42a039b31
commit 1463f6092e
3 changed files with 27 additions and 0 deletions
@@ -57,3 +57,15 @@ left_join(reden, redner, by=c("redner" = "id")) %>%
    ggplot(aes(x = fraktion, y = n)) +
    geom_bar(stat = "identity")
 ```
+
+### Count a word occurence
+
+```{r}
+find_word(res, "hitler") %>%
+    filter(occurences > 0) %>%
+    join_redner(res) %>%
+    select(content, fraktion) %>%
+    group_by(fraktion) %>%
+    summarize(n = n()) %>%
+    arrange(desc(n))
+```