Exhaustivité à partir de web100t

cloture.Rmd

@@ -401,27 +401,84 @@ 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}
-rss %>%
-  filter(annee_sortie == annee) %>%
-  count(pole_libelle, service_libelle) %>%
-  bind_rows(rss %>%
-            filter(annee_sortie == annee) %>%
-            count(pole_libelle)) %>%
-  full_join(gam %>%
-            count(pole_libelle, service_libelle) %>%
-            bind_rows(gam %>%
-                      count(pole_libelle)),
-            by = c("pole_libelle", "service_libelle")) %>%
-  mutate(n.y = ifelse(is.na(n.y), 0, n.y),
-         n.x = n.x + n.y,
-         exh_service = (n.x - n.y) / n.x,
-         pole_libelle = pole_libelle %>% factor) %>%
-  arrange(pole_libelle, service_libelle) %>%
-  mutate(service_libelle = ifelse(is.na(service_libelle), "TOTAL", service_libelle)) %>%
-
-  datatable(colnames = c("Pôle", "Service de responsabilité", "RSS produits", "RSS manquants", "Exhaustivité"),
+#rss %>%
+#  filter(annee_sortie == annee) %>%
+#  count(pole_libelle, service_libelle) %>%
+#  bind_rows(rss %>%
+#            filter(annee_sortie == annee) %>%
+#            count(pole_libelle)) %>%
+#  full_join(gam %>%
+#            count(pole_libelle, service_libelle) %>%
+#            bind_rows(gam %>%
+#                      count(pole_libelle)),
+#            by = c("pole_libelle", "service_libelle")) %>%
+#  mutate(n.y = ifelse(is.na(n.y), 0, n.y),
+#         n.x = n.x + n.y,
+#         exh_service = (n.x - n.y) / n.x,
+#         pole_libelle = pole_libelle %>% factor) %>%
+#  arrange(pole_libelle, service_libelle) %>%
+#  mutate(service_libelle = ifelse(is.na(service_libelle), "TOTAL", service_libelle)) %>%
+#
+#  datatable(colnames = c("Pôle", "Service de responsabilité", "RSS produits", "RSS manquants", "Exhaustivité"),
+#            rownames = F) %>%
+#  formatPercentage(5, digits = 2)
+exhau_pims %>%
+  group_by(Pole, Service) %>%
+  summarise(Prod = n()) %>%
+full_join(
+  exhau_pims %>%
+    filter(DP == "") %>%
+    group_by(Pole, Service) %>%
+    summarise(Manquants = n())
+) %>%
+full_join(
+  exhau_pims %>%
+    filter(Erreur == 4) %>%
+    group_by(Pole, Service) %>%
+    summarise(Rumrss = n())
+) %>%
+bind_rows(
+  exhau_pims %>%
+    group_by(Pole) %>%
+    summarise(Prod = n()) %>%
+    full_join(
+      exhau_pims %>%
+        filter(DP == "") %>%
+        group_by(Pole) %>%
+        summarise(Manquants = n())
+    ) %>%
+    full_join(
+      exhau_pims %>%
+        filter(Erreur == 4) %>%
+        group_by(Pole) %>%
+        summarise(Rumrss = n())
+    )
+) %>%
+bind_rows(
+  exhau_pims %>%
+    summarise(Prod = n()) %>%
+    bind_cols(
+      exhau_pims %>%
+        filter(DP == "") %>%
+        summarise(Manquants = n())
+    ) %>%
+    bind_cols(
+      exhau_pims %>%
+        filter(Erreur == 4) %>%
+        summarise(Rumrss = n())
+    )
+) %>%
+arrange(Pole, Service) %>%
+select(Pole, Service, Manquants, Rumrss, Prod) %>%
+mutate(Service = ifelse(is.na(Service), "TOTAL", Service),
+       Exh_rum = (Prod - Manquants) / Prod,
+       Exh_rumrss = (Prod - Rumrss) / Prod,
+       Exh_rum = ifelse(is.na(Exh_rum), 1, Exh_rum),
+       Exh_rumrss = ifelse(is.na(Exh_rumrss), 1, Exh_rumrss)) %>%
+
+  datatable(colnames = c("Pôle", "Service", "RUM manquants", "RUM dans RSS manquant", "Production RUM", "Exhaustivité RUM", "Exhaustivité RUM-RSS"),
             rownames = F) %>%
-  formatPercentage(5, digits = 2)
+  formatPercentage(c(6,7), digits = 2)
 ```
 
 ## Valorisation