Correction compte RSS manquants

cloture.Rmd

@@ -377,14 +377,16 @@ exhau %>%
 ```{r fig7}
 exhau_pims %>%
   mutate(mois_sortie = month(Sortie)) %>%
-  filter(!is.na(DP)) %>%
+  filter(is.na(DP)) %>%
+  distinct(RSS, .keep_all = T) %>%
   count(mois_sortie) %>%
   full_join(exhau_pims %>%
             mutate(mois_sortie = month(Sortie)) %>%
+            distinct(RSS, .keep_all = T) %>%
             count(mois_sortie),
             by = "mois_sortie") %>%
-  mutate(n = 100 * n.x / n.y,
-         n = ifelse(is.na(n), 100, n)) %>%
+  mutate(n = 100 * (n.y - n.x) / n.y) %>%
+  complete(mois_sortie = 1:mois, fill = list(n = 100)) %>%
 
   ggplot(
   aes(x = mois_sortie,
@@ -406,14 +408,10 @@ exhau_pims %>%
 ```{r fig8}
 exhau_pims %>%
   mutate(mois_sortie = month(Sortie)) %>%
-  filter(!is.na(DP)) %>%
+  filter(is.na(DP)) %>%
+  distinct(RSS, .keep_all = T) %>%
   count(mois_sortie) %>%
-  full_join(exhau_pims %>%
-            mutate(mois_sortie = month(Sortie)) %>%
-            count(mois_sortie),
-            by = "mois_sortie") %>%
-  mutate(n = n.y - n.x,
-         n = ifelse(is.na(n), 0, n)) %>%
+  complete(mois_sortie = 1:mois, fill = list(n = 0)) %>%
 
   ggplot(
   aes(x = mois_sortie,