From 5c19f4c97978720ae99ef5a2d5956a35c1553d70 Mon Sep 17 00:00:00 2001 From: Arnaud Milet Date: Tue, 5 Nov 2024 16:52:30 +0100 Subject: [PATCH] Docs couv (#300) PS campagne 2024 et 2025 --- analyse/couverture_catalogue/README.md | 5 +- .../functions/expo_mef_catalogue_partenaire.R | 4 +- .../couverture_catalogue/generer_rapports.R | 442 +- .../parcoursup/parcoursup_10_2024.html | 4089 ----------------- ...024.html => parcoursup_campagne_2024.html} | 21 +- ...024.html => parcoursup_campagne_2025.html} | 23 +- ...R => script_prepa_ps_2025_campagne_2024.R} | 449 +- ...R => script_prepa_ps_2025_campagne_2025.R} | 237 +- .../stats_catalogue_generique.Rmd | 65 +- 9 files changed, 889 insertions(+), 4446 deletions(-) delete mode 100644 analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html rename analyse/couverture_catalogue/parcoursup/{parcoursup_agregation_02_2024_ET_10_2024.html => parcoursup_campagne_2024.html} (97%) rename analyse/couverture_catalogue/parcoursup/{parcoursup_07_2024.html => parcoursup_campagne_2025.html} (98%) rename analyse/couverture_catalogue/parcoursup/{script_prepa_ps_2025.R => script_prepa_ps_2025_campagne_2024.R} (71%) rename analyse/couverture_catalogue/parcoursup/{script_prepa_ps_2025_agreagation_02_2024_ET_10_2024.R => script_prepa_ps_2025_campagne_2025.R} (84%) diff --git a/analyse/couverture_catalogue/README.md b/analyse/couverture_catalogue/README.md index 936bbf95..909ffb98 100644 --- a/analyse/couverture_catalogue/README.md +++ b/analyse/couverture_catalogue/README.md @@ -16,8 +16,7 @@ Nous voulons savoir plus précisément ce qui est contenu dans notre base et la - ONISEP: - [Catalogue Ideo action univers lycée Onisep - Juillet 2024](onisep/ideo_action_univers_lycee_07_2024.html) - Parcoursup: - - [Catalogue Parcoursup - Juillet 2024](parcoursup/parcoursup_07_2024.html) - - [Catalogue Parcoursup - Octobre 2024](parcoursup/parcoursup_10_2024.html) - - [Catalogue Parcoursup - Agrégation des catalogues Février et Octobre 2024](parcoursup/parcoursup_agregation_02_2024_ET_10_2024.html) + - [Catalogue Parcoursup - Campagne 2024](parcoursup/parcoursup_campagne_2024.html) + - [Catalogue Parcoursup - Campagne 2025](parcoursup/parcoursup_campagne_2025.html) - Catalogue de l'apprentissage des ministères éducatifs: - [Catalogue de l'apprentissage des ministères éducatifs - Juillet 2024](catalogue_formations_apprentissage/catalogue_formations_apprentissage_07_2024.html) diff --git a/analyse/couverture_catalogue/functions/expo_mef_catalogue_partenaire.R b/analyse/couverture_catalogue/functions/expo_mef_catalogue_partenaire.R index 443495e4..df5bf225 100644 --- a/analyse/couverture_catalogue/functions/expo_mef_catalogue_partenaire.R +++ b/analyse/couverture_catalogue/functions/expo_mef_catalogue_partenaire.R @@ -999,11 +999,11 @@ expo_mef_stats_catalogue_partenaire <- function(catalogue_partenaire_renseigne,t filter(!is.na(CODEFORMATIONACCUEIL))%>% left_join( voeux_parcoursup_affelnet_simpli_2023 %>% - select(c(CODEFORMATIONACCUEIL,all_of(var_effectifs))), + 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 7485fc53..00b76d9c 100644 --- a/analyse/couverture_catalogue/generer_rapports.R +++ b/analyse/couverture_catalogue/generer_rapports.R @@ -189,187 +189,229 @@ rmarkdown::render("stats_catalogue_generique.Rmd", # Parcoursup ---- -## Parcoursup 07_2024---- - -parcoursup_2024 <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/listesFormationsInsertJeunes_toutesFormations_020224.xls")) - - -### Parcoursup dans InserJeunes ---- - -parcoursup_2024_ij <- parcoursup_2024 %>% - filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% - rowwise() %>% - filter(!any(is.na(CODECFD),is.na(CODEMEF))) %>% - ungroup() %>% - select(contains("UAI"),CODEFORMATION,LIBFORMATION,CODECFD,CODEMEF,APPRENTISSAGEOUSCOLAIRE,CODEFORMATIONACCUEIL) %>% - left_join( - n_mef %>% - select(MEF,MEF_STAT_11), - by=c("CODEMEF"="MEF") - ) %>% - mutate(CODESISE=NA) - -parcoursup_2024_ij_simpli <- parcoursup_2024_ij %>% - select(UAI_GES,MEF_STAT_11,APPRENTISSAGEOUSCOLAIRE,CODEFORMATIONACCUEIL) %>% - setNames(c("UAI","MEFSTAT11","Filiere","CODEFORMATIONACCUEIL")) - - - -parcoursup_2024_ij_renseigne <- expo_mef_catalogue_partenaire(catalogue_init = parcoursup_2024_ij_simpli,type_source = "affelnet") - - - -### Parcoursup dans InserSup ---- - -association_CODEFORMATIONACCUEIL_sise <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/association_rncp_sup.xlsx"), - sheet = "2024") - -Fichier_Certif_info <- data.table::fread(file.path(chemin_racine_data,"RCO/InserJeunes/InserJeunes/Fichier Certif info.csv"),encoding = "Latin-1") - -Fichier_Certif_info_simpli <- Fichier_Certif_info %>% - select(code_rncp,code_sise ) %>% - as_tibble() %>% - mutate(code_sise=ifelse(code_sise=="",NA,code_sise), - code_rncp=as.character(code_rncp)) %>% - filter(!is.na(code_sise),!is.na(code_rncp)) %>% - distinct() %>% - rename(CODESISE=code_sise) - - -parcoursup_2024_isup_avec_association_CODEFORMATIONACCUEIL_sise <- parcoursup_2024 %>% - filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% - rowwise() %>% - filter(any(is.na(CODECFD),is.na(CODEMEF)),CODEFORMATIONACCUEIL%in% association_CODEFORMATIONACCUEIL_sise$CODEFORMATIONACCUEIL) %>% - ungroup() %>% - select(contains("UAI"),CODEFORMATION,LIBFORMATION,CODEFORMATIONACCUEIL) %>% - left_join( - association_CODEFORMATIONACCUEIL_sise %>% - select(CODEFORMATIONACCUEIL,CODESISE), - by="CODEFORMATIONACCUEIL" - ) - -parcoursup_2024_isup_sans_association_CODEFORMATIONACCUEIL_sise <-parcoursup_2024 %>% - filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% - rowwise() %>% - filter(any(is.na(CODECFD),is.na(CODEMEF)),!CODEFORMATIONACCUEIL%in% association_CODEFORMATIONACCUEIL_sise$CODEFORMATIONACCUEIL,!is.na(LISTE_RNCP)) %>% - ungroup() %>% - select(contains("UAI"),CODEFORMATION,LIBFORMATION,CODEFORMATIONACCUEIL,LISTE_RNCP) %>% - mutate(LISTE_RNCP=map(LISTE_RNCP,~tibble(RNCP=unlist(str_split(.,";"))))) %>% - unnest() %>% - left_join( - Fichier_Certif_info_simpli, - by=c("RNCP"="code_rncp") - ) %>% - select(-RNCP,-UAI_COMPOSANTE,-UAI_AFF) %>% - distinct() - - -parcoursup_2024_isup_avec_sise <- parcoursup_2024_isup_avec_association_CODEFORMATIONACCUEIL_sise %>% - bind_rows(parcoursup_2024_isup_sans_association_CODEFORMATIONACCUEIL_sise ) %>% - mutate(filiere="superieur") %>% - select(UAI_GES,CODESISE,LIBFORMATION,filiere,CODEFORMATIONACCUEIL) %>% - setNames(c("UAI","CODESISE","LIBELLE_COURT","Filiere","CODEFORMATIONACCUEIL")) - - -parcoursup_2024_isup_avec_sise <- parcoursup_2024_isup_avec_sise %>% - bind_cols( - map(c("MEFSTAT11", "famillemetiers", "FORMATION_DIPLOME", "NIVEAU_FORMATION_DIPLOME", - "NIVEAU_QUALIFICATION_RNCP", "MEFSTAT11_annee_terminale", "FORMATION_DIPLOME_annee_terminale", - "GROUPE_SPECIALITE", "LETTRE_SPECIALITE", "LIBELLE_LONG_200", - "LIBELLE_STAT_33", "filiere"), - function(x){ - tibble(var=NA) %>% - setNames(x) - }) %>% - reduce(bind_cols) - ) - - -parcoursup_2024_isup_renseigne <- expo_mef_catalogue_partenaire(catalogue_init = parcoursup_2024_isup_avec_sise,type_source = "superieur") - - - -### Parcoursup pas dans InserJeunes et pas dans InserSup ---- -parcoursup_2024_pas_ij_pas_isup <- parcoursup_2024 %>% - filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% - filter(!CODEFORMATIONACCUEIL %in% (parcoursup_2024_ij_renseigne %>% - select(CODEFORMATIONACCUEIL) %>% - bind_rows( - parcoursup_2024_isup_renseigne %>% - select(CODEFORMATIONACCUEIL) - ) %>% - pull(CODEFORMATIONACCUEIL))) %>% - left_join( - n_mef %>% - select(MEF,MEF_STAT_11), - by=c("CODEMEF"="MEF") - ) %>% - mutate(CODESISE=NA) - - - -parcoursup_2024_pas_ij_pas_isup_simpli <- parcoursup_2024_pas_ij_pas_isup %>% - select(UAI_GES,MEF_STAT_11,APPRENTISSAGEOUSCOLAIRE,CODEFORMATIONACCUEIL) %>% - setNames(c("UAI","MEFSTAT11","Filiere","CODEFORMATIONACCUEIL")) - - -parcoursup_2024_pas_ij_pas_isup_renseigne <- expo_mef_catalogue_partenaire(catalogue_init = parcoursup_2024_pas_ij_pas_isup_simpli,type_source = "affelnet") - - - - - -parcoursup_2024_renseigne <- parcoursup_2024_pas_ij_pas_isup_renseigne %>% - mutate(type="pas_isup_pas_ij") %>% - bind_rows( - parcoursup_2024_ij_renseigne %>% - mutate(type="ij") - ) %>% - bind_rows( - parcoursup_2024_isup_renseigne %>% - mutate(type="isup") - ) - - -#Pour afficher les stats sur les données transmises en février 2024 -listeFormationsInserJeunes_2024_ensemble_bdd_parametrees_completees_a_transmettre_ps <- read_excel("C:/Users/arnau/d-sidd Dropbox/Arnaud milet/0_beta/1- Exposition/Groupe-002 - Parcoursup/002 - 2 - Parcoursup/2024/a transmettre/listeFormationsInserJeunes_2024_ensemble_bdd_parametrees_completees_a_transmettre_ps.xlsx") - -parcoursup_2024_renseigne <- parcoursup_2024_renseigne %>% - select(-Couverture) %>% - left_join( - listeFormationsInserJeunes_2024_ensemble_bdd_parametrees_completees_a_transmettre_ps %>% - mutate(Couverture=case_when( - !is.na(taux_en_emploi_6_mois)~"Couvert", - nb_annee_term<20~"Sous le seuil de 20 élèves", - T~"Non couvert" - )) %>% - select(CODEFORMATIONACCUEIL,Couverture), - by="CODEFORMATIONACCUEIL" - ) +# ## Parcoursup 07_2024---- +# +# parcoursup_2024 <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/listesFormationsInsertJeunes_toutesFormations_020224.xls")) +# +# +# ### Parcoursup dans InserJeunes ---- +# +# parcoursup_2024_ij <- parcoursup_2024 %>% +# filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% +# rowwise() %>% +# filter(!any(is.na(CODECFD),is.na(CODEMEF))) %>% +# ungroup() %>% +# select(contains("UAI"),CODEFORMATION,LIBFORMATION,CODECFD,CODEMEF,APPRENTISSAGEOUSCOLAIRE,CODEFORMATIONACCUEIL) %>% +# left_join( +# n_mef %>% +# select(MEF,MEF_STAT_11), +# by=c("CODEMEF"="MEF") +# ) %>% +# mutate(CODESISE=NA) +# +# parcoursup_2024_ij_simpli <- parcoursup_2024_ij %>% +# select(UAI_GES,MEF_STAT_11,APPRENTISSAGEOUSCOLAIRE,CODEFORMATIONACCUEIL) %>% +# setNames(c("UAI","MEFSTAT11","Filiere","CODEFORMATIONACCUEIL")) +# +# +# +# parcoursup_2024_ij_renseigne <- expo_mef_catalogue_partenaire(catalogue_init = parcoursup_2024_ij_simpli,type_source = "affelnet") +# +# +# +# ### Parcoursup dans InserSup ---- +# +# association_CODEFORMATIONACCUEIL_sise <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/association_rncp_sup.xlsx"), +# sheet = "2024") +# +# Fichier_Certif_info <- data.table::fread(file.path(chemin_racine_data,"RCO/InserJeunes/InserJeunes/Fichier Certif info.csv"),encoding = "Latin-1") +# +# Fichier_Certif_info_simpli <- Fichier_Certif_info %>% +# select(code_rncp,code_sise ) %>% +# as_tibble() %>% +# mutate(code_sise=ifelse(code_sise=="",NA,code_sise), +# code_rncp=as.character(code_rncp)) %>% +# filter(!is.na(code_sise),!is.na(code_rncp)) %>% +# distinct() %>% +# rename(CODESISE=code_sise) +# +# +# parcoursup_2024_isup_avec_association_CODEFORMATIONACCUEIL_sise <- parcoursup_2024 %>% +# filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% +# rowwise() %>% +# filter(any(is.na(CODECFD),is.na(CODEMEF)),CODEFORMATIONACCUEIL%in% association_CODEFORMATIONACCUEIL_sise$CODEFORMATIONACCUEIL) %>% +# ungroup() %>% +# select(contains("UAI"),CODEFORMATION,LIBFORMATION,CODEFORMATIONACCUEIL) %>% +# left_join( +# association_CODEFORMATIONACCUEIL_sise %>% +# select(CODEFORMATIONACCUEIL,CODESISE), +# by="CODEFORMATIONACCUEIL" +# ) +# +# parcoursup_2024_isup_sans_association_CODEFORMATIONACCUEIL_sise <-parcoursup_2024 %>% +# filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% +# rowwise() %>% +# filter(any(is.na(CODECFD),is.na(CODEMEF)),!CODEFORMATIONACCUEIL%in% association_CODEFORMATIONACCUEIL_sise$CODEFORMATIONACCUEIL,!is.na(LISTE_RNCP)) %>% +# ungroup() %>% +# select(contains("UAI"),CODEFORMATION,LIBFORMATION,CODEFORMATIONACCUEIL,LISTE_RNCP) %>% +# mutate(LISTE_RNCP=map(LISTE_RNCP,~tibble(RNCP=unlist(str_split(.,";"))))) %>% +# unnest() %>% +# left_join( +# Fichier_Certif_info_simpli, +# by=c("RNCP"="code_rncp") +# ) %>% +# select(-RNCP,-UAI_COMPOSANTE,-UAI_AFF) %>% +# distinct() +# +# +# parcoursup_2024_isup_avec_sise <- parcoursup_2024_isup_avec_association_CODEFORMATIONACCUEIL_sise %>% +# bind_rows(parcoursup_2024_isup_sans_association_CODEFORMATIONACCUEIL_sise ) %>% +# mutate(filiere="superieur") %>% +# select(UAI_GES,CODESISE,LIBFORMATION,filiere,CODEFORMATIONACCUEIL) %>% +# setNames(c("UAI","CODESISE","LIBELLE_COURT","Filiere","CODEFORMATIONACCUEIL")) +# +# +# parcoursup_2024_isup_avec_sise <- parcoursup_2024_isup_avec_sise %>% +# bind_cols( +# map(c("MEFSTAT11", "famillemetiers", "FORMATION_DIPLOME", "NIVEAU_FORMATION_DIPLOME", +# "NIVEAU_QUALIFICATION_RNCP", "MEFSTAT11_annee_terminale", "FORMATION_DIPLOME_annee_terminale", +# "GROUPE_SPECIALITE", "LETTRE_SPECIALITE", "LIBELLE_LONG_200", +# "LIBELLE_STAT_33", "filiere"), +# function(x){ +# tibble(var=NA) %>% +# setNames(x) +# }) %>% +# reduce(bind_cols) +# ) +# +# +# parcoursup_2024_isup_renseigne <- expo_mef_catalogue_partenaire(catalogue_init = parcoursup_2024_isup_avec_sise,type_source = "superieur") +# +# +# +# ### Parcoursup pas dans InserJeunes et pas dans InserSup ---- +# parcoursup_2024_pas_ij_pas_isup <- parcoursup_2024 %>% +# filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% +# filter(!CODEFORMATIONACCUEIL %in% (parcoursup_2024_ij_renseigne %>% +# select(CODEFORMATIONACCUEIL) %>% +# bind_rows( +# parcoursup_2024_isup_renseigne %>% +# select(CODEFORMATIONACCUEIL) +# ) %>% +# pull(CODEFORMATIONACCUEIL))) %>% +# left_join( +# n_mef %>% +# select(MEF,MEF_STAT_11), +# by=c("CODEMEF"="MEF") +# ) %>% +# mutate(CODESISE=NA) +# +# +# +# parcoursup_2024_pas_ij_pas_isup_simpli <- parcoursup_2024_pas_ij_pas_isup %>% +# select(UAI_GES,MEF_STAT_11,APPRENTISSAGEOUSCOLAIRE,CODEFORMATIONACCUEIL) %>% +# setNames(c("UAI","MEFSTAT11","Filiere","CODEFORMATIONACCUEIL")) +# +# +# parcoursup_2024_pas_ij_pas_isup_renseigne <- expo_mef_catalogue_partenaire(catalogue_init = parcoursup_2024_pas_ij_pas_isup_simpli,type_source = "affelnet") +# +# +# +# +# +# parcoursup_2024_renseigne <- parcoursup_2024_pas_ij_pas_isup_renseigne %>% +# mutate(type="pas_isup_pas_ij") %>% +# bind_rows( +# parcoursup_2024_ij_renseigne %>% +# mutate(type="ij") +# ) %>% +# bind_rows( +# parcoursup_2024_isup_renseigne %>% +# mutate(type="isup") +# ) +# +# +# #Pour afficher les stats sur les données transmises en février 2024 +# listeFormationsInserJeunes_2024_ensemble_bdd_parametrees_completees_a_transmettre_ps <- read_excel("C:/Users/arnau/d-sidd Dropbox/Arnaud milet/0_beta/1- Exposition/Groupe-002 - Parcoursup/002 - 2 - Parcoursup/2024/a transmettre/listeFormationsInserJeunes_2024_ensemble_bdd_parametrees_completees_a_transmettre_ps.xlsx") +# +# parcoursup_2024_renseigne <- parcoursup_2024_renseigne %>% +# select(-Couverture) %>% +# left_join( +# listeFormationsInserJeunes_2024_ensemble_bdd_parametrees_completees_a_transmettre_ps %>% +# mutate(Couverture=case_when( +# !is.na(taux_en_emploi_6_mois)~"Couvert", +# nb_annee_term<20~"Sous le seuil de 20 élèves", +# T~"Non couvert" +# )) %>% +# select(CODEFORMATIONACCUEIL,Couverture), +# by="CODEFORMATIONACCUEIL" +# ) +# +# +# parcoursup_2024_renseigne <- parcoursup_2024_renseigne %>% +# left_join( +# parcoursup_2024 %>% +# mutate(LIBFORMATION=str_split_fixed(LIBFORMATION," - ",n=2)[,1]) %>% +# select(CODEFORMATIONACCUEIL,LIBFORMATION,APPRENTISSAGEOUSCOLAIRE), +# by="CODEFORMATIONACCUEIL" +# ) %>% +# mutate( +# libelle_type_diplome=case_when( +# libelle_type_diplome %in% c("Inconnu","Autres diplômes") & LIBFORMATION %in% c("Licence", "BUT", "Certificat de Spécialisation", "Formations des écoles d'ingénieurs", +# "D.E secteur sanitaire", "BTS", "D.E secteur social", "Formation des écoles de commerce et de management", +# "BPJEPS") ~ LIBFORMATION, +# libelle_type_diplome %in% c("Inconnu","Autres diplômes") ~ "Autres diplômes", +# T~libelle_type_diplome +# ), +# Filiere=APPRENTISSAGEOUSCOLAIRE +# ) %>% +# select(-LIBFORMATION,-APPRENTISSAGEOUSCOLAIRE) +# +# parcoursup_2024_renseigne <- parcoursup_2024_renseigne %>% +# mutate(type_formation="Après le bac") +# +# +# rmarkdown::render("stats_catalogue_generique.Rmd", +# params = list( +# catalogue_init=NULL, +# type_source = NULL, +# type_voeux= "parcoursup", +# nom_catalogue= "Parcoursup", +# afficher_stats_voeux=FALSE, +# catalogue_renseigne=parcoursup_2024_renseigne, +# nom_catalogue_detail = "Parcoursup - Juillet 2024", +# lien_drive_catalogue ="https://docs.google.com/spreadsheets/d/1ShIzmTuVb7ZRBqXMlskqrx8OQVSB7N1i/edit?usp=drive_link&ouid=107607241761816962784&rtpof=true&sd=true" +# ), +# output_format = "html_document", +# output_dir = "parcoursup", +# output_file = "parcoursup_07_2024.html" +# ) +# +# ## Parcoursup 10_2024---- +# +# source("parcoursup/script_prepa_ps_2025.R") +# +# rmarkdown::render("stats_catalogue_generique.Rmd", +# params = list( +# catalogue_init=NULL, +# type_source = NULL, +# type_voeux= "parcoursup", +# nom_catalogue= "Parcoursup", +# afficher_stats_voeux=TRUE, +# stats_catalogue=stats_catalogue_parcoursup_2024_10, +# nom_catalogue_detail = "Parcoursup - Octobre 2024", +# lien_drive_catalogue ="https://docs.google.com/spreadsheets/d/1ShIzmTuVb7ZRBqXMlskqrx8OQVSB7N1i/edit?usp=drive_link&ouid=107607241761816962784&rtpof=true&sd=true" +# ), +# output_format = "html_document", +# output_dir = "parcoursup", +# output_file = "parcoursup_10_2024.html" +# ) -parcoursup_2024_renseigne <- parcoursup_2024_renseigne %>% - left_join( - parcoursup_2024 %>% - mutate(LIBFORMATION=str_split_fixed(LIBFORMATION," - ",n=2)[,1]) %>% - select(CODEFORMATIONACCUEIL,LIBFORMATION,APPRENTISSAGEOUSCOLAIRE), - by="CODEFORMATIONACCUEIL" - ) %>% - mutate( - libelle_type_diplome=case_when( - libelle_type_diplome %in% c("Inconnu","Autres diplômes") & LIBFORMATION %in% c("Licence", "BUT", "Certificat de Spécialisation", "Formations des écoles d'ingénieurs", - "D.E secteur sanitaire", "BTS", "D.E secteur social", "Formation des écoles de commerce et de management", - "BPJEPS") ~ LIBFORMATION, - libelle_type_diplome %in% c("Inconnu","Autres diplômes") ~ "Autres diplômes", - T~libelle_type_diplome - ), - Filiere=APPRENTISSAGEOUSCOLAIRE - ) %>% - select(-LIBFORMATION,-APPRENTISSAGEOUSCOLAIRE) -parcoursup_2024_renseigne <- parcoursup_2024_renseigne %>% - mutate(type_formation="Après le bac") +## Parcoursup campagne 2024---- +source("parcoursup/script_prepa_ps_2025_campagne_2024.R") rmarkdown::render("stats_catalogue_generique.Rmd", params = list( @@ -378,40 +420,21 @@ rmarkdown::render("stats_catalogue_generique.Rmd", type_voeux= "parcoursup", nom_catalogue= "Parcoursup", afficher_stats_voeux=FALSE, - catalogue_renseigne=parcoursup_2024_renseigne, - nom_catalogue_detail = "Parcoursup - Juillet 2024", + stats_catalogue=stats_catalogue_parcoursup_campagne_2024, + afficher_stats_synthese=TRUE, + stats_catalogue_synthese=stats_catalogue_parcoursup_campagne_2024_synthese, + nom_catalogue_detail = "Parcoursup - campagne 2024", lien_drive_catalogue ="https://docs.google.com/spreadsheets/d/1ShIzmTuVb7ZRBqXMlskqrx8OQVSB7N1i/edit?usp=drive_link&ouid=107607241761816962784&rtpof=true&sd=true" ), output_format = "html_document", output_dir = "parcoursup", - output_file = "parcoursup_07_2024.html" + output_file = "parcoursup_campagne_2024.html" ) -## Parcoursup 10_2024---- - -source("parcoursup/script_prepa_ps_2025.R") - -rmarkdown::render("stats_catalogue_generique.Rmd", - params = list( - catalogue_init=NULL, - type_source = NULL, - type_voeux= "parcoursup", - nom_catalogue= "Parcoursup", - afficher_stats_voeux=TRUE, - stats_catalogue=stats_catalogue_parcoursup_2024_10, - nom_catalogue_detail = "Parcoursup - Octobre 2024", - lien_drive_catalogue ="https://docs.google.com/spreadsheets/d/1ShIzmTuVb7ZRBqXMlskqrx8OQVSB7N1i/edit?usp=drive_link&ouid=107607241761816962784&rtpof=true&sd=true" - ), - output_format = "html_document", - output_dir = "parcoursup", - output_file = "parcoursup_10_2024.html" -) +## Parcoursup campagne 2025---- - -## Parcoursup agregation 02_2024_ET_10_2024---- - -source("parcoursup/script_prepa_ps_2025_agreagation_02_2024_ET_10_2024.R") +source("parcoursup/script_prepa_ps_2025_campagne_2025.R") rmarkdown::render("stats_catalogue_generique.Rmd", params = list( @@ -419,19 +442,18 @@ rmarkdown::render("stats_catalogue_generique.Rmd", type_source = NULL, type_voeux= "parcoursup", nom_catalogue= "Parcoursup", - afficher_stats_voeux=TRUE, - stats_catalogue=stats_catalogue_parcoursup_2024_agregation_10_2024_02, - afficher_stats_voeux_synthese_2024=TRUE, - stats_catalogue_synthese_2024=stats_catalogue_parcoursup_2024_agregation_10_2024_02_synthese_scope_2024, - nom_catalogue_detail = "Parcoursup - Agrégation des catalogues Février et Octobre 2024", + afficher_stats_voeux=FALSE, + stats_catalogue=stats_catalogue_parcoursup_campagne_2025, + afficher_stats_synthese=TRUE, + stats_catalogue_synthese=stats_catalogue_parcoursup_campagne_2025_synthese, + nom_catalogue_detail = "Parcoursup - campagne 2025", lien_drive_catalogue ="https://docs.google.com/spreadsheets/d/1ShIzmTuVb7ZRBqXMlskqrx8OQVSB7N1i/edit?usp=drive_link&ouid=107607241761816962784&rtpof=true&sd=true" ), output_format = "html_document", output_dir = "parcoursup", - output_file = "parcoursup_agregation_02_2024_ET_10_2024.html" + output_file = "parcoursup_campagne_2025.html" ) - # Catalogue apprentissage ---- formation_catalogue_apprentissage <- data.table::fread(file.path(chemin_racine_data,"RCO/formation_2024-05-02T07 56 05.492Z.csv")) %>% diff --git a/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html b/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html deleted file mode 100644 index 02f869e1..00000000 --- a/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html +++ /dev/null @@ -1,4089 +0,0 @@ - - - - - - - - - - - - - -Base InserJeunes - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - -
-
-
-
-
- -
- - - - - - - -
-

Parcoursup

-

Parcoursup - Octobre 2024: Lien -vers le catalogue

-

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

-
-

Nombre de formations

-
- -
-
-

Nombre de voeux émis

-
- -
-
- - - -
-
- -
- - - - - - - - - - - - - - - - diff --git a/analyse/couverture_catalogue/parcoursup/parcoursup_agregation_02_2024_ET_10_2024.html b/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html similarity index 97% rename from analyse/couverture_catalogue/parcoursup/parcoursup_agregation_02_2024_ET_10_2024.html rename to analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html index 3895444c..9ce60f87 100644 --- a/analyse/couverture_catalogue/parcoursup/parcoursup_agregation_02_2024_ET_10_2024.html +++ b/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html @@ -3994,10 +3994,26 @@

Formations couvertes par la base InserJeunes

Parcoursup

-

Parcoursup - Agrégation des catalogues Février et Octobre -2024: Lien +

Parcoursup - campagne 2024: Lien vers le catalogue

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

+<<<<<<< HEAD:analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2024.html +
+

Synthese

+
+

Nombre de formations

+
+ +
+
+
+

Détails par type de diplôme

+
+

Nombre de formations

+
+ +
+=======

Nombre de formations

@@ -4020,6 +4036,7 @@

Nombre de formations

Nombre de voeux émis

+>>>>>>> main:analyse/couverture_catalogue/parcoursup/parcoursup_agregation_02_2024_ET_10_2024.html
diff --git a/analyse/couverture_catalogue/parcoursup/parcoursup_07_2024.html b/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2025.html similarity index 98% rename from analyse/couverture_catalogue/parcoursup/parcoursup_07_2024.html rename to analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2025.html index a64ab7d1..e48e095b 100644 --- a/analyse/couverture_catalogue/parcoursup/parcoursup_07_2024.html +++ b/analyse/couverture_catalogue/parcoursup/parcoursup_campagne_2025.html @@ -3994,13 +3994,24 @@

Formations couvertes par la base InserJeunes

Parcoursup

-

Parcoursup - Juillet 2024: Lien +

Parcoursup - campagne 2025: Lien vers le catalogue

-

Dernière mise à jour : 09/09/2024

-
-

Nombre de formations

-
- +

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

+
+

Synthese

+
+

Nombre de formations

+
+ +
+
+
+

Détails par type de diplôme

+
+

Nombre de formations

+
+ +
diff --git a/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025.R b/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R similarity index 71% rename from analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025.R rename to analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R index efc0c202..68ce7101 100644 --- a/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025.R +++ b/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2024.R @@ -5,15 +5,78 @@ library(rmarkdown) setwd(dirname(rstudioapi::getSourceEditorContext()$path)) -chemin_racine_data <- "../../../../0- data" +chemin_racine <- "../../../.." +chemin_racine_data <- file.path(chemin_racine,"0- data") source("prepa_data_init_generique.R") ## Parcoursup 10_2024---- +parcoursup_2024_02 <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/listesFormationsInsertJeunes_toutesFormations_020224.xls")) parcoursup_2024_10 <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/listeFormationsInserJeunes_finSession2024_01_10_2024.xls")) -parcoursup_nomenclature_de_ref <- parcoursup_2024_10 %>% +parcoursup_campagne_2024 <- parcoursup_2024_10 %>% + mutate(present_oct=T)%>% + left_join( + parcoursup_2024_02 %>% + setNames(paste0(names(.),"_fev")) %>% + mutate(present_fev=T), + by=c("CODEFORMATIONACCUEIL"="CODEFORMATIONACCUEIL_fev") + ) %>% + mutate( + present_fev=ifelse(is.na(present_fev),F,present_fev), + present_oct=ifelse(is.na(present_oct),F,present_oct) + ) %>% + mutate( + verif=case_when( + UAI_GES==UAI_GES_fev & UAI_COMPOSANTE==UAI_COMPOSANTE_fev& UAI_AFF==UAI_AFF_fev & + CODEFORMATION==CODEFORMATION_fev & CODESPÉCIALITÉ==CODESPÉCIALITÉ_fev~T + ) + ) %>% + mutate(verif=ifelse(is.na(verif),F,T)) %>% + mutate( + CODEMEF=case_when( + is.na(CODEMEF)~CODEMEF_fev, + T~CODEMEF + ), + CODECFD=case_when( + is.na(CODECFD)~CODECFD_fev, + T~CODECFD + ), + CODESISE=CODESISE, + LISTE_IDEO=LISTE_IDEO, + ID_RCO=case_when( + is.na(ID_RCO)~ID_RCO_fev, + T~ID_RCO + ), + LISTE_RNCP=case_when( + is.na(LISTE_RNCP)~LISTE_RNCP_fev, + T~LISTE_RNCP + ), + NBDEDEMANDES=case_when( + is.na(NBDEDEMANDES)~NBDEDEMANDES_fev, + T~NBDEDEMANDES + ) + ) %>% + select(names(parcoursup_2024_10),present_fev,present_oct) %>% + bind_rows( + parcoursup_2024_02 %>% + mutate(present_fev=T, + present_oct=F) %>% + filter(!CODEFORMATIONACCUEIL %in% parcoursup_2024_10$CODEFORMATIONACCUEIL) + ) %>% + filter(present_fev) + +parcoursup_campagne_2024 <-parcoursup_campagne_2024 %>% + select(-NBDEDEMANDES) %>% + left_join( + parcoursup_2024_02 %>% + select(CODEFORMATIONACCUEIL,NBDEDEMANDES), + by="CODEFORMATIONACCUEIL" + ) + + +parcoursup_nomenclature_de_ref <- parcoursup_campagne_2024 %>% distinct(CODECFD,LISTE_RNCP,LISTE_IDEO,CODESISE) %>% mutate( nomenclature_de_ref=case_when( @@ -70,11 +133,11 @@ parcoursup_nomenclature_de_ref_renseigne <- parcoursup_nomenclature_de_ref %>% mutate(niveau_formation_via_RNCP=as.numeric(niveau_formation_via_RNCP)) %>% distinct(id,niveau_formation_via_RNCP,lib_type_formation_via_RNCP) %>% mutate(qualite_RNCP=ifelse(is.na(lib_type_formation_via_RNCP),"Correspondance impossible via RNCP","Correspondance possible via RNCP"), - qualite_RNCP=factor(qualite_RNCP,levels=c("Correspondance possible via RNCP","Correspondance impossible via RNCP"))) %>% + qualite_RNCP=factor(qualite_RNCP,levels=c("Correspondance possible via RNCP","Correspondance impossible via RNCP"))) %>% group_by(id) %>% nest() %>% mutate(data=map(data,function(df){ - + temp <- df %>% distinct() %>% filter(as.numeric(qualite_RNCP)==min(as.numeric(qualite_RNCP))) @@ -120,7 +183,7 @@ parcoursup_nomenclature_de_ref_renseigne <- parcoursup_nomenclature_de_ref %>% mutate(niveau_formation_via_IDEO=as.numeric(niveau_formation_via_IDEO)) %>% distinct(id,niveau_formation_via_IDEO,lib_type_formation_via_IDEO) %>% mutate(qualite_IDEO=ifelse(is.na(lib_type_formation_via_IDEO),"Correspondance impossible via IDEO","Correspondance possible via IDEO"), - qualite_IDEO=factor(qualite_IDEO,levels=c("Correspondance possible via IDEO","Correspondance impossible via IDEO"))) %>% + qualite_IDEO=factor(qualite_IDEO,levels=c("Correspondance possible via IDEO","Correspondance impossible via IDEO"))) %>% group_by(id) %>% nest() %>% mutate(data=map(data,function(df){ @@ -165,7 +228,7 @@ parcoursup_nomenclature_de_ref_renseigne <- parcoursup_nomenclature_de_ref %>% mutate(niveau_formation_via_SISE=as.numeric(niveau_formation_via_SISE)) %>% distinct(id,niveau_formation_via_SISE,lib_type_formation_via_SISE) %>% mutate(qualite_SISE=ifelse(is.na(lib_type_formation_via_SISE),"Correspondance impossible via SISE","Correspondance possible via SISE"), - qualite_SISE=factor(qualite_SISE,levels=c("Correspondance possible via SISE","Correspondance impossible via SISE"))) %>% + qualite_SISE=factor(qualite_SISE,levels=c("Correspondance possible via SISE","Correspondance impossible via SISE"))) %>% group_by(id) %>% nest() %>% mutate(data=map(data,function(df){ @@ -264,7 +327,8 @@ 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 %>% + filter(CODEFORMATIONACCUEIL %in% parcoursup_campagne_2024$CODEFORMATIONACCUEIL) parcoursup_nomenclature_de_ref_renseigne <- parcoursup_nomenclature_de_ref_renseigne %>% filter(niveau_formation!="Niveau inconnu") %>% @@ -284,7 +348,7 @@ parcoursup_nomenclature_de_ref_renseigne <- parcoursup_nomenclature_de_ref_rense -parcoursup_2024_10_param<- parcoursup_2024_10 %>% +parcoursup_campagne_2024_param<- parcoursup_campagne_2024 %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% left_join( parcoursup_nomenclature_de_ref_renseigne %>% @@ -310,7 +374,7 @@ catalogue_mne <- catalogue_mne %>% ### Parcoursup dans InserJeunes ---- -parcoursup_2024_ij <- parcoursup_2024_10_param %>% +parcoursup_2024_ij <- parcoursup_campagne_2024_param %>% rowwise() %>% filter(!any(is.na(CODECFD),is.na(CODEMEF))) %>% ungroup() %>% @@ -342,7 +406,7 @@ parcoursup_2024_ij_inverse <- parcoursup_2024_ij %>% #### MNE ---- -parcoursup_2024_ij_mne <- parcoursup_2024_10_param %>% +parcoursup_2024_ij_mne <- parcoursup_campagne_2024_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,ID_RCO,APPRENTISSAGEOUSCOLAIRE) %>% left_join( catalogue_mne %>% @@ -376,12 +440,12 @@ parcoursup_2024_ij_mne <- parcoursup_2024_10_param %>% drop_na() %>% setNames(c("TYPE_UAI","UAI","MEFSTAT11","Filiere","CODEFORMATIONACCUEIL")) %>% mutate(appariement="mne") - + #### MNE - inverse ---- -parcoursup_2024_ij_mne_inverse <- parcoursup_2024_10_param %>% +parcoursup_2024_ij_mne_inverse <- parcoursup_campagne_2024_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,ID_RCO,APPRENTISSAGEOUSCOLAIRE) %>% left_join( catalogue_mne %>% @@ -423,7 +487,7 @@ parcoursup_2024_ij_mne_inverse <- parcoursup_2024_10_param %>% #### RNCP ---- -parcoursup_2024_ij_rncp <- parcoursup_2024_10_param %>% +parcoursup_2024_ij_rncp <- parcoursup_campagne_2024_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,LISTE_RNCP,APPRENTISSAGEOUSCOLAIRE)%>% mutate( LISTE_RNCP=map(LISTE_RNCP,function(x){ @@ -467,7 +531,7 @@ parcoursup_2024_ij_rncp <- parcoursup_2024_10_param %>% -parcoursup_2024_ij_inverse_rncp <- parcoursup_2024_10_param %>% +parcoursup_2024_ij_inverse_rncp <- parcoursup_campagne_2024_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,LISTE_RNCP,APPRENTISSAGEOUSCOLAIRE)%>% mutate( LISTE_RNCP=map(LISTE_RNCP,function(x){ @@ -513,7 +577,7 @@ parcoursup_2024_ij_inverse_rncp <- parcoursup_2024_10_param %>% #### IDEO ---- -parcoursup_2024_ij_ideo <- parcoursup_2024_10_param %>% +parcoursup_2024_ij_ideo <- parcoursup_campagne_2024_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,LISTE_IDEO,APPRENTISSAGEOUSCOLAIRE) %>% drop_na() %>% mutate( @@ -559,7 +623,7 @@ parcoursup_2024_ij_ideo <- parcoursup_2024_10_param %>% mutate(appariement="ideo") -parcoursup_2024_ij_ideo_inverse <- parcoursup_2024_10_param %>% +parcoursup_2024_ij_ideo_inverse <- parcoursup_campagne_2024_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,LISTE_IDEO,APPRENTISSAGEOUSCOLAIRE) %>% drop_na() %>% mutate( @@ -615,7 +679,7 @@ parcoursup_2024_ij_ensemble_analyse <- bind_rows( parcoursup_2024_ij_normal, parcoursup_2024_ij_rncp, parcoursup_2024_ij_inverse_rncp - ) %>% +) %>% mutate(TYPE_UAI=factor(TYPE_UAI,levels=c("UAI_COMPOSANTE","UAI_AFF","UAI_GES")), appariement=factor(appariement,levels=c("normal","rncp","ideo","mne","inverse","rncp-inverse","ideo-inverse","mne-inverse")) ) %>% @@ -624,7 +688,7 @@ parcoursup_2024_ij_ensemble_analyse <- bind_rows( group_by(UAI,MEFSTAT11,Filiere,CODEFORMATIONACCUEIL) %>% filter(as.numeric(appariement)==min(as.numeric(appariement))) %>% ungroup() - + # parcoursup_2024_ij_ensemble_analyse_renseigne <- expo_mef_catalogue_partenaire(catalogue_init = parcoursup_2024_ij_ensemble_analyse,type_source = "affelnet") @@ -634,7 +698,7 @@ map(c("normal","rncp","ideo","mne","inverse","rncp-inverse","ideo-inverse","mne- print(val_appariemment) if(val_appariemment=="normal"){ temp <<- expo_mef_catalogue_partenaire(catalogue_init = parcoursup_2024_ij_ensemble_analyse %>% - filter(appariement==val_appariemment),type_source = "affelnet") + filter(appariement==val_appariemment),type_source = "affelnet") }else{ temp <<- parcoursup_2024_ij_ensemble_analyse %>% filter(appariement==val_appariemment, @@ -685,10 +749,10 @@ parcoursup_2024_ij_renseigne <- temp %>% unnest() %>% ungroup() %>% filter(!CODEFORMATIONACCUEIL %in% (listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>% - select(CODEFORMATIONACCUEIL) %>% + select(CODEFORMATIONACCUEIL) %>% pull(CODEFORMATIONACCUEIL) - )) - + )) + @@ -697,7 +761,7 @@ parcoursup_2024_ij_renseigne <- temp %>% ### Parcoursup pas dans InserJeunes et pas dans InserSup ---- -parcoursup_2024_pas_ij_pas_isup <- parcoursup_2024_10_param %>% +parcoursup_2024_pas_ij_pas_isup <- parcoursup_campagne_2024_param %>% filter(!CODEFORMATIONACCUEIL %in% (parcoursup_2024_ij_renseigne %>% select(CODEFORMATIONACCUEIL) %>% bind_rows( @@ -732,9 +796,13 @@ parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij <- parcoursup_2024_pas_ij_pas_is parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% select(-perimetre,-type_formation,-libelle_type_diplome) %>% left_join( - parcoursup_2024_10_param %>% - mutate(LIBFORMATION=str_split_fixed(LIBFORMATION," - ",2)[,1], - LIBFORMATION=str_to_upper(LIBFORMATION)) %>% + parcoursup_campagne_2024_param %>% + mutate( + LIBFORMATION=case_when( + str_sub(LIBFORMATION,1,3)%in%c("BTS","BUT")~LIBFORMATION, + T~ str_to_upper(str_split_fixed(LIBFORMATION," - ",2)[,1]) + ) + )%>% select(CODEFORMATIONACCUEIL,LIBFORMATION,niveau_formation,qualite_code) %>% rename(lib_type_formation=LIBFORMATION) %>% mutate( @@ -766,10 +834,10 @@ stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire <- stats_catalo left_join( stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire %>% filter(`Niveau de formation`!="Problème de qualité du code formation en entrée") %>% - distinct(Périmètre ,`Niveau de formation`,`Type diplôme`,Filiere) %>% - group_by(across(c("Type diplôme","Filiere"))) %>% + distinct(Périmètre ,`Niveau de formation`,`Type diplôme`) %>% + group_by(`Type diplôme`) %>% slice(1), - by=c("Type diplôme","Filiere") + by=c("Type diplôme") ) %>% mutate( Périmètre=ifelse(is.na(Périmètre),"Inconnu",Périmètre), @@ -819,10 +887,10 @@ stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire_voeux <- stats_ left_join( stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire_voeux %>% filter(`Niveau de formation`!="Problème de qualité du code formation en entrée") %>% - distinct(Périmètre ,`Niveau de formation`,`Type diplôme`,Filiere) %>% - group_by(across(c("Type diplôme","Filiere"))) %>% + distinct(Périmètre ,`Niveau de formation`,`Type diplôme`) %>% + group_by(`Type diplôme`) %>% slice(1), - by=c("Type diplôme","Filiere") + by=c("Type diplôme") ) %>% mutate( Périmètre=ifelse(is.na(Périmètre),"Inconnu",Périmètre), @@ -1056,21 +1124,21 @@ stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeu ) -stats_catalogue_parcoursup_2024_10 <- NULL -stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire <- bind_rows( +stats_catalogue_parcoursup_campagne_2024 <- NULL +stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire <- bind_rows( stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire, stats_catalogue_isup$stats_catalogue_partenaire ) -stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire <- stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire %>% +stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire <- stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire %>% filter(`Type diplôme`!="Total") %>% arrange(`Niveau de formation`) %>% mutate(`Part du catalogue`=prop.table(`Nombre de formations`)) -stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire <- stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire %>% +stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire <- stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire %>% bind_rows( - stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire %>% + stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire %>% select_if(is.numeric) %>% summarise_all(sum,na.rm=T) %>% mutate( @@ -1129,19 +1197,19 @@ stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire <- stats_catalogue -stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire_voeux <- bind_rows( +stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux <- bind_rows( stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire_voeux, stats_catalogue_isup$stats_catalogue_partenaire_voeux ) -stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire_voeux %>% +stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux %>% filter(`Type diplôme`!="Total") %>% arrange(`Niveau de formation`) %>% mutate(`Part du catalogue`=prop.table(`Demandes tous voeux`)) -stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire_voeux %>% +stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux %>% bind_rows( - stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire_voeux %>% + stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux %>% select_if(is.numeric) %>% summarise_all(sum,na.rm=T) %>% mutate( @@ -1151,7 +1219,7 @@ stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire_voeux <- stats_cat Filiere="Total", "Couverture (%)"=`Couverture (nb)`/`Demandes tous voeux`, "Formations non associées à une famille de métiers - Effectifs couverts (%)"=`Formations non associées à une famille de métiers - Effectifs couverts (nb)`/`Demandes tous voeux`, - + "Dont couvert par l'UAI lieu de formation (%)"=`Dont couvert par l'UAI lieu de formation (nb)`/`Demandes tous voeux`, "Dont couvert par l'UAI formateur (%)"=`Dont couvert par l'UAI formateur (nb)`/`Demandes tous voeux`, "Dont couvert par l'UAI Gestionnaire (%)"=`Dont couvert par l'UAI Gestionnaire (nb)`/`Demandes tous voeux`, @@ -1197,6 +1265,298 @@ stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire_voeux <- stats_cat )) +correspondance_formation_certificateur <- read_excel(file.path(chemin_racine,"Groupe-002 - Parcoursup/003 - 4 - Prepa ParcourSup 2025/correspondance_formation_certificateur.xlsx")) + +stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire <- stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire %>% + left_join( + correspondance_formation_certificateur, + by=c("Type diplôme","Filiere") + ) %>% + 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" + ), + Certificateur=ifelse(Périmètre=="Total","Total",Certificateur) + ) + + +stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux %>% + left_join( + correspondance_formation_certificateur, + by=c("Type diplôme","Filiere") + ) %>% + 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" + ), + Certificateur=ifelse(Périmètre=="Total","Total",Certificateur) + ) + + + +stats_catalogue_parcoursup_campagne_2024_synthese <- NULL +stats_catalogue_parcoursup_campagne_2024_synthese$stats_catalogue_partenaire <- stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire %>% + filter(Périmètre!="Total") %>% + group_by(`Scope campagne 2024`) %>% + select_if(is.numeric) %>% + summarise_all(sum,na.rm=T) %>% + mutate( + "Couverture (%)"=`Couverture (nb)`/`Nombre de formations`, + + "Dont couvert par l'UAI lieu de formation (%)"=`Dont couvert par l'UAI lieu de formation (nb)`/`Nombre de formations`, + "Dont couvert par l'UAI formateur (%)"=`Dont couvert par l'UAI formateur (nb)`/`Nombre de formations`, + "Dont couvert par l'UAI Gestionnaire (%)"=`Dont couvert par l'UAI Gestionnaire (nb)`/`Nombre de formations`, + + "Non couvert (%)"=`Non couvert (nb)`/`Nombre de formations`, + "Dont sous le seuil de 20 élèves (%)"=`Dont sous le seuil de 20 élèves (nb)`/`Nombre de formations`, + "Non couvert - Nouvelles formations (%)"=`Non couvert - Nouvelles formations (nb)`/`Nombre de formations`, + "Non couvert - code certif inconnu (%)"=`Non couvert - code certif inconnu (nb)`/`Nombre de formations`, + "Non couvert - Autres ministères certificateurs (%)"=`Non couvert - Autres ministères certificateurs (nb)`/`Nombre de formations`, + "Non couvert - UAI inconnu (%)"=`Non couvert - UAI inconnu (nb)`/`Nombre de formations`, + "Territoires mal couverts (%)"=`Territoires mal couverts (nb)`/`Nombre de formations`, + "Non couvert - Problème de qualité du code formation en entrée (%)"=`Non couvert - Problème de qualité du code formation en entrée (nb)`/`Nombre de formations`, + "Non couvert - sans raison évidente (%)"=`Non couvert - sans raison évidente (nb)`/`Nombre de formations` + ) %>% + filter(`Scope campagne 2024`=="Oui") %>% + select(c("Nombre de formations", "Part du catalogue", + "Couverture (nb)", "Couverture (%)", + + "Dont couvert par l'UAI lieu de formation (nb)", + "Dont couvert par l'UAI lieu de formation (%)", + "Dont couvert par l'UAI formateur (nb)", + "Dont couvert par l'UAI formateur (%)", + "Dont couvert par l'UAI Gestionnaire (nb)", + "Dont couvert par l'UAI Gestionnaire (%)", + + "Non couvert (nb)", "Non couvert (%)", "Dont sous le seuil de 20 élèves (nb)", + "Dont sous le seuil de 20 élèves (%)", "Non couvert - Nouvelles formations (nb)", + "Non couvert - Nouvelles formations (%)", "Non couvert - code certif inconnu (nb)", + "Non couvert - code certif inconnu (%)", "Non couvert - Autres ministères certificateurs (nb)", + "Non couvert - Autres ministères certificateurs (%)", "Non couvert - UAI inconnu (nb)", + "Non couvert - UAI inconnu (%)", + + "Territoires mal couverts (nb)","Territoires mal couverts (%)", + + "Non couvert - Problème de qualité du code formation en entrée (nb)", + "Non couvert - Problème de qualité du code formation en entrée (%)", + + "Non couvert - sans raison évidente (nb)", + "Non couvert - sans raison évidente (%)" + )) %>% + ungroup() %>% + mutate(Scope="Scope campagne 2024") %>% + bind_rows( + stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire %>% + filter(Périmètre!="Total") %>% + group_by(`Scope campagne 2025`) %>% + select_if(is.numeric) %>% + summarise_all(sum,na.rm=T) %>% + mutate( + "Couverture (%)"=`Couverture (nb)`/`Nombre de formations`, + + "Dont couvert par l'UAI lieu de formation (%)"=`Dont couvert par l'UAI lieu de formation (nb)`/`Nombre de formations`, + "Dont couvert par l'UAI formateur (%)"=`Dont couvert par l'UAI formateur (nb)`/`Nombre de formations`, + "Dont couvert par l'UAI Gestionnaire (%)"=`Dont couvert par l'UAI Gestionnaire (nb)`/`Nombre de formations`, + + "Non couvert (%)"=`Non couvert (nb)`/`Nombre de formations`, + "Dont sous le seuil de 20 élèves (%)"=`Dont sous le seuil de 20 élèves (nb)`/`Nombre de formations`, + "Non couvert - Nouvelles formations (%)"=`Non couvert - Nouvelles formations (nb)`/`Nombre de formations`, + "Non couvert - code certif inconnu (%)"=`Non couvert - code certif inconnu (nb)`/`Nombre de formations`, + "Non couvert - Autres ministères certificateurs (%)"=`Non couvert - Autres ministères certificateurs (nb)`/`Nombre de formations`, + "Non couvert - UAI inconnu (%)"=`Non couvert - UAI inconnu (nb)`/`Nombre de formations`, + "Territoires mal couverts (%)"=`Territoires mal couverts (nb)`/`Nombre de formations`, + "Non couvert - Problème de qualité du code formation en entrée (%)"=`Non couvert - Problème de qualité du code formation en entrée (nb)`/`Nombre de formations`, + "Non couvert - sans raison évidente (%)"=`Non couvert - sans raison évidente (nb)`/`Nombre de formations` + ) %>% + filter(`Scope campagne 2025`=="Oui") %>% + select(c("Nombre de formations", "Part du catalogue", + "Couverture (nb)", "Couverture (%)", + + "Dont couvert par l'UAI lieu de formation (nb)", + "Dont couvert par l'UAI lieu de formation (%)", + "Dont couvert par l'UAI formateur (nb)", + "Dont couvert par l'UAI formateur (%)", + "Dont couvert par l'UAI Gestionnaire (nb)", + "Dont couvert par l'UAI Gestionnaire (%)", + + "Non couvert (nb)", "Non couvert (%)", "Dont sous le seuil de 20 élèves (nb)", + "Dont sous le seuil de 20 élèves (%)", "Non couvert - Nouvelles formations (nb)", + "Non couvert - Nouvelles formations (%)", "Non couvert - code certif inconnu (nb)", + "Non couvert - code certif inconnu (%)", "Non couvert - Autres ministères certificateurs (nb)", + "Non couvert - Autres ministères certificateurs (%)", "Non couvert - UAI inconnu (nb)", + "Non couvert - UAI inconnu (%)", + + "Territoires mal couverts (nb)","Territoires mal couverts (%)", + + "Non couvert - Problème de qualité du code formation en entrée (nb)", + "Non couvert - Problème de qualité du code formation en entrée (%)", + + "Non couvert - sans raison évidente (nb)", + "Non couvert - sans raison évidente (%)" + )) %>% + ungroup() %>% + mutate(Scope="Scope campagne 2025") + ) %>% + bind_rows( + stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire %>% + filter(Périmètre=="Total") %>% + 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()) + + + +stats_catalogue_parcoursup_campagne_2024_synthese$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux %>% + filter(Périmètre!="Total") %>% + group_by(`Scope campagne 2024`) %>% + select_if(is.numeric) %>% + summarise_all(sum,na.rm=T) %>% + mutate( + "Couverture (%)"=`Couverture (nb)`/`Demandes tous voeux`, + + "Dont couvert par l'UAI lieu de formation (%)"=`Dont couvert par l'UAI lieu de formation (nb)`/`Demandes tous voeux`, + "Dont couvert par l'UAI formateur (%)"=`Dont couvert par l'UAI formateur (nb)`/`Demandes tous voeux`, + "Dont couvert par l'UAI Gestionnaire (%)"=`Dont couvert par l'UAI Gestionnaire (nb)`/`Demandes tous voeux`, + + "Non couvert (%)"=`Non couvert (nb)`/`Demandes tous voeux`, + "Dont sous le seuil de 20 élèves (%)"=`Dont sous le seuil de 20 élèves (nb)`/`Demandes tous voeux`, + "Non couvert - Nouvelles formations (%)"=`Non couvert - Nouvelles formations (nb)`/`Demandes tous voeux`, + "Non couvert - code certif inconnu (%)"=`Non couvert - code certif inconnu (nb)`/`Demandes tous voeux`, + "Non couvert - Autres ministères certificateurs (%)"=`Non couvert - Autres ministères certificateurs (nb)`/`Demandes tous voeux`, + "Non couvert - UAI inconnu (%)"=`Non couvert - UAI inconnu (nb)`/`Demandes tous voeux`, + "Territoires mal couverts (%)"=`Territoires mal couverts (nb)`/`Demandes tous voeux`, + "Non couvert - Problème de qualité du code formation en entrée (%)"=`Non couvert - Problème de qualité du code formation en entrée (nb)`/`Demandes tous voeux`, + "Non couvert - sans raison évidente (%)"=`Non couvert - sans raison évidente (nb)`/`Demandes tous voeux` + ) %>% + filter(`Scope campagne 2024`=="Oui") %>% + select(c("Demandes tous voeux", "Part du catalogue", + "Couverture (nb)", "Couverture (%)", + + "Dont couvert par l'UAI lieu de formation (nb)", + "Dont couvert par l'UAI lieu de formation (%)", + "Dont couvert par l'UAI formateur (nb)", + "Dont couvert par l'UAI formateur (%)", + "Dont couvert par l'UAI Gestionnaire (nb)", + "Dont couvert par l'UAI Gestionnaire (%)", + + "Non couvert (nb)", "Non couvert (%)", "Dont sous le seuil de 20 élèves (nb)", + "Dont sous le seuil de 20 élèves (%)", "Non couvert - Nouvelles formations (nb)", + "Non couvert - Nouvelles formations (%)", "Non couvert - code certif inconnu (nb)", + "Non couvert - code certif inconnu (%)", "Non couvert - Autres ministères certificateurs (nb)", + "Non couvert - Autres ministères certificateurs (%)", "Non couvert - UAI inconnu (nb)", + "Non couvert - UAI inconnu (%)", + + "Territoires mal couverts (nb)","Territoires mal couverts (%)", + + "Non couvert - Problème de qualité du code formation en entrée (nb)", + "Non couvert - Problème de qualité du code formation en entrée (%)", + + "Non couvert - sans raison évidente (nb)", + "Non couvert - sans raison évidente (%)" + )) %>% + ungroup() %>% + mutate(Scope="Scope campagne 2024") %>% + bind_rows( + stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux %>% + filter(Périmètre!="Total") %>% + group_by(`Scope campagne 2025`) %>% + select_if(is.numeric) %>% + summarise_all(sum,na.rm=T) %>% + mutate( + "Couverture (%)"=`Couverture (nb)`/`Demandes tous voeux`, + + "Dont couvert par l'UAI lieu de formation (%)"=`Dont couvert par l'UAI lieu de formation (nb)`/`Demandes tous voeux`, + "Dont couvert par l'UAI formateur (%)"=`Dont couvert par l'UAI formateur (nb)`/`Demandes tous voeux`, + "Dont couvert par l'UAI Gestionnaire (%)"=`Dont couvert par l'UAI Gestionnaire (nb)`/`Demandes tous voeux`, + + "Non couvert (%)"=`Non couvert (nb)`/`Demandes tous voeux`, + "Dont sous le seuil de 20 élèves (%)"=`Dont sous le seuil de 20 élèves (nb)`/`Demandes tous voeux`, + "Non couvert - Nouvelles formations (%)"=`Non couvert - Nouvelles formations (nb)`/`Demandes tous voeux`, + "Non couvert - code certif inconnu (%)"=`Non couvert - code certif inconnu (nb)`/`Demandes tous voeux`, + "Non couvert - Autres ministères certificateurs (%)"=`Non couvert - Autres ministères certificateurs (nb)`/`Demandes tous voeux`, + "Non couvert - UAI inconnu (%)"=`Non couvert - UAI inconnu (nb)`/`Demandes tous voeux`, + "Territoires mal couverts (%)"=`Territoires mal couverts (nb)`/`Demandes tous voeux`, + "Non couvert - Problème de qualité du code formation en entrée (%)"=`Non couvert - Problème de qualité du code formation en entrée (nb)`/`Demandes tous voeux`, + "Non couvert - sans raison évidente (%)"=`Non couvert - sans raison évidente (nb)`/`Demandes tous voeux` + ) %>% + filter(`Scope campagne 2025`=="Oui") %>% + select(c("Demandes tous voeux", "Part du catalogue", + "Couverture (nb)", "Couverture (%)", + + "Dont couvert par l'UAI lieu de formation (nb)", + "Dont couvert par l'UAI lieu de formation (%)", + "Dont couvert par l'UAI formateur (nb)", + "Dont couvert par l'UAI formateur (%)", + "Dont couvert par l'UAI Gestionnaire (nb)", + "Dont couvert par l'UAI Gestionnaire (%)", + + "Non couvert (nb)", "Non couvert (%)", "Dont sous le seuil de 20 élèves (nb)", + "Dont sous le seuil de 20 élèves (%)", "Non couvert - Nouvelles formations (nb)", + "Non couvert - Nouvelles formations (%)", "Non couvert - code certif inconnu (nb)", + "Non couvert - code certif inconnu (%)", "Non couvert - Autres ministères certificateurs (nb)", + "Non couvert - Autres ministères certificateurs (%)", "Non couvert - UAI inconnu (nb)", + "Non couvert - UAI inconnu (%)", + + "Territoires mal couverts (nb)","Territoires mal couverts (%)", + + "Non couvert - Problème de qualité du code formation en entrée (nb)", + "Non couvert - Problème de qualité du code formation en entrée (%)", + + "Non couvert - sans raison évidente (nb)", + "Non couvert - sans raison évidente (%)" + )) %>% + ungroup() %>% + mutate(Scope="Scope campagne 2025") + ) %>% + bind_rows( + stats_catalogue_parcoursup_campagne_2024$stats_catalogue_partenaire_voeux %>% + filter(Périmètre=="Total") %>% + 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()) + #Le sup semble couvert sur l'établissement gestionnaire: https://dossier.parcoursup.fr/Candidats/public/fiches/afficherFicheFormation?g_ta_cod=24415 # #Université de Montpellier, Antenne de Perpignan (66) @@ -1210,7 +1570,7 @@ stats_catalogue_parcoursup_2024_10$stats_catalogue_partenaire_voeux <- stats_cat # #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 %>% -filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% + filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% filter(UAI_GES!=UAI_COMPOSANTE) %>% mutate( `Type diplôme`=case_when( @@ -1224,4 +1584,5 @@ filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% ( data_meta_formationsStats_init %>% filter(filiere=="superieur") %>% distinct(uai) %>% - pull(uai))) \ No newline at end of file + pull(uai))) + diff --git a/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_agreagation_02_2024_ET_10_2024.R b/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2025.R similarity index 84% rename from analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_agreagation_02_2024_ET_10_2024.R rename to analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2025.R index b2fa0bbf..cbe7ae15 100644 --- a/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_agreagation_02_2024_ET_10_2024.R +++ b/analyse/couverture_catalogue/parcoursup/script_prepa_ps_2025_campagne_2025.R @@ -15,7 +15,7 @@ source("prepa_data_init_generique.R") parcoursup_2024_02 <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/listesFormationsInsertJeunes_toutesFormations_020224.xls")) parcoursup_2024_10 <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/listeFormationsInserJeunes_finSession2024_01_10_2024.xls")) -parcoursup_2024_agregation_10_2024_02 <- parcoursup_2024_10 %>% +parcoursup_campagne_2025 <- parcoursup_2024_10 %>% mutate(present_oct=T)%>% left_join( parcoursup_2024_02 %>% @@ -64,10 +64,19 @@ parcoursup_2024_agregation_10_2024_02 <- parcoursup_2024_10 %>% mutate(present_fev=T, present_oct=F) %>% filter(!CODEFORMATIONACCUEIL %in% parcoursup_2024_10$CODEFORMATIONACCUEIL) + ) %>% + filter(present_oct) + +parcoursup_campagne_2025 <-parcoursup_campagne_2025 %>% + select(-NBDEDEMANDES) %>% + left_join( + parcoursup_2024_10 %>% + select(CODEFORMATIONACCUEIL,NBDEDEMANDES), + by="CODEFORMATIONACCUEIL" ) -parcoursup_nomenclature_de_ref <- parcoursup_2024_agregation_10_2024_02 %>% +parcoursup_nomenclature_de_ref <- parcoursup_campagne_2025 %>% distinct(CODECFD,LISTE_RNCP,LISTE_IDEO,CODESISE) %>% mutate( nomenclature_de_ref=case_when( @@ -318,7 +327,8 @@ 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 %>% + filter(CODEFORMATIONACCUEIL %in% parcoursup_campagne_2025$CODEFORMATIONACCUEIL) parcoursup_nomenclature_de_ref_renseigne <- parcoursup_nomenclature_de_ref_renseigne %>% filter(niveau_formation!="Niveau inconnu") %>% @@ -338,7 +348,7 @@ parcoursup_nomenclature_de_ref_renseigne <- parcoursup_nomenclature_de_ref_rense -parcoursup_2024_agregation_10_2024_02_param<- parcoursup_2024_agregation_10_2024_02 %>% +parcoursup_campagne_2025_param<- parcoursup_campagne_2025 %>% filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>% left_join( parcoursup_nomenclature_de_ref_renseigne %>% @@ -364,7 +374,7 @@ catalogue_mne <- catalogue_mne %>% ### Parcoursup dans InserJeunes ---- -parcoursup_2024_ij <- parcoursup_2024_agregation_10_2024_02_param %>% +parcoursup_2024_ij <- parcoursup_campagne_2025_param %>% rowwise() %>% filter(!any(is.na(CODECFD),is.na(CODEMEF))) %>% ungroup() %>% @@ -396,7 +406,7 @@ parcoursup_2024_ij_inverse <- parcoursup_2024_ij %>% #### MNE ---- -parcoursup_2024_ij_mne <- parcoursup_2024_agregation_10_2024_02_param %>% +parcoursup_2024_ij_mne <- parcoursup_campagne_2025_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,ID_RCO,APPRENTISSAGEOUSCOLAIRE) %>% left_join( catalogue_mne %>% @@ -435,7 +445,7 @@ parcoursup_2024_ij_mne <- parcoursup_2024_agregation_10_2024_02_param %>% #### MNE - inverse ---- -parcoursup_2024_ij_mne_inverse <- parcoursup_2024_agregation_10_2024_02_param %>% +parcoursup_2024_ij_mne_inverse <- parcoursup_campagne_2025_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,ID_RCO,APPRENTISSAGEOUSCOLAIRE) %>% left_join( catalogue_mne %>% @@ -477,7 +487,7 @@ parcoursup_2024_ij_mne_inverse <- parcoursup_2024_agregation_10_2024_02_param %> #### RNCP ---- -parcoursup_2024_ij_rncp <- parcoursup_2024_agregation_10_2024_02_param %>% +parcoursup_2024_ij_rncp <- parcoursup_campagne_2025_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,LISTE_RNCP,APPRENTISSAGEOUSCOLAIRE)%>% mutate( LISTE_RNCP=map(LISTE_RNCP,function(x){ @@ -521,7 +531,7 @@ parcoursup_2024_ij_rncp <- parcoursup_2024_agregation_10_2024_02_param %>% -parcoursup_2024_ij_inverse_rncp <- parcoursup_2024_agregation_10_2024_02_param %>% +parcoursup_2024_ij_inverse_rncp <- parcoursup_campagne_2025_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,LISTE_RNCP,APPRENTISSAGEOUSCOLAIRE)%>% mutate( LISTE_RNCP=map(LISTE_RNCP,function(x){ @@ -567,7 +577,7 @@ parcoursup_2024_ij_inverse_rncp <- parcoursup_2024_agregation_10_2024_02_param % #### IDEO ---- -parcoursup_2024_ij_ideo <- parcoursup_2024_agregation_10_2024_02_param %>% +parcoursup_2024_ij_ideo <- parcoursup_campagne_2025_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,LISTE_IDEO,APPRENTISSAGEOUSCOLAIRE) %>% drop_na() %>% mutate( @@ -613,7 +623,7 @@ parcoursup_2024_ij_ideo <- parcoursup_2024_agregation_10_2024_02_param %>% mutate(appariement="ideo") -parcoursup_2024_ij_ideo_inverse <- parcoursup_2024_agregation_10_2024_02_param %>% +parcoursup_2024_ij_ideo_inverse <- parcoursup_campagne_2025_param %>% select(UAI_GES,UAI_AFF,UAI_COMPOSANTE,CODEFORMATIONACCUEIL,LISTE_IDEO,APPRENTISSAGEOUSCOLAIRE) %>% drop_na() %>% mutate( @@ -751,7 +761,7 @@ parcoursup_2024_ij_renseigne <- temp %>% ### Parcoursup pas dans InserJeunes et pas dans InserSup ---- -parcoursup_2024_pas_ij_pas_isup <- parcoursup_2024_agregation_10_2024_02_param %>% +parcoursup_2024_pas_ij_pas_isup <- parcoursup_campagne_2025_param %>% filter(!CODEFORMATIONACCUEIL %in% (parcoursup_2024_ij_renseigne %>% select(CODEFORMATIONACCUEIL) %>% bind_rows( @@ -786,7 +796,7 @@ parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij <- parcoursup_2024_pas_ij_pas_is parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>% select(-perimetre,-type_formation,-libelle_type_diplome) %>% left_join( - parcoursup_2024_agregation_10_2024_02_param %>% + parcoursup_campagne_2025_param %>% mutate( LIBFORMATION=case_when( str_sub(LIBFORMATION,1,3)%in%c("BTS","BUT")~LIBFORMATION, @@ -1114,21 +1124,21 @@ stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeu ) -stats_catalogue_parcoursup_2024_agregation_10_2024_02 <- NULL -stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire <- bind_rows( +stats_catalogue_parcoursup_campagne_2025 <- NULL +stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire <- bind_rows( stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire, stats_catalogue_isup$stats_catalogue_partenaire ) -stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire <- stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire %>% +stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire <- stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire %>% filter(`Type diplôme`!="Total") %>% arrange(`Niveau de formation`) %>% mutate(`Part du catalogue`=prop.table(`Nombre de formations`)) -stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire <- stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire %>% +stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire <- stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire %>% bind_rows( - stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire %>% + stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire %>% select_if(is.numeric) %>% summarise_all(sum,na.rm=T) %>% mutate( @@ -1187,19 +1197,19 @@ stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire -stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux <- bind_rows( +stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux <- bind_rows( stats_catalogue_pas_ij_pas_isup_et_ij$stats_catalogue_partenaire_voeux, stats_catalogue_isup$stats_catalogue_partenaire_voeux ) -stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux %>% +stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux %>% filter(`Type diplôme`!="Total") %>% arrange(`Niveau de formation`) %>% mutate(`Part du catalogue`=prop.table(`Demandes tous voeux`)) -stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux %>% +stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux %>% bind_rows( - stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux %>% + stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux %>% select_if(is.numeric) %>% summarise_all(sum,na.rm=T) %>% mutate( @@ -1257,21 +1267,21 @@ stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire correspondance_formation_certificateur <- read_excel(file.path(chemin_racine,"Groupe-002 - Parcoursup/003 - 4 - Prepa ParcourSup 2025/correspondance_formation_certificateur.xlsx")) -stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire <- stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire %>% +stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire <- stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire %>% left_join( correspondance_formation_certificateur, - by=c("Niveau de formation","Type diplôme") + by=c("Type diplôme","Filiere") ) %>% - select(Périmètre,`Niveau de formation`,`Type diplôme`,Filiere,Certificateur,`Scope 2024`,`Scope 2025`,everything()) %>% + select(Périmètre,`Niveau de formation`,`Type diplôme`,Filiere,Certificateur,`Scope campagne 2024`,`Scope campagne 2025`,everything()) %>% mutate( - `Scope 2024`=case_when( - !is.na(`Scope 2024`) & Filiere=="Sco."~`Scope 2024`, + `Scope campagne 2024`=case_when( + !is.na(`Scope campagne 2024`) & Filiere=="Sco."~`Scope campagne 2024`, Périmètre=="Total"~"Total", `Niveau de formation` %in% 4:5 & Filiere=="App."~"Oui", T~"Non" ), - `Scope 2025`=case_when( - !is.na(`Scope 2025`) & Filiere=="Sco."~`Scope 2025`, + `Scope campagne 2025`=case_when( + !is.na(`Scope campagne 2025`) & Filiere=="Sco."~`Scope campagne 2025`, Périmètre=="Total"~"Total", `Niveau de formation` %in% 4:5 & Filiere=="App."~"Oui", T~"Non" @@ -1280,21 +1290,21 @@ stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire ) -stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux %>% +stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux %>% left_join( correspondance_formation_certificateur, - by=c("Niveau de formation","Type diplôme") + by=c("Type diplôme","Filiere") ) %>% - select(Périmètre,`Niveau de formation`,`Type diplôme`,Filiere,Certificateur,`Scope 2024`,`Scope 2025`,everything()) %>% + select(Périmètre,`Niveau de formation`,`Type diplôme`,Filiere,Certificateur,`Scope campagne 2024`,`Scope campagne 2025`,everything()) %>% mutate( - `Scope 2024`=case_when( - !is.na(`Scope 2024`) & Filiere=="Sco."~`Scope 2024`, + `Scope campagne 2024`=case_when( + !is.na(`Scope campagne 2024`) & Filiere=="Sco."~`Scope campagne 2024`, Périmètre=="Total"~"Total", `Niveau de formation` %in% 4:5 & Filiere=="App."~"Oui", T~"Non" ), - `Scope 2025`=case_when( - !is.na(`Scope 2025`) & Filiere=="Sco."~`Scope 2025`, + `Scope campagne 2025`=case_when( + !is.na(`Scope campagne 2025`) & Filiere=="Sco."~`Scope campagne 2025`, Périmètre=="Total"~"Total", `Niveau de formation` %in% 4:5 & Filiere=="App."~"Oui", T~"Non" @@ -1304,10 +1314,10 @@ stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire -stats_catalogue_parcoursup_2024_agregation_10_2024_02_synthese_scope_2024 <- NULL -stats_catalogue_parcoursup_2024_agregation_10_2024_02_synthese_scope_2024$stats_catalogue_partenaire <- stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire %>% +stats_catalogue_parcoursup_campagne_2025_synthese <- NULL +stats_catalogue_parcoursup_campagne_2025_synthese$stats_catalogue_partenaire <- stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire %>% filter(Périmètre!="Total") %>% - group_by(`Scope 2024`,Filiere) %>% + group_by(`Scope campagne 2024`) %>% select_if(is.numeric) %>% summarise_all(sum,na.rm=T) %>% mutate( @@ -1327,8 +1337,8 @@ stats_catalogue_parcoursup_2024_agregation_10_2024_02_synthese_scope_2024$stats_ "Non couvert - Problème de qualité du code formation en entrée (%)"=`Non couvert - Problème de qualité du code formation en entrée (nb)`/`Nombre de formations`, "Non couvert - sans raison évidente (%)"=`Non couvert - sans raison évidente (nb)`/`Nombre de formations` ) %>% - select(c("Scope 2024", "Filiere", - "Nombre de formations", "Part du catalogue", + filter(`Scope campagne 2024`=="Oui") %>% + select(c("Nombre de formations", "Part du catalogue", "Couverture (nb)", "Couverture (%)", "Dont couvert par l'UAI lieu de formation (nb)", @@ -1352,21 +1362,77 @@ stats_catalogue_parcoursup_2024_agregation_10_2024_02_synthese_scope_2024$stats_ "Non couvert - sans raison évidente (nb)", "Non couvert - sans raison évidente (%)" - )) %>% + )) %>% + ungroup() %>% + mutate(Scope="Scope campagne 2024") %>% bind_rows( - stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire %>% - filter(Périmètre=="Total")%>% - select(-Périmètre,-`Niveau de formation`,-`Type diplôme`,-Certificateur,-`Scope 2025`) - )%>% - ungroup() + stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire %>% + filter(Périmètre!="Total") %>% + group_by(`Scope campagne 2025`) %>% + select_if(is.numeric) %>% + summarise_all(sum,na.rm=T) %>% + mutate( + "Couverture (%)"=`Couverture (nb)`/`Nombre de formations`, + + "Dont couvert par l'UAI lieu de formation (%)"=`Dont couvert par l'UAI lieu de formation (nb)`/`Nombre de formations`, + "Dont couvert par l'UAI formateur (%)"=`Dont couvert par l'UAI formateur (nb)`/`Nombre de formations`, + "Dont couvert par l'UAI Gestionnaire (%)"=`Dont couvert par l'UAI Gestionnaire (nb)`/`Nombre de formations`, + + "Non couvert (%)"=`Non couvert (nb)`/`Nombre de formations`, + "Dont sous le seuil de 20 élèves (%)"=`Dont sous le seuil de 20 élèves (nb)`/`Nombre de formations`, + "Non couvert - Nouvelles formations (%)"=`Non couvert - Nouvelles formations (nb)`/`Nombre de formations`, + "Non couvert - code certif inconnu (%)"=`Non couvert - code certif inconnu (nb)`/`Nombre de formations`, + "Non couvert - Autres ministères certificateurs (%)"=`Non couvert - Autres ministères certificateurs (nb)`/`Nombre de formations`, + "Non couvert - UAI inconnu (%)"=`Non couvert - UAI inconnu (nb)`/`Nombre de formations`, + "Territoires mal couverts (%)"=`Territoires mal couverts (nb)`/`Nombre de formations`, + "Non couvert - Problème de qualité du code formation en entrée (%)"=`Non couvert - Problème de qualité du code formation en entrée (nb)`/`Nombre de formations`, + "Non couvert - sans raison évidente (%)"=`Non couvert - sans raison évidente (nb)`/`Nombre de formations` + ) %>% + filter(`Scope campagne 2025`=="Oui") %>% + select(c("Nombre de formations", "Part du catalogue", + "Couverture (nb)", "Couverture (%)", + + "Dont couvert par l'UAI lieu de formation (nb)", + "Dont couvert par l'UAI lieu de formation (%)", + "Dont couvert par l'UAI formateur (nb)", + "Dont couvert par l'UAI formateur (%)", + "Dont couvert par l'UAI Gestionnaire (nb)", + "Dont couvert par l'UAI Gestionnaire (%)", + + "Non couvert (nb)", "Non couvert (%)", "Dont sous le seuil de 20 élèves (nb)", + "Dont sous le seuil de 20 élèves (%)", "Non couvert - Nouvelles formations (nb)", + "Non couvert - Nouvelles formations (%)", "Non couvert - code certif inconnu (nb)", + "Non couvert - code certif inconnu (%)", "Non couvert - Autres ministères certificateurs (nb)", + "Non couvert - Autres ministères certificateurs (%)", "Non couvert - UAI inconnu (nb)", + "Non couvert - UAI inconnu (%)", + + "Territoires mal couverts (nb)","Territoires mal couverts (%)", + + "Non couvert - Problème de qualité du code formation en entrée (nb)", + "Non couvert - Problème de qualité du code formation en entrée (%)", + + "Non couvert - sans raison évidente (nb)", + "Non couvert - sans raison évidente (%)" + )) %>% + ungroup() %>% + mutate(Scope="Scope campagne 2025") + ) %>% + bind_rows( + stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire %>% + filter(Périmètre=="Total") %>% + 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()) -stats_catalogue_parcoursup_2024_agregation_10_2024_02_synthese_scope_2024$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux %>% + +stats_catalogue_parcoursup_campagne_2025_synthese$stats_catalogue_partenaire_voeux <- stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux %>% filter(Périmètre!="Total") %>% - group_by(`Scope 2024`,Filiere) %>% + group_by(`Scope campagne 2024`) %>% select_if(is.numeric) %>% summarise_all(sum,na.rm=T) %>% - mutate( + mutate( "Couverture (%)"=`Couverture (nb)`/`Demandes tous voeux`, "Dont couvert par l'UAI lieu de formation (%)"=`Dont couvert par l'UAI lieu de formation (nb)`/`Demandes tous voeux`, @@ -1383,8 +1449,8 @@ stats_catalogue_parcoursup_2024_agregation_10_2024_02_synthese_scope_2024$stats_ "Non couvert - Problème de qualité du code formation en entrée (%)"=`Non couvert - Problème de qualité du code formation en entrée (nb)`/`Demandes tous voeux`, "Non couvert - sans raison évidente (%)"=`Non couvert - sans raison évidente (nb)`/`Demandes tous voeux` ) %>% - select(c("Scope 2024", "Filiere", - "Demandes tous voeux", "Part du catalogue", + filter(`Scope campagne 2024`=="Oui") %>% + select(c("Demandes tous voeux", "Part du catalogue", "Couverture (nb)", "Couverture (%)", "Dont couvert par l'UAI lieu de formation (nb)", @@ -1408,13 +1474,68 @@ stats_catalogue_parcoursup_2024_agregation_10_2024_02_synthese_scope_2024$stats_ "Non couvert - sans raison évidente (nb)", "Non couvert - sans raison évidente (%)" - )) %>% + )) %>% + ungroup() %>% + mutate(Scope="Scope campagne 2024") %>% bind_rows( - stats_catalogue_parcoursup_2024_agregation_10_2024_02$stats_catalogue_partenaire_voeux %>% - filter(Périmètre=="Total")%>% - select(-Périmètre,-`Niveau de formation`,-`Type diplôme`,-Certificateur,-`Scope 2025`) - )%>% - ungroup() + stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux %>% + filter(Périmètre!="Total") %>% + group_by(`Scope campagne 2025`) %>% + select_if(is.numeric) %>% + summarise_all(sum,na.rm=T) %>% + mutate( + "Couverture (%)"=`Couverture (nb)`/`Demandes tous voeux`, + + "Dont couvert par l'UAI lieu de formation (%)"=`Dont couvert par l'UAI lieu de formation (nb)`/`Demandes tous voeux`, + "Dont couvert par l'UAI formateur (%)"=`Dont couvert par l'UAI formateur (nb)`/`Demandes tous voeux`, + "Dont couvert par l'UAI Gestionnaire (%)"=`Dont couvert par l'UAI Gestionnaire (nb)`/`Demandes tous voeux`, + + "Non couvert (%)"=`Non couvert (nb)`/`Demandes tous voeux`, + "Dont sous le seuil de 20 élèves (%)"=`Dont sous le seuil de 20 élèves (nb)`/`Demandes tous voeux`, + "Non couvert - Nouvelles formations (%)"=`Non couvert - Nouvelles formations (nb)`/`Demandes tous voeux`, + "Non couvert - code certif inconnu (%)"=`Non couvert - code certif inconnu (nb)`/`Demandes tous voeux`, + "Non couvert - Autres ministères certificateurs (%)"=`Non couvert - Autres ministères certificateurs (nb)`/`Demandes tous voeux`, + "Non couvert - UAI inconnu (%)"=`Non couvert - UAI inconnu (nb)`/`Demandes tous voeux`, + "Territoires mal couverts (%)"=`Territoires mal couverts (nb)`/`Demandes tous voeux`, + "Non couvert - Problème de qualité du code formation en entrée (%)"=`Non couvert - Problème de qualité du code formation en entrée (nb)`/`Demandes tous voeux`, + "Non couvert - sans raison évidente (%)"=`Non couvert - sans raison évidente (nb)`/`Demandes tous voeux` + ) %>% + filter(`Scope campagne 2025`=="Oui") %>% + select(c("Demandes tous voeux", "Part du catalogue", + "Couverture (nb)", "Couverture (%)", + + "Dont couvert par l'UAI lieu de formation (nb)", + "Dont couvert par l'UAI lieu de formation (%)", + "Dont couvert par l'UAI formateur (nb)", + "Dont couvert par l'UAI formateur (%)", + "Dont couvert par l'UAI Gestionnaire (nb)", + "Dont couvert par l'UAI Gestionnaire (%)", + + "Non couvert (nb)", "Non couvert (%)", "Dont sous le seuil de 20 élèves (nb)", + "Dont sous le seuil de 20 élèves (%)", "Non couvert - Nouvelles formations (nb)", + "Non couvert - Nouvelles formations (%)", "Non couvert - code certif inconnu (nb)", + "Non couvert - code certif inconnu (%)", "Non couvert - Autres ministères certificateurs (nb)", + "Non couvert - Autres ministères certificateurs (%)", "Non couvert - UAI inconnu (nb)", + "Non couvert - UAI inconnu (%)", + + "Territoires mal couverts (nb)","Territoires mal couverts (%)", + + "Non couvert - Problème de qualité du code formation en entrée (nb)", + "Non couvert - Problème de qualité du code formation en entrée (%)", + + "Non couvert - sans raison évidente (nb)", + "Non couvert - sans raison évidente (%)" + )) %>% + ungroup() %>% + mutate(Scope="Scope campagne 2025") + ) %>% + bind_rows( + stats_catalogue_parcoursup_campagne_2025$stats_catalogue_partenaire_voeux %>% + filter(Périmètre=="Total") %>% + 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()) #Le sup semble couvert sur l'établissement gestionnaire: https://dossier.parcoursup.fr/Candidats/public/fiches/afficherFicheFormation?g_ta_cod=24415 # diff --git a/analyse/couverture_catalogue/stats_catalogue_generique.Rmd b/analyse/couverture_catalogue/stats_catalogue_generique.Rmd index 49c6df67..625eca62 100644 --- a/analyse/couverture_catalogue/stats_catalogue_generique.Rmd +++ b/analyse/couverture_catalogue/stats_catalogue_generique.Rmd @@ -17,8 +17,8 @@ params: catalogue_renseigne: NULL stats_catalogue: NULL afficher_stats_voeux: true - afficher_stats_voeux_synthese_2024: false - stats_catalogue_synthese_2024: NULL + afficher_stats_synthese: false + stats_catalogue_synthese: NULL --- @@ -49,21 +49,24 @@ if(!is.null(params$stats_catalogue)){ *Dernière mise à jour : `r format(Sys.time(), '%d/%m/%Y')`* +`r if(params$afficher_stats_synthese){"### Synthese"}` -### Nombre de formations - - +`r if(params$afficher_stats_synthese){"#### Nombre de formations"}` ```{r} -premiere_colonne_numerique <- which(map_dbl(stats_catalogue$stats_catalogue_partenaire,~is.numeric(.))==1)[1] +if(params$afficher_stats_synthese){ + + stats_catalogue_synthese <- params$stats_catalogue_synthese -dt_header <- stats_catalogue$stats_catalogue_partenaire %>% + premiere_colonne_numerique <- which(map_dbl(stats_catalogue_synthese$stats_catalogue_partenaire,~is.numeric(.))==1)[1] + + dt_header <- stats_catalogue_synthese$stats_catalogue_partenaire %>% mutate_all(replace_na,0) %>% mutate_at(vars(premiere_colonne_numerique:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% slice(-nrow(.)) -dt_footer <- stats_catalogue$stats_catalogue_partenaire %>% +dt_footer <- stats_catalogue_synthese$stats_catalogue_partenaire %>% mutate_all(replace_na,0) %>% mutate_at(vars(premiere_colonne_numerique:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% @@ -85,25 +88,30 @@ datatable(dt_header, fixedColumns = list(leftColumns = 3),fixedHeader = TRUE, buttons = c('copy', 'csv', 'excel') ),rownames = F) + +} + ``` -`r if(params$afficher_stats_voeux){"### Nombre de voeux émis"}` +`r if(params$afficher_stats_synthese & params$afficher_stats_voeux){"#### Nombre de voeux émis"}` ```{r} -if(params$afficher_stats_voeux){ +if(params$afficher_stats_synthese & params$afficher_stats_voeux){ - premiere_colonne_numerique <- which(map_dbl(stats_catalogue$stats_catalogue_partenaire_voeux,~is.numeric(.))==1)[1] + stats_catalogue_synthese <- params$stats_catalogue_synthese - dt_header <- stats_catalogue$stats_catalogue_partenaire_voeux %>% + premiere_colonne_numerique <- which(map_dbl(stats_catalogue_synthese$stats_catalogue_partenaire_voeux,~is.numeric(.))==1)[1] + + dt_header <- stats_catalogue_synthese$stats_catalogue_partenaire_voeux %>% mutate_all(replace_na,0) %>% mutate_at(vars(premiere_colonne_numerique:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% slice(-nrow(.)) -dt_footer <- stats_catalogue$stats_catalogue_partenaire_voeux %>% +dt_footer <- stats_catalogue_synthese$stats_catalogue_partenaire_voeux %>% mutate_all(replace_na,0) %>% mutate_at(vars(premiere_colonne_numerique:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% @@ -130,25 +138,22 @@ datatable(dt_header, ``` +### Détails par type de diplôme -`r if(params$afficher_stats_voeux_synthese_2024){"## Synthese sur le scope 2024"}` +#### Nombre de formations -`r if(params$afficher_stats_voeux_synthese_2024){"### Nombre de formations"}` -```{r} -if(params$afficher_stats_voeux_synthese_2024){ - - stats_catalogue_synthese_2024 <- params$stats_catalogue_synthese_2024 - premiere_colonne_numerique <- which(map_dbl(stats_catalogue_synthese_2024$stats_catalogue_partenaire,~is.numeric(.))==1)[1] +```{r} +premiere_colonne_numerique <- which(map_dbl(stats_catalogue$stats_catalogue_partenaire,~is.numeric(.))==1)[1] - dt_header <- stats_catalogue_synthese_2024$stats_catalogue_partenaire %>% +dt_header <- stats_catalogue$stats_catalogue_partenaire %>% mutate_all(replace_na,0) %>% mutate_at(vars(premiere_colonne_numerique:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% slice(-nrow(.)) -dt_footer <- stats_catalogue_synthese_2024$stats_catalogue_partenaire %>% +dt_footer <- stats_catalogue$stats_catalogue_partenaire %>% mutate_all(replace_na,0) %>% mutate_at(vars(premiere_colonne_numerique:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% @@ -170,30 +175,25 @@ datatable(dt_header, fixedColumns = list(leftColumns = 3),fixedHeader = TRUE, buttons = c('copy', 'csv', 'excel') ),rownames = F) - -} - ``` +`r if(params$afficher_stats_voeux){"#### Nombre de voeux émis"}` -`r if(params$afficher_stats_voeux_synthese_2024){"### Nombre de voeux émis"}` ```{r} -if(params$afficher_stats_voeux_synthese_2024){ +if(params$afficher_stats_voeux){ - stats_catalogue_synthese_2024 <- params$stats_catalogue_synthese_2024 - - premiere_colonne_numerique <- which(map_dbl(stats_catalogue_synthese_2024$stats_catalogue_partenaire_voeux,~is.numeric(.))==1)[1] + premiere_colonne_numerique <- which(map_dbl(stats_catalogue$stats_catalogue_partenaire_voeux,~is.numeric(.))==1)[1] - dt_header <- stats_catalogue_synthese_2024$stats_catalogue_partenaire_voeux %>% + dt_header <- stats_catalogue$stats_catalogue_partenaire_voeux %>% mutate_all(replace_na,0) %>% mutate_at(vars(premiere_colonne_numerique:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% slice(-nrow(.)) -dt_footer <- stats_catalogue_synthese_2024$stats_catalogue_partenaire_voeux %>% +dt_footer <- stats_catalogue$stats_catalogue_partenaire_voeux %>% mutate_all(replace_na,0) %>% mutate_at(vars(premiere_colonne_numerique:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% @@ -220,3 +220,4 @@ datatable(dt_header, ``` +