Filtre sur pôles fermés

cloture.Rmd

@@ -304,6 +304,8 @@ rss %>%
 ```{r tab4}
 rum %>%
   filter(mois_sortie <= mois) %>%
+  filter(! is.na(pole_libelle)) %>%
+  mutate(pole_libelle = ifelse(pole_libelle == "CLOS14 HEMATOLOGIE", "SPECIALITES MEDICALES", pole_libelle)) %>%
   count(pole_libelle, annee_sortie) %>%
   ungroup %>%
   spread(annee_sortie, n) %>%
@@ -319,6 +321,8 @@ rum %>%
 ```{r fig4}
 rum %>%
   filter(mois_sortie <= mois) %>%
+  filter(! is.na(pole_libelle)) %>%
+  mutate(pole_libelle = ifelse(pole_libelle == "CLOS14 HEMATOLOGIE", "SPECIALITES MEDICALES", pole_libelle)) %>%
   count(pole_libelle, annee_sortie) %>%
   ungroup %>%
 
@@ -431,9 +435,12 @@ gam %>%
 ```{r tab9}
 rss %>%
   filter(annee_sortie == annee) %>%
+  mutate(service_libelle = ifelse(service_libelle == "CLOS14 HEMATO.S.INTENSIFS", "SERVICE HEMATOLOGIE", service_libelle),
+         pole_libelle = ifelse(pole_libelle == "CLOS14 HEMATOLOGIE", "SPECIALITES MEDICALES", pole_libelle)) %>%
   count(pole_libelle, service_libelle) %>%
   bind_rows(rss %>%
             filter(annee_sortie == annee) %>%
+            mutate(pole_libelle = ifelse(pole_libelle == "CLOS14 HEMATOLOGIE", "SPECIALITES MEDICALES", pole_libelle)) %>%
             count(pole_libelle)) %>%
   full_join(gam %>%
             count(pole_libelle, service_libelle) %>%