From 7a5baea4985e577c080cce4aeae99ef5219f0391 Mon Sep 17 00:00:00 2001 From: Arnaud Milet Date: Thu, 14 Nov 2024 13:38:12 +0100 Subject: [PATCH] Docs couv (#308) suppression des ministeres --- .../couverture_catalogue/generer_rapports.R | 203 +++++++++++++----- .../parcoursup/parcoursup_campagne_2024.html | 18 +- 2 files changed, 152 insertions(+), 69 deletions(-) diff --git a/analyse/couverture_catalogue/generer_rapports.R b/analyse/couverture_catalogue/generer_rapports.R index 6f0eb067..03e15d7a 100644 --- a/analyse/couverture_catalogue/generer_rapports.R +++ b/analyse/couverture_catalogue/generer_rapports.R @@ -444,7 +444,6 @@ parcoursup_2024_02 %>% filter(is.na(presence_UAI_ACCE)) %>% pull(CODEFORMATIONACCUEIL) )) %>% -<<<<<<< HEAD left_join( correspondance_formation_certificateur %>% mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")), @@ -453,29 +452,11 @@ parcoursup_2024_02 %>% filter(`Scope campagne 2024`=="Oui") %>% group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>% summarise(nb=n()) -======= - 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() ->>>>>>> main parcoursup_2024_02 %>% filter(CODEFORMATIONACCUEIL%in% ( parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% -<<<<<<< HEAD filter(Couverture=="Non couvert") %>% filter(is.na(presence_UAI_ACCE)) %>% pull(CODEFORMATIONACCUEIL) @@ -505,37 +486,7 @@ parcoursup_2024_02 %>% filter(`Scope campagne 2024`=="Oui") %>% group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>% summarise(nb=n()) -======= - 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() - - ->>>>>>> main - -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() - -<<<<<<< HEAD #Territoire mal couvert @@ -554,9 +505,6 @@ parcoursup_2024_02 %>% filter(`Scope campagne 2024`=="Oui") %>% group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>% summarise(nb=n()) -======= ->>>>>>> main - parcoursup_2024_02 %>% filter(CODEFORMATIONACCUEIL%in% ( @@ -569,10 +517,9 @@ parcoursup_2024_02 %>% summarise(nb=n()) %>% ungroup() %>% mutate(part=prop.table(nb)) %>% - arrange(desc(part)) %>% - View() + arrange(desc(part)) % + -<<<<<<< HEAD ### Non couvert sans bonnes raison ----- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_2024_02 %>% filter(CODEFORMATIONACCUEIL %in% ( @@ -588,6 +535,7 @@ parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_ ) + # 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")) #### Problème UAI ---- @@ -740,11 +688,156 @@ parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_ 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")) +>>>>>>> main # 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")) >>>>>>> main +#### Problème UAI ---- + +exemple_pb_uai <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert %>% + filter(CODEFORMATIONACCUEIL %in% ( + parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% + filter(Couverture=="Non couvert") %>% + filter(Nouvelle_formation=="FALSE" | is.na(Nouvelle_formation)) %>% + filter(is.na(presence_UAI_ACCE)) %>% + pull(CODEFORMATIONACCUEIL) + + )) %>% + filter(`Scope campagne 2025`=="Oui") %>% + group_by(LIBFORMATION ,APPRENTISSAGEOUSCOLAIRE ) %>% + nest() %>% + mutate(data=map(data,function(df){ + df %>% + arrange(desc(NBDEDEMANDES)) %>% + slice(1) + }) + ) %>% + unnest() %>% + select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE) + +#### Probleme qualité du code SISE ---- + +exemple_pb_qualite_sise <- listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% + mutate( + `Type diplôme`=case_when( + str_sub(LIBFORMATION,1,2)=="LP"~"Licence professionnelle", + str_sub(LIBFORMATION,1,7)=="Licence"~"Licence générale" + ), + Filiere=ifelse(APPRENTISSAGEOUSCOLAIRE=="Scolaire","Sco.","App.") + ) %>% + filter(`Couverture avec code SISE retenu`=="Non couvert") %>% + filter(!is.na(CODESISE)) %>% + slice(1) %>% + bind_rows( + listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% + mutate( + `Type diplôme`=case_when( + str_sub(LIBFORMATION,1,2)=="LP"~"Licence professionnelle", + str_sub(LIBFORMATION,1,7)=="Licence"~"Licence générale" + ), + Filiere=ifelse(APPRENTISSAGEOUSCOLAIRE=="Scolaire","Sco.","App.") + ) %>% + filter(`Couverture avec code SISE retenu`=="Non couvert") %>% + filter(is.na(CODESISE),!is.na(`Code SISE retenu`)) %>% + slice(1) + ) %>% + bind_rows( + listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% + mutate( + `Type diplôme`=case_when( + str_sub(LIBFORMATION,1,2)=="LP"~"Licence professionnelle", + str_sub(LIBFORMATION,1,7)=="Licence"~"Licence générale" + ), + Filiere=ifelse(APPRENTISSAGEOUSCOLAIRE=="Scolaire","Sco.","App.") + ) %>% + filter(`Couverture avec code SISE retenu`=="Couvert avec plusieurs SISE") %>% + slice(1) + ) %>% + select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE) + +#### Probleme code certif ---- + +exemple_pb_code_certif <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert %>% + filter(CODEFORMATIONACCUEIL %in% ( + parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% + filter(Couverture=="Non couvert") %>% + filter(presence_Code_Scolarité_certif_info) %>% + pull(CODEFORMATIONACCUEIL) + + )) %>% + filter(!UAI_COMPOSANTE %in% exemple_pb_uai$UAI_COMPOSANTE) %>% + filter(`Scope campagne 2025`=="Oui") %>% + group_by(LIBFORMATION ,APPRENTISSAGEOUSCOLAIRE ) %>% + nest() %>% + mutate(data=map(data,function(df){ + df %>% + arrange(desc(NBDEDEMANDES)) %>% + slice(1) + }) + ) %>% + unnest() %>% + select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE) + + +#### Problème territoire ---- + +set.seed(42) + +exemple_pb_territoire <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert %>% + filter(CODEFORMATIONACCUEIL %in% ( + parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% + filter(Couverture=="Non couvert") %>% + filter(certificateur_valideur_simpli!="Autres ministères certificateurs") %>% + filter(type_territoire=="Territoire mal couvert") %>% + pull(CODEFORMATIONACCUEIL) + + )) %>% + filter(!UAI_COMPOSANTE %in% c(exemple_pb_uai$UAI_COMPOSANTE,exemple_pb_code_certif$UAI_COMPOSANTE)) %>% + filter(`Scope campagne 2025`=="Oui") %>% + filter(APPRENTISSAGEOUSCOLAIRE=="Scolaire") %>% + group_by(LIBFORMATION ,APPRENTISSAGEOUSCOLAIRE,ACADÉMIE ) %>% + nest() %>% + mutate(data=map(data,function(df){ + df %>% + arrange(desc(NBDEDEMANDES)) %>% + slice(1) + }) + ) %>% + unnest() %>% + select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE) %>% + ungroup() %>% + sample_n(3) + +#### Problème sans raison évidente ---- + +exemple_pb_sans_raison_evidente <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert %>% + filter(CODEFORMATIONACCUEIL %in% ( + parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% + filter(Couverture=="Non couvert") %>% + filter(scope) %>% + pull(CODEFORMATIONACCUEIL) + + )) %>% + filter(!UAI_COMPOSANTE %in% c(exemple_pb_uai$UAI_COMPOSANTE,exemple_pb_code_certif$UAI_COMPOSANTE)) %>% + filter(`Scope campagne 2024`=="Oui") %>% + group_by(LIBFORMATION ,APPRENTISSAGEOUSCOLAIRE ) %>% + nest() %>% + mutate(data=map(data,function(df){ + df %>% + arrange(desc(NBDEDEMANDES)) %>% + slice(1) + }) + ) %>% + unnest() %>% + select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE) %>% + ungroup() + + ## Parcoursup campagne 2025---- source("parcoursup/script_prepa_ps_2025_campagne_2025.R") diff --git a/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html b/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html index 733d7b39..031463a2 100644 --- a/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html +++ b/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html @@ -4001,26 +4001,16 @@

Parcoursup

Synthese

Nombre de formations

-<<<<<<< HEAD -
- -======= -
- ->>>>>>> main +
+

Détails par type de diplôme

Nombre de formations

-<<<<<<< HEAD -
- -======= -
- ->>>>>>> main +
+