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

moved table tot top

parent b26a0ec1
......@@ -20,6 +20,38 @@ library(corrr)
library(umx)
library(matrixStats)
```
# 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))
D12_reduced <- D12 %>%
filter(Var1 != "Nie" & Var1 != "Keine Antwort" )
D12_notnever <- summarise_all(D12_reduced, ~if(is.numeric(.)) sum(.) else "Mobbing")
E05 <- as.data.frame(table(responses$E05, useNA = "ifany")) %>%
mutate(per = 100*Freq/sum(Freq))
E05_reduced <- E05 %>%
filter(Var1 != "Nie" & Var1 != "Keine Antwort" )
E05_notnever <- summarise_all(E05_reduced, ~if(is.numeric(.)) sum(.) else "Diskriminierung")
F11 <- as.data.frame(table(responses$F11, useNA = "ifany")) %>%
mutate(per = 100*Freq/sum(Freq))
F11_reduced <- F11 %>%
filter(Var1 != "Nie" & Var1 != "Keine Antwort" )
F11_notnever <- summarise_all(F11_reduced, ~if(is.numeric(.)) sum(.) else "Belästigung")
all_notnever <- rbind(D12_notnever,E05_notnever, F11_notnever)
kable(all_notnever, col.names = c("Thema", "Häufigkeit", "Prozent"),
table.attr = "class=\"striped\"", format = "html") %>%
kable_material(c("striped", "hover"))
```
# Interne Skalenkonsistenz
## SKALA A: Gruppenatmosphäre
......@@ -426,32 +458,27 @@ kable(B14, col.names = c("Antwort", "Häufigkeit", "Prozent"),
### Wurden Sie selbst während der letzten 12 Monate gemobbt?
```{r echo = FALSE, results='asis'}
D12 <- as.data.frame(table(responses$D12, useNA = "ifany")) %>%
mutate(per = 100*Freq/sum(Freq))
kable(D12, col.names = c("Antwort", "Häufigkeit", "Prozent"),
table.attr = "class=\"striped\"", format = "html") %>%
kable_material(c("striped", "hover"))
```
### Wurden Sie selbst während der letzten 12 Monate aufgrund Ihres Geschlechts diskriminiert?
```{r echo = FALSE, results='asis'}
E05 <- as.data.frame(table(responses$E05, useNA = "ifany")) %>%
mutate(per = 100*Freq/sum(Freq))
kable(E05, col.names = c("Antwort", "Häufigkeit", "Prozent"),
table.attr = "class=\"striped\"", format = "html") %>%
kable_material(c("striped", "hover"))
```
### Wurden Sie selbst während der letzten 12 Monate sexualisiert belästigt?
```{r echo = FALSE, results='asis'}
F11 <- as.data.frame(table(responses$F11, useNA = "ifany")) %>%
mutate(per = 100*Freq/sum(Freq))
kable(F11, col.names = c("Antwort", "Häufigkeit", "Prozent"),
table.attr = "class=\"striped\"", format = "html") %>%
kable_material(c("striped", "hover"))
```
### Leben Kinder unter 18 Jahren in Ihrem Haushalt?
......
Markdown is supported
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