197 lines
4.0 KiB
Plaintext
197 lines
4.0 KiB
Plaintext
---
|
||
title: "Quiz"
|
||
format: pdf
|
||
editor: visual
|
||
execute:
|
||
eval: false
|
||
editor_options:
|
||
chunk_output_type: console
|
||
---
|
||
|
||
# Quiz grejs
|
||
|
||
```{r}
|
||
|
||
library(tidyverse)
|
||
library(gtsummary)
|
||
```
|
||
|
||
```{r}
|
||
|
||
share <- readRDS("Datamaterial_SHARE_Modul3.rds")
|
||
```
|
||
|
||
## Fråga 1
|
||
|
||
**Hur många individer har besvarat enkäten, dvs hur många observationer finns det i datamaterialet**
|
||
|
||
Står i data tabben längst uppe i högra hörnet
|
||
|
||
## Fråga 2
|
||
|
||
Kolla i andra filerna. Men från intervjuarens visuella observationer. Om de är osäkra skulle de fråga
|
||
|
||
## Fråga 3
|
||
|
||
**Hur stor andel av de svarande är kvinnor**
|
||
|
||
```{r}
|
||
|
||
mean(share$Kön == "Kvinna") * 100
|
||
```
|
||
|
||
## Fråga 4
|
||
|
||
**Hur stor andel av kvinnorna bor med en partner?**
|
||
|
||
```{r}
|
||
mean(share$Bor_med_partner[share$Kön == "Kvinna"] == "Ja") * 100
|
||
```
|
||
|
||
## Fråga 5
|
||
|
||
**Hur stor andel av männen bor med en partner?**
|
||
|
||
```{r}
|
||
|
||
mean(share$Bor_med_partner[share$Kön == "Man"] == "Ja") * 100
|
||
```
|
||
|
||
## Fråga 6
|
||
|
||
```{r}
|
||
|
||
mean(share$Kön[share$Bor_med_partner == "Ja"] == "Man") * 100
|
||
```
|
||
|
||
## Fråga 7
|
||
|
||
**Vad är den genomsnittliga åldern för de individer som besvarat enkäten**
|
||
|
||
```{r}
|
||
|
||
mean(share$Ålder)
|
||
```
|
||
|
||
## Fråga 8
|
||
|
||
**Vad är den genomsnittliga åldern på eventuella partners till dem som besvarat enkäten**
|
||
|
||
```{r}
|
||
|
||
mean(share$Ålder_partner, na.rm = TRUE)
|
||
```
|
||
|
||
## Fråga 9
|
||
|
||
```{r}
|
||
|
||
mean(is.na(share$Ålder_partner)) * 100
|
||
```
|
||
|
||
## Fråga 10
|
||
|
||
De har ingen partner
|
||
|
||
## Fråga 11
|
||
|
||
Läs
|
||
|
||
## Fråga 12
|
||
|
||
```{r}
|
||
|
||
ggplot(share) +
|
||
ggtitle("Ett stapeldiagram") +
|
||
aes(x = Antal_böcker_i_hemmet_vid_ålder_10) +
|
||
geom_bar(fill = "#00CC00") +
|
||
theme_minimal()
|
||
```
|
||
|
||
## Fråga 13
|
||
|
||
Hur stor är andelen som bedömer att deras språkförmåga vid 10 års ålder var bättre än jämnårigas bland dem som hade två bokhyllor med böcker i hemmet vid 10 års ålder? \
|
||
*Ange svaret i procent med en decimal. Använd kommatecken ( , ).*
|
||
|
||
```{r}
|
||
|
||
mean(share$Relativ_språkförmåga_10_år[share$Antal_böcker_i_hemmet_vid_ålder_10 == "Mer än två bokhyllor (> 200 böcker)"] == "Bättre") * 100
|
||
```
|
||
|
||
## Fråga 14
|
||
|
||
**Hur stor är andelen som bedömer att deras matteförmåga vid 10 års ålder var bättre än jämnårigas bland dem som hade två bokhyllor med böcker i hemmet vid 10 års ålder?**
|
||
|
||
```{r}
|
||
|
||
mean(share$Relativ_matteförmåga_10_år[share$Antal_böcker_i_hemmet_vid_ålder_10 == "Mer än två bokhyllor (> 200 böcker)"] == "Bättre") * 100
|
||
```
|
||
|
||
## Fråga 15
|
||
|
||
Vad är det genomsnittliga antalet utbildningsår för de svarande vars antal böcker i hemmed vid 10-års ålder var ett hyllplan eller färre (dvs "inga eller få" eller "ett hyllplan")?
|
||
|
||
```{r}
|
||
|
||
mean(share$Utbildningsår[share$Antal_böcker_i_hemmet_vid_ålder_10 == "Inga eller få (0-10 böcker)" | share$Antal_böcker_i_hemmet_vid_ålder_10 == "Ett hyllplan (11-25 böcker)"])
|
||
```
|
||
|
||
## Fråga 16
|
||
|
||
```{r}
|
||
|
||
mean(share$Utbildningsår[share$Antal_böcker_i_hemmet_vid_ålder_10 %in% c("Inga eller få (0-10 böcker)","Ett hyllplan (11-25 böcker")])
|
||
```
|
||
|
||
## Fråga 17
|
||
|
||
```{r}
|
||
|
||
sd(share$Utbildningsår[share$Antal_böcker_i_hemmet_vid_ålder_10 %in% c("Inga eller få (0-10 böcker)","Ett hyllplan (11-25 böcker)")])
|
||
|
||
sd(share$Utbildningsår[share$Antal_böcker_i_hemmet_vid_ålder_10 %in% c("En bokhylla (26-100 böcker)","Två bokhyllor (101-200 böcker)")])
|
||
```
|
||
|
||
## Fråga 18
|
||
|
||
```{r}
|
||
|
||
ggplot(share) +
|
||
ggtitle("Spridningsdiagram") +
|
||
aes(x = Utbildningsår, y = Hushållsinkomst) +
|
||
geom_point(colour = "#00CC00") +
|
||
geom_smooth(se = FALSE) +
|
||
theme_minimal()
|
||
|
||
```
|
||
|
||
## Fråga 19
|
||
|
||
```{r}
|
||
|
||
library(dplyr)
|
||
|
||
share <- share %>%
|
||
mutate(
|
||
Ekonomi_grupp = case_when(
|
||
`Får_ekonomin_att_gå_ihop` %in% c("Lätt", "Ganska lätt") ~ "Med lätthet",
|
||
`Får_ekonomin_att_gå_ihop` %in% c("Med viss svårighet", "Med stor svårighet") ~ "Med svårighet",
|
||
TRUE ~ NA_character_
|
||
)
|
||
)
|
||
```
|
||
|
||
## Fråga 20
|
||
|
||
**Lite mer osäker på denna faktiskt**
|
||
|
||
```{r}
|
||
|
||
ggplot(share) +
|
||
ggtitle("Hushållsinkomst efter hur lätt ekonomin går att få ihop") +
|
||
aes(x = Ekonomi_grupp, y = Hushållsinkomst) +
|
||
geom_boxplot(colour = "#00CC00") +
|
||
scale_y_continuous(labels = scales::comma) +
|
||
theme_minimal()
|
||
```
|