christian/hateimparlament
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add rotatelab to bar_plot_fractions

Browse Source
This commit is contained in:
Leon Burgard
2021-08-09 11:00:14 +02:00
parent 1db9e3f59a
commit 545e5c9bab
4 changed files with 36 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
vignettes/funwithdata.Rmd
+6 -3
View File
@@ -73,7 +73,8 @@ find_word(res, "Kohleausstieg") %>%
arrange(desc(n)) %>%
bar_plot_fractions(title = "Parties using the word 'Kohleausstieg' the most (absolutely)",
ylab = "Number of uses of 'Kohleausstieg'",
flipped = F)
flipped = F,
rotatelab = TRUE)
```
### Who gives the most speeches?
@@ -127,7 +128,8 @@ pivot_longer(tb, where(is.numeric), "by_fraction", "count") %>%
xlab = "Applauded fraction",
ylab = "Rounds of applauses",
filllab = "Applauding fraction",
flipped = FALSE)
flipped = FALSE,
rotatelab = TRUE)
```
@@ -157,7 +159,8 @@ pivot_longer(tb, where(is.numeric), "by_fraction", "count") %>%
xlab = "Commented fraction",
ylab = "Number of comments",
filllab = "Commenting fraction",
flipped = FALSE)
flipped = FALSE,
rotatelab = TRUE)
```
### When are which topics discussed the most?
vignettes/interaction.Rmd
+4 -2
View File
@@ -79,7 +79,8 @@ pivot_longer(tb, where(is.numeric), "by_fraction", "count") %>%
xlab = "Applauded fraction",
ylab = "Rounds of applauses",
filllab = "Applauding fraction",
flipped = FALSE)
flipped = FALSE,
rotatelab = TRUE)
```
@@ -109,5 +110,6 @@ pivot_longer(tb, where(is.numeric), "by_fraction", "count") %>%
xlab = "Commented fraction",
ylab = "Number of comments",
filllab = "Commenting fraction",
flipped = FALSE)
flipped = FALSE,
rotatelab = TRUE)
```