79 lines
1.6 KiB
Plaintext
79 lines
1.6 KiB
Plaintext
---
|
|
title: "Quiz"
|
|
format: pdf
|
|
editor: visual
|
|
execute:
|
|
eval: false
|
|
editor_options:
|
|
chunk_output_type: console
|
|
---
|
|
|
|
```{r}
|
|
|
|
share <- readRDS("Datamaterial_SHARE_Modul3.rds")
|
|
```
|
|
|
|
```{r}
|
|
|
|
ggplot(share) +
|
|
ggtitle("Ett stapeldiagram") +
|
|
aes(x = Antal_böcker_i_hemmet_vid_ålder_10) +
|
|
geom_bar(fill = "#00CC00") +
|
|
theme_minimal()
|
|
```
|
|
|
|
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("TEst") +
|
|
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_
|
|
)
|
|
)
|
|
```
|
|
|
|
```{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()
|
|
```
|