|
|
@@ -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 |
|
|
|