Exhaustivité

cloture.Rmd

@@ -339,33 +339,41 @@ rum %>%
 
 ## Exhaustivité
 
-<!---
-### Exhaustivité des RUM et des RSS en fonction du mois et de l'année de clôture
+### Exhaustivité des RSS en fonction du mois et de l'année de clôture
 
-#### <a href="#tab5" data-toggle="collapse" class="panel-heading">Nombre de RUM et de RSS produits et transmis, et taux d'exhaustivité : historique des clôtures de l'année</a> {.panel .panel-default}
+#### <a href="#tab5" data-toggle="collapse" class="panel-heading">Nombre de RSS produits et transmis, et taux d'exhaustivité : historique des clôtures de l'année</a> {.panel .panel-default}
 ##### {.panel-body .collapse #tab5}
 ```{r tab5}
+exhau %>%
+  mutate(rss_prod = rss + manq,
+         exh = rss / rss_prod) %>%
+  select(rss_prod, rss, exh) %>%
 
-```
-
-#### <a href="#fig5a" data-toggle="collapse" class="panel-heading">Nombre de RUM produits et transmis, et taux d'exhaustivité selon le mois clôturé de l'année courante</a> {.panel .panel-default}
-##### {.panel-body .collapse .in #fig5a}
-```{r fig5a}
+  datatable(colnames = c("Clôture", "Total RSS produits", "Nombre de RSS transmis", "Taux d'exhaustivité RSS (%)"),
+            rownames = mois_label) %>%
+  formatPercentage(3, digits = 2)
 
 ```
 
-#### <a href="#fig5b" data-toggle="collapse" class="panel-heading">Nombre de RSS produits et transmis, et taux d'exhaustivité selon le mois clôturé de l'année courante</a> {.panel .panel-default}
-##### {.panel-body .collapse .in #fig5b}
-```{r fig5b}
-
-```
+#### <a href="#fig5a" data-toggle="collapse" class="panel-heading">Taux d'exhaustivité selon le mois clôturé de l'année courante</a> {.panel .panel-default}
+##### {.panel-body .collapse #fig5a}
+```{r fig5a}
+exhau %>%
+  mutate(rss_prod = rss + manq,
+         exh = 100 * rss / rss_prod) %>%
 
-### <a href="#fig6" data-toggle="collapse" class="panel-heading">Exhaustivité des RSS au moment de la clôture pour les 2 dernières années</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #fig6}
-```{r fig6}
+  ggplot +
+  aes(x = mois,
+      y = exh) +
+  geom_point() +
+  geom_line() +
+  labs(x = NULL,
+       y = NULL,
+       title = NULL) +
+  scale_x_discrete(labels = mois_label) +
+  theme(axis.text.x = element_text(angle = 45, hjust = 1))
 
 ```
--->
 
 ### Exhaustivité mensuelle de la clôture
 
@@ -421,10 +429,10 @@ gam %>%
 ### <a href="#tab9" data-toggle="collapse" class="panel-heading">Exhaustivité par pôle et par service</a> {.panel .panel-default}
 #### {.panel-body .collapse #tab9}
 ```{r tab9}
-rum %>%
+rss %>%
   filter(annee_sortie == annee) %>%
   count(pole_libelle, service_libelle) %>%
-  bind_rows(rum %>%
+  bind_rows(rss %>%
             filter(annee_sortie == annee) %>%
             count(pole_libelle)) %>%
   full_join(gam %>%
@@ -439,7 +447,7 @@ rum %>%
   arrange(pole_libelle, service_libelle) %>%
   mutate(service_libelle = ifelse(is.na(service_libelle), "TOTAL", service_libelle)) %>%
 
-  datatable(colnames = c("Pôle", "Service de responsabilité", "RUM produits", "RUM manquants", "Exhaustivité"),
+  datatable(colnames = c("Pôle", "Service de responsabilité", "RSS produits", "RSS manquants", "Exhaustivité"),
             rownames = F) %>%
   formatPercentage(5, digits = 2)
 ```