Changed readme and stuff

lektion1/Lektion_1.qmd

@@ -191,6 +191,7 @@ bike %>% select(member) %>% summary()
 ### Klistra in koden från ggplot builder nedan
 
 ggplot(bike) +
+  ggtitle("Antal uthyrning per sässong") + 
   aes(x = season, y = total) +
   geom_boxplot(fill = "#112446") +
   theme_minimal()
@@ -237,8 +238,10 @@ Jag får extra pressision med 1 decimal?
 ```{r rentals vs temp}
 
 ggplot(bike) +
+  ggtitle("Rentals per temperatur") +
   aes(x = tempC, y = total) +
   geom_point(colour = "#00CC00") + 
+  geom_smooth(se = FALSE) +
   theme_minimal()
 ```