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

Improve genderequality

Browse Source
This commit is contained in:
Leon Burgard
2021-08-08 00:16:05 +02:00
parent 789bf57756
commit 0f07b002e6
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/parse.R
-2
View File
@@ -1,5 +1,3 @@
# for usage see the example at the end
#' Parse xml records #' Parse xml records
#' #'
#' Creates a list of tibbles containing relevant information from all records #' Creates a list of tibbles containing relevant information from all records
vignettes/genderequality.Rmd
+3 -4
View File
@@ -91,12 +91,10 @@ text %>%
gender <- tibble(speaker = names, gender <- tibble(speaker = names,
gender = gender) gender = gender)
speaker %>% speaker %>%
unite("speaker", vorname, nachname, sep = " ") %>% unite("speaker", vorname, nachname, sep = " ") %>%
right_join(gender, by = "speaker") -> right_join(gender, by = "speaker") ->
speaker_with_gender speaker_with_gender
``` ```
#Analyse #Analyse
@@ -178,6 +176,7 @@ gridExtra::grid.arrange(pie1,pie2,pie3,pie4,pie5,pie6,nrow=2)
Now let's analyze whether there are any differences in the amount of speeches given.
```{r} ```{r}
speeches %>% speeches %>%
@@ -197,7 +196,7 @@ speeches %>%
mutate(relative2=relative/sum(relative)) -> mutate(relative2=relative/sum(relative)) ->
plot3 plot3
``` ```
At first lets take a look at the absolute difference in the amount of speeches by the two sexes.
```{r} ```{r}
barplot(plot3$absolute2, barplot(plot3$absolute2,
ylab = "amount of speeches", ylab = "amount of speeches",
@@ -208,7 +207,7 @@ barplot(plot3$absolute2,
font.main = 4, font.main = 4,
cex.axis = 0.7) cex.axis = 0.7)
``` ```
Since there are more men represented in the German Bundestag, we now consider the relative proportions of speeches, depending on the ratio of men and women.
```{r} ```{r}
barplot(plot3$relative2, barplot(plot3$relative2,
ylab = "amount of speeches", ylab = "amount of speeches",