From 8ad75a1010ab9a3caddda94f24841d29939aff1a Mon Sep 17 00:00:00 2001 From: Arnaud Milet Date: Thu, 14 Nov 2024 11:35:33 +0100 Subject: [PATCH] Docs couv (#307) suppression des ministeres --- .../functions/expo_mef_catalogue_partenaire.R | 30 +- .../couverture_catalogue/generer_rapports.R | 226 +++++++++++++ .../parcoursup/parcoursup_campagne_2024.html | 12 +- .../script_prepa_ps_2025_campagne_2024.R | 57 ++-- ...pt_prepa_ps_2025_campagne_2024_focus_sup.R | 312 ++++++++++++++++++ 5 files changed, 601 insertions(+), 36 deletions(-) create mode 100644 analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024_focus_sup.R diff --git a/analyse/couverture_catalogue/functions/expo_mef_catalogue_partenaire.R b/analyse/couverture_catalogue/functions/expo_mef_catalogue_partenaire.R index df5bf225..08621a41 100644 --- a/analyse/couverture_catalogue/functions/expo_mef_catalogue_partenaire.R +++ b/analyse/couverture_catalogue/functions/expo_mef_catalogue_partenaire.R @@ -991,19 +991,23 @@ expo_mef_stats_catalogue_partenaire <- function(catalogue_partenaire_renseigne,t ) } }else if(type_voeux=="parcoursup"){ - catalogue_partenaire_renseigne_voeux <- catalogue_partenaire_renseigne %>% - filter(is.na(CODEFORMATIONACCUEIL)) %>% - mutate(!!sym(var_effectifs):=as.numeric(NA)) %>% - bind_rows( - catalogue_partenaire_renseigne %>% - filter(!is.na(CODEFORMATIONACCUEIL))%>% - left_join( - voeux_parcoursup_affelnet_simpli_2023 %>% - select(c(CODEFORMATIONACCUEIL,all_of(var_effectifs)))%>% - distinct(), - by="CODEFORMATIONACCUEIL" - ) - ) + if("Demandes tous voeux" %in% names(catalogue_partenaire_renseigne)){ + catalogue_partenaire_renseigne_voeux <- catalogue_partenaire_renseigne + }else{ + catalogue_partenaire_renseigne_voeux <- catalogue_partenaire_renseigne %>% + filter(is.na(CODEFORMATIONACCUEIL)) %>% + mutate(!!sym(var_effectifs):=as.numeric(NA)) %>% + bind_rows( + catalogue_partenaire_renseigne %>% + filter(!is.na(CODEFORMATIONACCUEIL))%>% + left_join( + voeux_parcoursup_affelnet_simpli_2023 %>% + select(c(CODEFORMATIONACCUEIL,all_of(var_effectifs)))%>% + distinct(), + by="CODEFORMATIONACCUEIL" + ) + ) + } } diff --git a/analyse/couverture_catalogue/generer_rapports.R b/analyse/couverture_catalogue/generer_rapports.R index 9ad00ad6..6f0eb067 100644 --- a/analyse/couverture_catalogue/generer_rapports.R +++ b/analyse/couverture_catalogue/generer_rapports.R @@ -444,6 +444,16 @@ parcoursup_2024_02 %>% filter(is.na(presence_UAI_ACCE)) %>% pull(CODEFORMATIONACCUEIL) )) %>% +<<<<<<< HEAD + left_join( + correspondance_formation_certificateur %>% + mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")), + by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere") + ) %>% + filter(`Scope campagne 2024`=="Oui") %>% + group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>% + summarise(nb=n()) +======= select(UAI_COMPOSANTE,LIB_COMPOSANTE) %>% setNames(c("uai","lib_uai")) %>% bind_rows( @@ -459,11 +469,43 @@ parcoursup_2024_02 %>% ) %>% 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) + )) %>% + left_join( + correspondance_formation_certificateur %>% + mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")), + by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere") + ) %>% + filter(`Scope campagne 2025`=="Oui") %>% + group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>% + summarise(nb=n()) + +#Nouvelle formation +parcoursup_2024_02 %>% + filter(CODEFORMATIONACCUEIL%in% ( + parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% + filter(Couverture=="Non couvert") %>% + filter(Nouvelle_formation) %>% + pull(CODEFORMATIONACCUEIL) + )) %>% + left_join( + correspondance_formation_certificateur %>% + mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")), + by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere") + ) %>% + 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) @@ -476,6 +518,7 @@ parcoursup_2024_02 %>% View() +>>>>>>> main parcoursup_2024_02 %>% filter(CODEFORMATIONACCUEIL%in% ( @@ -492,6 +535,27 @@ parcoursup_2024_02 %>% View() +<<<<<<< HEAD +#Territoire mal couvert + + +parcoursup_2024_02 %>% + filter(CODEFORMATIONACCUEIL%in% ( + parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% + filter(Couverture=="Non couvert") %>% + filter(type_territoire=="Territoire mal couvert") %>% + pull(CODEFORMATIONACCUEIL) + )) %>% + left_join( + correspondance_formation_certificateur %>% + mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")), + by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere") + ) %>% + filter(`Scope campagne 2024`=="Oui") %>% + group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>% + summarise(nb=n()) +======= +>>>>>>> main parcoursup_2024_02 %>% @@ -508,6 +572,167 @@ parcoursup_2024_02 %>% arrange(desc(part)) %>% View() +<<<<<<< HEAD +### Non couvert sans bonnes raison ----- +parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_2024_02 %>% + filter(CODEFORMATIONACCUEIL %in% ( + parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% + filter(Couverture=="Non couvert") %>% + filter(Nouvelle_formation=="FALSE" | is.na(Nouvelle_formation)) %>% + pull(CODEFORMATIONACCUEIL) + )) %>% + left_join( + correspondance_formation_certificateur %>% + mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")), + by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere") + ) + + +# 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 ---- + +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_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% filter(Couverture=="Non couvert") %>% @@ -518,6 +743,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")) +>>>>>>> main ## Parcoursup campagne 2025---- diff --git a/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html b/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html index 60483d9f..733d7b39 100644 --- a/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html +++ b/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html @@ -3996,21 +3996,31 @@

Formations couvertes par la base InserJeunes

Parcoursup

Parcoursup - campagne 2024: Lien vers le catalogue

-

Dernière mise à jour : 05/11/2024

+

Dernière mise à jour : 14/11/2024

Synthese

Nombre de formations

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

Détails par type de diplôme

Nombre de formations

+<<<<<<< HEAD +
+ +=======
+>>>>>>> main
diff --git a/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R b/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R index 46af016b..5ffd7d61 100644 --- a/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R +++ b/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R @@ -70,7 +70,7 @@ parcoursup_campagne_2024 <- parcoursup_2024_10 %>% parcoursup_campagne_2024 <-parcoursup_campagne_2024 %>% select(-NBDEDEMANDES) %>% left_join( - parcoursup_2024_02 %>% + parcoursup_2024_10 %>% select(CODEFORMATIONACCUEIL,NBDEDEMANDES), by="CODEFORMATIONACCUEIL" ) @@ -326,8 +326,9 @@ parcoursup_nomenclature_de_ref_renseigne <- parcoursup_nomenclature_de_ref_rense ### Parcoursup dans InserSup (calculé initialement)---- -listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS <- read_excel("C:/Users/arnau/d-sidd Dropbox/Arnaud milet/0_beta/1- Exposition/Groupe-002 - Parcoursup/003 - 4 - Prepa ParcourSup 2025/listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS.xlsx") -listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS <- listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% +source("parcoursup/script_prepa_ps_2025_campagne_2024_focus_sup.R") + +parcoursup_campagne_2024_sup_a_transmettre_PS <- parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(CODEFORMATIONACCUEIL %in% parcoursup_campagne_2024$CODEFORMATIONACCUEIL) parcoursup_nomenclature_de_ref_renseigne <- parcoursup_nomenclature_de_ref_renseigne %>% @@ -748,7 +749,7 @@ parcoursup_2024_ij_renseigne <- temp %>% ) %>% unnest() %>% ungroup() %>% - filter(!CODEFORMATIONACCUEIL %in% (listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + filter(!CODEFORMATIONACCUEIL %in% (parcoursup_campagne_2024_sup_a_transmettre_PS %>% select(CODEFORMATIONACCUEIL) %>% pull(CODEFORMATIONACCUEIL) )) @@ -765,7 +766,7 @@ parcoursup_2024_pas_ij_pas_isup <- parcoursup_campagne_2024_param %>% filter(!CODEFORMATIONACCUEIL %in% (parcoursup_2024_ij_renseigne %>% select(CODEFORMATIONACCUEIL) %>% bind_rows( - listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + parcoursup_campagne_2024_sup_a_transmettre_PS %>% select(CODEFORMATIONACCUEIL) ) %>% pull(CODEFORMATIONACCUEIL))) %>% @@ -818,11 +819,19 @@ parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij <- parcoursup_2024_renseigne_pas ) %>% mutate( type_formation=ifelse(is.na(qualite_code)|qualite_code=="Correspondance impossible via les codes renseignés","Problème de qualité du code formation en entrée",type_formation) + ) %>% + left_join( + parcoursup_campagne_2024 %>% + distinct(CODEFORMATIONACCUEIL,NBDEDEMANDES) %>% + rename("Demandes tous voeux"=NBDEDEMANDES), + by="CODEFORMATIONACCUEIL" ) ### stats_catalogue ---- + + stats_catalogue_pas_ij_pas_isup_et_ij <- expo_mef_stats_catalogue_partenaire( catalogue_partenaire_renseigne = parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij, type_voeux= "parcoursup" @@ -874,7 +883,8 @@ stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire <- stats_catalo stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire <- stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire %>% - mutate(`Part du catalogue`=prop.table(`Nombre de formations`)) %>% + filter(Périmètre!="Total") %>% + mutate(`Part du catalogue`=prop.table(`Nombre de formations`)) %>% bind_rows( stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire %>% filter(Périmètre=="Total") @@ -927,6 +937,7 @@ stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire_voeux <- stats_ stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire_voeux <- stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire_voeux %>% + filter(Périmètre!="Total") %>% mutate(`Part du catalogue`=prop.table(`Demandes tous voeux`)) %>% bind_rows( stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire_voeux %>% @@ -935,7 +946,7 @@ stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire_voeux <- stats_ stats_catalogue_isup <- NULL -stats_catalogue_isup$stats_catalogue_partenaire <- listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% +stats_catalogue_isup$stats_catalogue_partenaire <- parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% mutate( `Type diplôme`=case_when( @@ -951,7 +962,7 @@ stats_catalogue_isup$stats_catalogue_partenaire <- listeFormationsInserJeunes_fi Périmètre = "InserSup" ) %>% left_join( - listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% mutate( `Type diplôme`=case_when( @@ -976,7 +987,7 @@ stats_catalogue_isup$stats_catalogue_partenaire <- listeFormationsInserJeunes_fi by=c("Type diplôme","Filiere") ) %>% left_join( - listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% mutate( `Type diplôme`=case_when( @@ -1004,7 +1015,7 @@ stats_catalogue_isup$stats_catalogue_partenaire <- listeFormationsInserJeunes_fi by=c("Type diplôme","Filiere") ) %>% left_join( - listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée",`Couverture avec code SISE retenu`=="Couvert") %>% mutate( `Type diplôme`=case_when( @@ -1030,7 +1041,7 @@ stats_catalogue_isup$stats_catalogue_partenaire <- listeFormationsInserJeunes_fi -stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% +stats_catalogue_isup$stats_catalogue_partenaire_voeux <- parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% mutate( `Type diplôme`=case_when( @@ -1040,13 +1051,13 @@ stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeu Filiere=ifelse(APPRENTISSAGEOUSCOLAIRE=="Scolaire","Sco.","App.") ) %>% group_by(`Type diplôme`,Filiere) %>% - summarise(`Demandes tous voeux`=sum(NBDEDEMANDES)) %>% + summarise(`Demandes tous voeux`=sum(`Demandes tous voeux`)) %>% mutate( `Niveau de formation`="6", Périmètre = "InserSup" ) %>% left_join( - listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% mutate( `Type diplôme`=case_when( @@ -1057,7 +1068,7 @@ stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeu `Couverture avec code SISE retenu`=ifelse(`Couverture avec code SISE retenu`=="Couvert avec plusieurs SISE","Non couvert",`Couverture avec code SISE retenu`) ) %>% group_by(`Type diplôme`,Filiere,`Couverture avec code SISE retenu`) %>% - summarise(nb=sum(NBDEDEMANDES)) %>% + summarise(nb=sum(`Demandes tous voeux`)) %>% pivot_wider(names_from = `Couverture avec code SISE retenu` ,values_from = nb) %>% mutate_all(replace_na,0) %>% mutate( @@ -1071,7 +1082,7 @@ stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeu by=c("Type diplôme","Filiere") ) %>% left_join( - listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% mutate( `Type diplôme`=case_when( @@ -1082,7 +1093,7 @@ stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeu `Couverture avec code SISE retenu`=ifelse(`Couverture avec code SISE retenu`=="Couvert avec plusieurs SISE","Non couvert",`Couverture avec code SISE retenu`) ) %>% group_by(`Type diplôme`,Filiere,`Couverture avec code SISE retenu`) %>% - summarise(part=sum(NBDEDEMANDES)) %>% + summarise(part=sum(`Demandes tous voeux`)) %>% mutate( part=prop.table(part), )%>% @@ -1099,7 +1110,7 @@ stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeu by=c("Type diplôme","Filiere") )%>% left_join( - listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% + parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée",`Couverture avec code SISE retenu`=="Couvert") %>% mutate( `Type diplôme`=case_when( @@ -1113,7 +1124,7 @@ stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeu ) ) %>% group_by(`Type diplôme`,Filiere,uai_type) %>% - summarise(nb=sum(NBDEDEMANDES)) %>% + summarise(nb=sum(`Demandes tous voeux`)) %>% pivot_wider(names_from = uai_type ,values_from = nb) %>% mutate_all(replace_na,0), by=c("Type diplôme","Filiere") @@ -1423,8 +1434,8 @@ stats_catalogue_parcoursup_campagne_2024_synthese$stats_catalogue_partenaire <- select(-Périmètre,-`Niveau de formation`,-`Type diplôme`,-Filiere,-Certificateur,-`Scope campagne 2024`,-`Scope campagne 2025`) %>% mutate(Scope="Ensemble catalogue") ) %>% - select(Scope,everything()) - + select(Scope,everything()) %>% + select(-contains("Non couvert - Autres ministères certificateurs")) stats_catalogue_parcoursup_campagne_2024_synthese$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux %>% @@ -1535,7 +1546,9 @@ stats_catalogue_parcoursup_campagne_2024_synthese$stats_catalogue_partenaire_voe select(-Périmètre,-`Niveau de formation`,-`Type diplôme`,-Filiere,-Certificateur,-`Scope campagne 2024`,-`Scope campagne 2025`) %>% mutate(Scope="Ensemble catalogue") ) %>% - select(Scope,everything()) + select(Scope,everything()) %>% + select(-contains("Non couvert - Autres ministères certificateurs")) + #Le sup semble couvert sur l'établissement gestionnaire: https://dossier.parcoursup.fr/Candidats/public/fiches/afficherFicheFormation?g_ta_cod=24415 # @@ -1549,7 +1562,7 @@ stats_catalogue_parcoursup_campagne_2024_synthese$stats_catalogue_partenaire_voe #https://data.enseignementsup-recherche.gouv.fr/explore/dataset/fr-esr-insersup/table/?flg=fr-fr&disjunctive.source&disjunctive.reg_id&disjunctive.aca_id&disjunctive.id_paysage&disjunctive.id_paysage_actuel&disjunctive.etablissement&disjunctive.type_diplome&disjunctive.dom&disjunctive.discipli&disjunctive.sectdis&disjunctive.diplome&disjunctive.date_inser&refine.etablissement=0772448T&sort=-promo&refine.diplome=2300002 # #Après vérification, aucun uai des 131 antennes présentes dans PS n'ont de stats pour leurs UAI (91 antennes ont des stats en remontant au gestionnaire) -listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% +parcoursup_campagne_2024_sup_a_transmettre_PS %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% filter(UAI_GES!=UAI_COMPOSANTE) %>% mutate( diff --git a/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024_focus_sup.R b/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024_focus_sup.R new file mode 100644 index 00000000..6bccc704 --- /dev/null +++ b/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024_focus_sup.R @@ -0,0 +1,312 @@ +# parcoursup_campagne_2024 <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/listeFormationsInserJeunes_finSession2024_01_10_2024.xls")) + +parcoursup_campagne_2024_sup <- parcoursup_campagne_2024 %>% + filter(CODEFORMATION %in% c(89000,89100,89200,3001:3013)) + + +parcoursup_campagne_2024_sup_sortie_sise <- parcoursup_campagne_2024_sup %>% + filter(!is.na(CODESISE)& CODESISE%in%n_diplome_sise$DIPLOME_SISE) %>% + distinct(CODEFORMATIONACCUEIL,CODESISE,UAI_GES,UAI_COMPOSANTE,UAI_AFF) %>% + pivot_longer(cols = contains("UAI"),values_to = "uai") %>% + select(-name) %>% + distinct() %>% + left_join( + data_meta_formationsStats_init %>% + filter(filiere=="superieur",millesime=="2022") %>% + distinct(code_certification,uai,taux_en_emploi_6_mois,nb_annee_term ), + by=c("uai","CODESISE"="code_certification") + ) %>% + distinct(CODEFORMATIONACCUEIL,CODESISE,nb_annee_term,taux_en_emploi_6_mois) %>% + filter(!is.na(nb_annee_term)) %>% + group_by(CODEFORMATIONACCUEIL) %>% + filter(taux_en_emploi_6_mois==max(taux_en_emploi_6_mois)) %>% + ungroup() %>% + mutate( + couverture=case_when( + is.na(nb_annee_term)~"Non couvert", + nb_annee_term<=20~"Sous les seuils", + !is.na(taux_en_emploi_6_mois)~"Couvert", + nb_annee_term>20~"Present dans IJ avec nb annee term >20 mais pas de taux en emploi" + ) + ) + + + + +parcoursup_campagne_2024_sup_avec_sise_retravailles <- parcoursup_campagne_2024_sup %>% + mutate(ideo=map(LISTE_IDEO,function(x){ + str_trim(unlist(str_split(x,";"))) + })) %>% + unnest(ideo) %>% + mutate(RNCP_via_parcoursup=map(LISTE_RNCP,function(x){ + str_trim(unlist(str_split(x,";"))) + })) %>% + unnest(RNCP_via_parcoursup) %>% + select(CODEFORMATIONACCUEIL,contains("UAI"),CODESISE,RNCP_via_parcoursup,ID_RCO,ideo) %>% + left_join( + catalogue_mne %>% + select(`Clé ministere educatif`,`Formation: code RNCP`) %>% + rename(RNCP_via_MNE=`Formation: code RNCP`) %>% + mutate(RNCP_via_MNE =str_remove(RNCP_via_MNE,"RNCP")), + by=c("ID_RCO"="Clé ministere educatif") + ) %>% + left_join( + ideo_formations_initiales_en_france_simpli %>% + rename(RNCP_via_ideo=`code RNCP`) %>% + mutate(RNCP_via_ideo=as.character(RNCP_via_ideo)), + by=c("ideo") + ) %>% + mutate( + code_RNCP=case_when( + !is.na(RNCP_via_parcoursup)~RNCP_via_parcoursup, + !is.na(RNCP_via_MNE)~RNCP_via_MNE, + !is.na(RNCP_via_ideo)~RNCP_via_ideo, + T~"Aucun RNCP" + ), + type_RNCP=case_when( + !is.na(RNCP_via_parcoursup)~"RNCP_via_parcoursup", + !is.na(RNCP_via_MNE)~"RNCP_via_MNE", + !is.na(RNCP_via_ideo)~"RNCP_via_ideo", + T~"Aucun RNCP" + ), + type_RNCP=factor(type_RNCP,levels=c("RNCP_via_parcoursup","RNCP_via_MNE","RNCP_via_ideo","Aucun RNCP")) + ) %>% + group_by(CODEFORMATIONACCUEIL) %>% + filter(as.numeric(type_RNCP)==max(as.numeric(type_RNCP))) %>% + ungroup() %>% + left_join( + inserJeune_sise_rncp %>% + filter(!is.na(`Code Sise`)) %>% + mutate_all(as.character), + by=c("code_RNCP"="Code RNCP") + ) %>% + left_join( + data_meta_formationsStats_init %>% + filter(filiere=="superieur",millesime=="2022") %>% + distinct(code_certification,uai,taux_en_emploi_6_mois,nb_annee_term ) %>% + mutate( + couverture_4=case_when( + is.na(nb_annee_term)~"Non couvert", + nb_annee_term<=20~"Sous les seuils", + !is.na(taux_en_emploi_6_mois)~"Couvert", + nb_annee_term>20~"Present dans IJ avec nb annee term >20 mais pas de taux en emploi" + ) + ) %>% + distinct(code_certification ,uai,couverture_4), + by=c("Code Sise"="code_certification","UAI_GES"="uai") + ) %>% + mutate(couverture_4=replace_na(couverture_4,"Non couvert"), + couverture_4=factor(couverture_4,levels=c("Couvert","Sous les seuils","Non couvert"))) %>% + left_join( + parcoursup_campagne_2024_sup_sortie_sise %>% + select(CODEFORMATIONACCUEIL,couverture) %>% + # mutate(couverture=factor(couverture,levels=c("Couvert","Sous les seuils","Non couvert"))) %>% + rename(couverture_1=couverture), + by="CODEFORMATIONACCUEIL" + ) %>% + mutate( + couverture_1=ifelse(is.na(couverture_1),"Non couvert",couverture_1), + couverture_1=factor(couverture_1,levels=c("Couvert","Sous les seuils","Non couvert")), + comparaison_sise=case_when( + is.na(CODESISE) & is.na(`Code Sise`)~"Pas de code SISE initial & pas de code SISE final", + is.na(CODESISE) ~ "Pas de code SISE initial", + is.na(`Code Sise`) ~"Pas de code SISE final", + CODESISE==`Code Sise`~"Code SISE identiques", + CODESISE!=`Code Sise`~"Code SISE différents") + ) %>% + left_join( + data_meta_formationsStats_init %>% + filter(filiere=="superieur",millesime=="2022") %>% + distinct(code_certification,uai,taux_en_emploi_6_mois,nb_annee_term ) %>% + mutate( + couverture_3=case_when( + is.na(nb_annee_term)~"Non couvert", + nb_annee_term<=20~"Sous les seuils", + !is.na(taux_en_emploi_6_mois)~"Couvert", + nb_annee_term>20~"Present dans IJ avec nb annee term >20 mais pas de taux en emploi" + ) + ) %>% + distinct(code_certification ,uai,couverture_3), + by=c("CODESISE"="code_certification","UAI_GES"="uai") + ) %>% + mutate( + couverture_3=ifelse(is.na(couverture_3),"Non couvert",couverture_3), + couverture_3=factor(couverture_3,levels=c("Couvert","Sous les seuils","Non couvert")), + ) + + +parcoursup_campagne_2024_sup_couverture_2 <-parcoursup_campagne_2024_sup_avec_sise_retravailles %>% + distinct(CODEFORMATIONACCUEIL,UAI_GES,`Code Sise`) %>% + left_join( + data_meta_formationsStats_init %>% + filter(filiere=="superieur",millesime=="2022") %>% + distinct(code_certification,uai,taux_en_emploi_6_mois,nb_annee_term ), + by=c("UAI_GES"="uai","Code Sise"="code_certification") + ) %>% + distinct(CODEFORMATIONACCUEIL,nb_annee_term,taux_en_emploi_6_mois) %>% + filter(!is.na(nb_annee_term)) %>% + group_by(CODEFORMATIONACCUEIL) %>% + filter(taux_en_emploi_6_mois==max(taux_en_emploi_6_mois)) %>% + ungroup() %>% + mutate( + couverture_2=case_when( + is.na(nb_annee_term)~"Non couvert", + nb_annee_term<=20~"Sous les seuils", + !is.na(taux_en_emploi_6_mois)~"Couvert", + nb_annee_term>20~"Present dans IJ avec nb annee term >20 mais pas de taux en emploi" + ) + ) %>% + distinct(CODEFORMATIONACCUEIL,couverture_2) + + +parcoursup_campagne_2024_sup_avec_sise_retravailles <- parcoursup_campagne_2024_sup_avec_sise_retravailles %>% + left_join(parcoursup_campagne_2024_sup_couverture_2, + by="CODEFORMATIONACCUEIL") %>% + mutate( + couverture_2=ifelse(is.na(couverture_2),"Non couvert",couverture_2), + couverture_2=factor(couverture_2,levels=c("Couvert","Sous les seuils","Non couvert")), + ) + + +parcoursup_campagne_2024_sup_avec_sise_hybride <- parcoursup_campagne_2024_sup_avec_sise_retravailles %>% + group_by(CODEFORMATIONACCUEIL) %>% + mutate(nb_sise=ifelse(n()>1,"Correspondance avec plusieurs SISE","Unique SISE"), + ) %>% + filter(as.numeric(couverture_4)==min(as.numeric(couverture_4))) %>% + distinct(CODEFORMATIONACCUEIL,CODESISE,`Code Sise`,couverture_4,couverture_3) %>% + mutate( + `Code Sise hybride`=case_when( + couverture_3 %in% c("Couvert","Sous les seuils") ~ CODESISE, + T~`Code Sise` + ), + couverture_hybride=case_when( + couverture_3 %in% c("Couvert","Sous les seuils") ~ couverture_3, + T~couverture_4 + ) + ) %>% + mutate( + couverture_hybride=factor(couverture_hybride,levels=c("Couvert","Sous les seuils","Non couvert")) + ) %>% + group_by(CODEFORMATIONACCUEIL) %>% + filter(as.numeric(couverture_hybride)==min(as.numeric(couverture_hybride))) + + +parcoursup_campagne_2024_sup_a_transmettre_PS <-parcoursup_campagne_2024 %>% + filter(CODEFORMATIONACCUEIL %in% parcoursup_campagne_2024_sup$CODEFORMATIONACCUEIL) %>% + left_join( + parcoursup_campagne_2024_sup_avec_sise_retravailles %>% + group_by(CODEFORMATIONACCUEIL) %>% + mutate(nb_sise=ifelse(n()>1,"Correspondance avec plusieurs SISE","Unique SISE"), + ) %>% + filter(as.numeric(couverture_4)==min(as.numeric(couverture_4))) %>% + distinct(CODEFORMATIONACCUEIL,nb_sise,couverture_4,couverture_3,comparaison_sise) %>% + mutate(comparaison_sise=factor(comparaison_sise, + levels=c("Code SISE identiques", + "Code SISE différents", + "Pas de code SISE initial & pas de code SISE final", + "Pas de code SISE initial", + "Pas de code SISE final") + ) + ) %>% + filter(as.numeric(comparaison_sise)==min(as.numeric(comparaison_sise))) %>% + ungroup() %>% + mutate( + couverture_4=case_when(nb_sise=="Correspondance avec plusieurs SISE" & couverture_4=="Couvert" ~ "Couvert avec plusieurs SISE", + nb_sise=="Correspondance avec plusieurs SISE" & couverture_4=="Sous les seuils" ~ "Sous les seuils avec plusieurs SISE", + nb_sise=="Correspondance avec plusieurs SISE" & couverture_4=="Non couvert" ~ "Non couvert avec plusieurs SISE", + T~couverture_4) + ) %>% + select(CODEFORMATIONACCUEIL,couverture_3,couverture_4,comparaison_sise) %>% + setNames(c("CODEFORMATIONACCUEIL","Couverture initiale","Couverture avec les codes RNCP, MNE ou Ideo","Comparaison des codes SISE")) %>% + left_join( + parcoursup_campagne_2024_sup_avec_sise_retravailles %>% + select(CODEFORMATIONACCUEIL ,`Code Sise`) %>% + drop_na() %>% + group_by(CODEFORMATIONACCUEIL) %>% + nest() %>% + mutate(data=map_chr(data,function(x){ + paste0(unique(x$`Code Sise`),sep="",collapse = ";") + } + )) %>% + unnest() %>% + rename(`Code Sise Expo`=data) %>% + left_join( + parcoursup_campagne_2024_sup_avec_sise_retravailles %>% + select(CODEFORMATIONACCUEIL ,`Code Sise`) %>% + left_join( + inserJeune_certifinfo %>% + select(`Intitule Certifinfo`,`Code Sise`) %>% + drop_na(), + by="Code Sise" + ) %>% + drop_na() %>% + select(-`Code Sise`) %>% + group_by(CODEFORMATIONACCUEIL) %>% + nest() %>% + mutate(data=map_chr(data,function(x){ + paste0(unique(x$`Intitule Certifinfo`),sep="",collapse = ";") + } + )) %>% + unnest() %>% + rename(`Intitule Certifinfo Expo`=data), + by="CODEFORMATIONACCUEIL" + ), + by="CODEFORMATIONACCUEIL" + ) + ) %>% + left_join( + parcoursup_campagne_2024_sup_avec_sise_hybride %>% + select(CODEFORMATIONACCUEIL,`Code Sise hybride`) %>% + group_by(CODEFORMATIONACCUEIL) %>% + nest() %>% + mutate(data=map_chr(data,function(x){ + paste0(unique(x$`Code Sise hybride`),sep="",collapse = ";") + } + )) %>% + unnest() %>% + rename(`Code Sise hybride`=data) %>% + left_join( + parcoursup_campagne_2024_sup_avec_sise_hybride %>% + distinct(CODEFORMATIONACCUEIL,couverture_hybride), + by="CODEFORMATIONACCUEIL" + ) %>% + mutate( + nb_sise_hybride=ifelse(str_detect(`Code Sise hybride`,";"),"Correspondance avec plusieurs SISE","Unique SISE"), + couverture_hybride =case_when(nb_sise_hybride=="Correspondance avec plusieurs SISE" & couverture_hybride =="Couvert" ~ "Couvert avec plusieurs SISE", + nb_sise_hybride=="Correspondance avec plusieurs SISE" & couverture_hybride =="Sous les seuils" ~ "Sous les seuils avec plusieurs SISE", + nb_sise_hybride=="Correspondance avec plusieurs SISE" & couverture_hybride =="Non couvert" ~ "Non couvert avec plusieurs SISE", + T~couverture_hybride ), + `Code Sise hybride`=ifelse(`Code Sise hybride`=="NA",NA,`Code Sise hybride`) + ) %>% + select(-nb_sise_hybride), + by="CODEFORMATIONACCUEIL" + ) %>% + rename("Couverture avec code SISE initial PS"="Couverture initiale", + "Couverture avec code SISE reconstruit à partir des codes RNCP, MNE ou Ideo"="Couverture avec les codes RNCP, MNE ou Ideo", + "Comparaison du code SISE intial PS et du code SISE reconstruit à partir des codes RNCP, MNE ou Ideo"="Comparaison des codes SISE", + "Code SISE reconstruit à partir des codes RNCP, MNE ou Ideo"="Code Sise Expo", + "Libéllé SISE reconstruit à partir des codes RNCP, MNE ou Ideo issu de certif-Infos"="Intitule Certifinfo Expo", + "Code SISE retenu"="Code Sise hybride", + "Couverture avec code SISE retenu"="couverture_hybride", + "Demandes tous voeux"="NBDEDEMANDES") %>% + select(1:23, + "Demandes tous voeux", + "Couverture avec code SISE initial PS", + "Code SISE reconstruit à partir des codes RNCP, MNE ou Ideo", + "Couverture avec code SISE reconstruit à partir des codes RNCP, MNE ou Ideo", + "Comparaison du code SISE intial PS et du code SISE reconstruit à partir des codes RNCP, MNE ou Ideo", + "Libéllé SISE reconstruit à partir des codes RNCP, MNE ou Ideo issu de certif-Infos", + "Code SISE retenu", + "Couverture avec code SISE retenu") %>% + mutate( + `Couverture avec code SISE reconstruit à partir des codes RNCP, MNE ou Ideo`=case_when( + `Couverture avec code SISE reconstruit à partir des codes RNCP, MNE ou Ideo`=="Non couvert avec plusieurs SISE"~"Non couvert", + `Couverture avec code SISE reconstruit à partir des codes RNCP, MNE ou Ideo`=="Sous les seuils avec plusieurs SISE"~"Sous les seuils", + T~`Couverture avec code SISE reconstruit à partir des codes RNCP, MNE ou Ideo` + ), + `Couverture avec code SISE retenu`=case_when( + `Couverture avec code SISE retenu`=="Non couvert avec plusieurs SISE"~"Non couvert", + `Couverture avec code SISE retenu`=="Sous les seuils avec plusieurs SISE"~"Sous les seuils", + T~`Couverture avec code SISE retenu` + ) + ) \ No newline at end of file