---
title: "funwithdata"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{funwithdata}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

```r
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")
```


```{r setup}
library(hateimparlament)
```