---
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()
```