Fix graphs exhaustivité

cloture.Rmd

@@ -389,7 +389,8 @@ rss %>%
   full_join(gam %>%
             count(mois_sortie),
             by = "mois_sortie") %>%
-  mutate(n = 100 * (n.x - n.y) / n.x) %>%
+  mutate(n = 100 * (n.x - n.y) / n.x,
+         n = ifelse(is.na(n), 100, n)) %>%
 
   ggplot +
   aes(x = mois_sortie,
@@ -409,6 +410,7 @@ rss %>%
 ```{r fig8}
 gam %>%
   count(mois_sortie) %>%
+  full_join(data.frame(mois_sortie = setdiff(1:mois, .$mois_sortie), n = 0)) %>%
 
   ggplot +
   aes(x = mois_sortie,