La in lite grejer från quiz

lektion1/Lektion_1.qmd

@@ -262,16 +262,23 @@ Läs in filen `hotel.rds` i Rstudio. (Se till att den filen ligger i mappen som
 hotels <- readRDS("hotel.rds") 
 ```
 
-1.  Hur många observationer och hur många variabler innehåller filen `hotel.rds`?\
-    \
-    **Tips**: Se övre högra fönstret i RStudio. Klicka på den blå symbolen till vänster om `hotels` så kan du se detaljer om datamaterialet. Om du istället klickar på texten `hotels` så öppnas hela datamaterialet i en ny flik i RStudio.
+1 Hur många observationer och hur många variabler innehåller filen `hotel.rds`?
 
-2.  Vilken typ av variabel, kvalitativ eller kvantitativ, är variablerna `IsCanceled` (mäter om reservationen bokats av eller inte), `LeadTime` (antal dagar från bokning till ankomst) samt `hotel` (h1 för Algarve och h2 för Lissabon)?\
+118 322 observationer med 33 variablar\
+\
+**Tips**: Se övre högra fönstret i RStudio. Klicka på den blå symbolen till vänster om `hotels` så kan du se detaljer om datamaterialet. Om du istället klickar på texten `hotels` så öppnas hela datamaterialet i en ny flik i RStudio.
+
+```{r}
+
+View(hotels)
+```
+
+1.  Vilken typ av variabel, kvalitativ eller kvantitativ, är variablerna `IsCanceled` (mäter om reservationen bokats av eller inte), `LeadTime` (antal dagar från bokning till ankomst) samt `hotel` (h1 för Algarve och h2 för Lissabon)?\
     (Bortse från hur variabeln är *kodad* i datamaterialet.)\
 
-3.  Vi kodar om variabeln `IsCanceled` så att 0 blir "No" och 1 blir "Yes". Klicka på "Addins" längst upp i övre vänstra fönstret och leta upp 'Levels recoding' (du måste ha paketet `questionr` installerat). Se Figur 11-14 i bilagan.\
+2.  Vi kodar om variabeln `IsCanceled` så att 0 blir "No" och 1 blir "Yes". Klicka på "Addins" längst upp i övre vänstra fönstret och leta upp 'Levels recoding' (du måste ha paketet `questionr` installerat). Se Figur 11-14 i bilagan.\
 
-4.  Klistra in koden från 'Levels recoding' i chunken nedan och klicka därefter på den gröna pilen.
+3.  Klistra in koden från 'Levels recoding' i chunken nedan och klicka därefter på den gröna pilen.
 
 ```{r}
 # Klistra in kod från 'Levels recoding' nedan

quiz/Quiz.qmd

@@ -0,0 +1,78 @@
+---
+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()
+```