ajout theme_bw

module2/exo3/exercice_fr.Rmd

@@ -31,7 +31,8 @@ data.frame(dat) %>%
   geom_line(col = "blue") +
   scale_x_continuous(limits = c(0, 100), breaks = seq(0, 100, by = 20), expand = c(0, 0)) +
   scale_y_continuous(limits = c(0, 25), breaks = seq(0, 25, by = 5), expand = c(0, 0)) +
-  labs(x = "", y = "")
+  labs(x = "", y = "") +
+  theme_bw()
 ```
 
 # Histogramme
@@ -40,7 +41,9 @@ Bien qu'utilisant le même nombre de "bins" que dans l'image attendue (10 "bins"
 data.frame(dat) %>% 
   ggplot(aes(x = dat)) +
   geom_histogram(bins = 10, fill = "blue", col = "black") +
-  labs(x = "", y = "")
+  scale_y_continuous(limits = c(0, 27), breaks = seq(0, 30, by = 5), expand = c(0, 0)) +
+  labs(x = "", y = "") +
+  theme_bw()
 ```