From de6664372d2908e7717ce54b71fe95dfa71e7782 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Wed, 1 Jun 2016 17:40:54 +0200
Subject: [PATCH] =?UTF-8?q?Exhaustivit=C3=A9=20=C3=A0=20partir=20de=20web1?=
 =?UTF-8?q?00t?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 cloture.Rmd | 97 ++++++++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 77 insertions(+), 20 deletions(-)

diff --git a/cloture.Rmd b/cloture.Rmd
index d679b3a..1b8ed0a 100644
--- a/cloture.Rmd
+++ b/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