Docs couv (#304)

 maj ps

analyse/couverture_catalogue/generer_rapports.R

@@ -431,6 +431,93 @@ rmarkdown::render("stats_catalogue_generique.Rmd",
                   output_file = "parcoursup_campagne_2024.html"
 )
 
+parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% 
+  filter(Couverture=="Non couvert") %>% 
+  distinct(certificateur_valideur_simpli,type_territoire,Nouvelle_formation,presence_UAI_ACCE,presence_Code_Scolarité_certif_info)
+
+### exemples ----
+#### UAI ---- 
+parcoursup_2024_02 %>% 
+  filter(CODEFORMATIONACCUEIL%in% (
+    parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% 
+      filter(Couverture=="Non couvert") %>% 
+      filter(is.na(presence_UAI_ACCE)) %>% 
+      pull(CODEFORMATIONACCUEIL) 
+  )) %>% 
+  select(UAI_COMPOSANTE,LIB_COMPOSANTE) %>%
+  setNames(c("uai","lib_uai")) %>% 
+  bind_rows(
+    parcoursup_2024_02 %>% 
+      filter(CODEFORMATIONACCUEIL%in% (
+        parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% 
+          filter(Couverture=="Non couvert") %>% 
+          filter(is.na(presence_UAI_ACCE)) %>% 
+          pull(CODEFORMATIONACCUEIL) 
+      )) %>% 
+      select(UAI_AFF,LIB_AFF) %>% 
+      setNames(c("uai","lib_uai"))
+  ) %>% 
+  distinct() %>% 
+  View()
+
+
+parcoursup_2024_02 %>% 
+  filter(CODEFORMATIONACCUEIL%in% (
+    parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% 
+      filter(certificateur_valideur_simpli=="Autres ministères certificateurs") %>% 
+      filter(Couverture=="Non couvert") %>% 
+      pull(CODEFORMATIONACCUEIL) 
+  )) %>% 
+  group_by(CODEFORMATION,LIBFORMATION,CODESPÉCIALITÉ,LIBSPÉCIALITÉ) %>% 
+  summarise(nb=n()) %>% 
+  ungroup() %>% 
+  mutate(part=prop.table(nb)) %>% 
+  arrange(desc(part)) %>% 
+  View()
+
+
+
+parcoursup_2024_02 %>% 
+  filter(CODEFORMATIONACCUEIL%in% (
+    parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% 
+      filter(Nouvelle_formation) %>% 
+      filter(Couverture=="Non couvert") %>% 
+      pull(CODEFORMATIONACCUEIL) 
+  )) %>% 
+  group_by(CODEFORMATION,LIBFORMATION,CODESPÉCIALITÉ,LIBSPÉCIALITÉ) %>% 
+  summarise(nb=n()) %>% 
+  ungroup() %>% 
+  mutate(part=prop.table(nb)) %>% 
+  arrange(desc(part)) %>% 
+  View()
+
+
+
+
+parcoursup_2024_02 %>% 
+  filter(CODEFORMATIONACCUEIL%in% (
+    parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% 
+      filter(type_territoire=="Territoire mal couvert") %>% 
+      filter(Couverture=="Non couvert") %>% 
+      pull(CODEFORMATIONACCUEIL) 
+  )) %>% 
+  group_by(ACADÉMIE) %>% 
+  summarise(nb=n()) %>% 
+  ungroup() %>% 
+  mutate(part=prop.table(nb)) %>% 
+  arrange(desc(part)) %>% 
+  View()
+
+
+parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% 
+    filter(Couverture=="Non couvert") %>% 
+    filter(scope)  %>% 
+    select(UAI,MEFSTAT11,Filiere,CODEFORMATIONACCUEIL,FORMATION_DIPLOME,data,LIBELLE_COURT) %>% 
+    unnest() %>% 
+    select(UAI,MEFSTAT11,LIBELLE_COURT,LIBELLE_LONG_200,Filiere,CODEFORMATIONACCUEIL,FORMATION_DIPLOME,contains("nb"),contains("taux")) 
+
+
+# write_csv2(parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert,file = file.path(chemin_racine,"Groupe-002 - Parcoursup/003 - 4 - Prepa ParcourSup 2025/parcoursup_2024_scope_non_couvert_sans_raison_a_transmettre.csv"))
 
 ## Parcoursup campagne 2025----
 

analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R

@@ -1274,24 +1274,14 @@ stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire <- stats_cat
   ) %>% 
   select(Périmètre,`Niveau de formation`,`Type diplôme`,Filiere,Certificateur,`Scope campagne 2024`,`Scope campagne 2025`,everything()) %>% 
   mutate(
-<<<<<<< HEAD:analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R
     `Scope campagne 2024`=case_when(
       !is.na(`Scope campagne 2024`) & Filiere=="Sco."~`Scope campagne 2024`,
-=======
-    `Scope 2024`=case_when(
-      !is.na(`Scope 2024`) & Filiere=="Sco."~`Scope 2024`,
->>>>>>> main:analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_agreagation_02_2024_ET_10_2024.R
       Périmètre=="Total"~"Total",
       `Niveau de formation` %in% 4:5 & Filiere=="App."~"Oui",
       T~"Non"
     ),
-<<<<<<< HEAD:analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R
     `Scope campagne 2025`=case_when(
       !is.na(`Scope campagne 2025`) & Filiere=="Sco."~`Scope campagne 2025`,
-=======
-    `Scope 2025`=case_when(
-      !is.na(`Scope 2025`) & Filiere=="Sco."~`Scope 2025`,
->>>>>>> main:analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_agreagation_02_2024_ET_10_2024.R
       Périmètre=="Total"~"Total",
       `Niveau de formation` %in% 4:5 & Filiere=="App."~"Oui",
       T~"Non"
@@ -1307,24 +1297,14 @@ stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux <- sta
   ) %>% 
   select(Périmètre,`Niveau de formation`,`Type diplôme`,Filiere,Certificateur,`Scope campagne 2024`,`Scope campagne 2025`,everything()) %>% 
   mutate(
-<<<<<<< HEAD:analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R
     `Scope campagne 2024`=case_when(
       !is.na(`Scope campagne 2024`) & Filiere=="Sco."~`Scope campagne 2024`,
-=======
-    `Scope 2024`=case_when(
-      !is.na(`Scope 2024`) & Filiere=="Sco."~`Scope 2024`,
->>>>>>> main:analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_agreagation_02_2024_ET_10_2024.R
       Périmètre=="Total"~"Total",
       `Niveau de formation` %in% 4:5 & Filiere=="App."~"Oui",
       T~"Non"
     ),
-<<<<<<< HEAD:analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R
     `Scope campagne 2025`=case_when(
       !is.na(`Scope campagne 2025`) & Filiere=="Sco."~`Scope campagne 2025`,
-=======
-    `Scope 2025`=case_when(
-      !is.na(`Scope 2025`) & Filiere=="Sco."~`Scope 2025`,
->>>>>>> main:analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_agreagation_02_2024_ET_10_2024.R
       Périmètre=="Total"~"Total",
       `Niveau de formation` %in% 4:5 & Filiere=="App."~"Oui",
       T~"Non"

analyse/couverture_catalogue/prepa_data_init_generique.R

@@ -246,6 +246,7 @@ data_meta_formationsStats_init <- data_meta_formationsStats_init %>%
          ),
          millesime=str_sub(millesime,-4),
          Couverture=case_when(
+           nb_annee_term < 20 ~ "Sous le seuil de 20 élèves",
            !(`Couverture Taux En Emploi 6 Mois` & `Couverture Taux Autres 6 Mois` & `Couverture Taux En poursuite`)  ~ "Non couvert",
            (`Couverture Taux En Emploi 6 Mois` & `Couverture Taux Autres 6 Mois` & `Couverture Taux En poursuite`)& Avant_apres_continuum!="Sous le seuil de 20 élèves"  ~ "Couvert",
            millesime == max(millesime) & str_detect(Avant_apres_continuum, "continuum") ~ "Couvert",