Fix nom des mois sur graphs

cloture.Rmd

@@ -90,7 +90,7 @@ rum %>%
         y = n,
         color = annee_sortie %>% factor,
         shape = annee_sortie %>% factor) +
-    scale_x_discrete(labels = mois_label) +
+    scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
     geom_line() +
     geom_point() +
     labs(x = NULL,
@@ -130,7 +130,7 @@ rss %>%
       y = n,
       color = annee_sortie %>% factor,
       shape = annee_sortie %>% factor) +
-  scale_x_discrete(labels = mois_label) +
+  scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
@@ -172,7 +172,7 @@ rss %>%
       y = n,
       color = annee_sortie %>% factor,
       shape = annee_sortie %>% factor) +
-  scale_x_discrete(labels = mois_label) +
+  scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
@@ -216,7 +216,7 @@ rss %>%
       y = n,
       color = annee_sortie %>% factor,
       shape = annee_sortie %>% factor) +
-  scale_x_discrete(labels = mois_label) +
+  scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
@@ -258,7 +258,7 @@ rss %>%
       y = n,
       color = annee_sortie %>% factor,
       shape = annee_sortie %>% factor) +
-  scale_x_discrete(labels = mois_label) +
+  scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
@@ -342,7 +342,7 @@ exhau %>%
   labs(x = NULL,
        y = NULL,
        title = NULL) +
-  scale_x_discrete(labels = mois_label) +
+  scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   theme(axis.text.x = element_text(angle = 45, hjust = 1))
 
 ```
@@ -366,7 +366,7 @@ rss %>%
   ggplot +
   aes(x = mois_sortie,
       y = n) +
-  scale_x_discrete(labels = mois_label) +
+  scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
@@ -387,7 +387,7 @@ gam %>%
   ggplot +
   aes(x = mois_sortie,
       y = n) +
-  scale_x_discrete(labels = mois_label) +
+  scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,