Commit ce24ceba authored by Maike Kleemeyer's avatar Maike Kleemeyer
Browse files

Included scale means

parent e95e6209
......@@ -21,7 +21,9 @@ library(umx)
library(matrixStats)
```
# Prozente für Mobbing, Diskriminierung und Belästigung mehr als "nie"
# Erster Blick
## Prozente für Mobbing, Diskriminierung und Belästigung mehr als "nie"
```{r echo = FALSE, results='asis'}
D12 <- as.data.frame(table(responses$D12, useNA = "ifany")) %>%
mutate(per = 100*Freq/sum(Freq))
......@@ -35,7 +37,7 @@ E05 <- as.data.frame(table(responses$E05, useNA = "ifany")) %>%
E05_reduced <- E05 %>%
filter(Var1 != "Nie" & Var1 != "Keine Antwort" )
E05_notnever <- summarise_all(E05_reduced, ~if(is.numeric(.)) sum(.) else "Diskriminierung")
E05_notnever <- summarise_all(E05_reduced, ~if(is.numeric(.)) sum(.) else "Geschlechterbezogene Diskriminierung")
F11 <- as.data.frame(table(responses$F11, useNA = "ifany")) %>%
mutate(per = 100*Freq/sum(Freq))
......@@ -43,10 +45,77 @@ F11 <- as.data.frame(table(responses$F11, useNA = "ifany")) %>%
F11_reduced <- F11 %>%
filter(Var1 != "Nie" & Var1 != "Keine Antwort" )
F11_notnever <- summarise_all(F11_reduced, ~if(is.numeric(.)) sum(.) else "Belästigung")
F11_notnever <- summarise_all(F11_reduced, ~if(is.numeric(.)) sum(.) else "Sexualisierte Belästigung")
mpg_percentage <- c(10, 8, 20)
all_notnever <- cbind(rbind(D12_notnever,E05_notnever, F11_notnever),mpg_percentage)
kable(all_notnever, col.names = c("Thema", "Häufigkeit", "Prozent", "MPG Wert"),
table.attr = "class=\"striped\"", format = "html") %>%
kable_material(c("striped", "hover"))
```
## Skalen-Mittelwerte
```{r echo = FALSE, results='asis'}
mean_A <- responses_coded %>%
select(A03:A05) %>%
colMeans(na.rm = TRUE) %>%
mean() %>%
set_names(c("mean"))
mean_B1overlapMPG <- responses_coded %>%
select(B03:B06) %>%
colMeans(na.rm = TRUE) %>%
mean() %>%
set_names(c("mean"))
mean_B2 <- responses_coded %>%
select(B09:B13) %>%
colMeans(na.rm = TRUE) %>%
mean() %>%
set_names(c("mean"))
all_notnever <- rbind(D12_notnever,E05_notnever, F11_notnever)
kable(all_notnever, col.names = c("Thema", "Häufigkeit", "Prozent"),
mean_C <- responses_coded %>%
select(C02:C04) %>%
colMeans(na.rm = TRUE) %>%
mean() %>%
set_names(c("mean"))
mean_D <- responses_coded %>%
select(D02:D06) %>%
colMeans(na.rm = TRUE) %>%
mean() %>%
set_names(c("mean"))
mean_F <- responses_coded %>%
select(F02:F08) %>%
colMeans(na.rm = TRUE) %>%
mean() %>%
set_names(c("mean"))
mean_H3overlapMPG <- responses_coded %>%
select(H20:H21) %>%
colMeans(na.rm = TRUE) %>%
mean() %>%
set_names(c("mean"))
mpg_means <- c(3.62, 3.67, 3.2, 3.69, 1.39, 1.05, 2.38)
output_scalemeans <- as.data.frame(bind_cols(bind_rows(mean_A,
mean_B1overlapMPG,
mean_B2,
mean_C,
mean_D,
mean_F,
mean_H3overlapMPG),mpg_means))
rownames(output_scalemeans) <- c("Gruppenatmosphäre", "Führungsstil", "Karriereentwicklung", "Zufriedenheit mit Institut/Einrichtung", "Unkollegiales Verhalten", "Sexualisierte Belästigung",
"Elternzeit")
kable(output_scalemeans, col.names = c("Aktueller Mittelwert", "MPG Mittelwert"),
table.attr = "class=\"striped\"", format = "html") %>%
kable_material(c("striped", "hover"))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment