remove funwithdata, add some text, improve some fig heights

vignettes/interaction.Rmd

@@ -32,20 +32,12 @@ Second, those `.xml` files, need to be parsed into `R` `tibbles`. This is accomp
 ```r
 read_all("../inst/records/") %>% repair() -> res
 ```
-We also used `repair` to fix a bunch of formatting issues in the records and unpacked
-the result into more descriptive variables.
+We also used `repair` to fix a bunch of formatting issues in the records.
 
 For development purposes, we load the tables from csv files.
 ```{r}
 res <- read_from_csv('../inst/csv/')
 ```
-and unpack our tibbles
-```{r}
-comments <- res$comments
-speeches <- res$speeches
-speaker <- res$speaker
-talks <- res$talks
-```
 
 ## Analysis
 
@@ -69,7 +61,7 @@ res$applause %>%
 
 For plotting our results we reorganize them a bit and produce a bar plot:
 
-```{r, fig.width=7}
+```{r, fig.width=7, fig.height=6}
 pivot_longer(tb, where(is.numeric), "by_fraction", "count") %>%
     filter(!is.na(on_fraction)) %>%
     bar_plot_fractions(x_variable = on_fraction,
@@ -100,7 +92,7 @@ res$comments %>%
 ```
 Analogously we plot the results:
 
-```{r, fig.width=7}
+```{r, fig.width=7, fig.height=6}
 pivot_longer(tb, where(is.numeric), "by_fraction", "count") %>%
     filter(!is.na(on_fraction)) %>%
     bar_plot_fractions(x_variable = on_fraction,