diff --git a/analyse/couverture_catalogue/generer_rapports.R b/analyse/couverture_catalogue/generer_rapports.R index 1be3b0ac..f329b23b 100644 --- a/analyse/couverture_catalogue/generer_rapports.R +++ b/analyse/couverture_catalogue/generer_rapports.R @@ -391,6 +391,22 @@ rmarkdown::render("stats_catalogue_generique.Rmd", parcoursup_2024_10 <- read_excel(file.path(chemin_racine_data,"parcoursup/2024/listeFormationsInserJeunes_finSession2024_01_10_2024.xls")) +parcoursup_nomenclature_de_ref_renseigne <- read_csv2("../../../../Groupe-002 - Parcoursup/003 - 4 - Prepa ParcourSup 2025/parcoursup_nomenclature_de_ref_renseigne.csv") + +parcoursup_2024_10<- parcoursup_2024_10 %>% + left_join( + parcoursup_nomenclature_de_ref_renseigne %>% + filter(!nomenclature_de_ref=="Aucune") %>% + select(-nomenclature_de_ref,-id) %>% + distinct() %>% + mutate_all(as.character), + by=c("CODECFD","LISTE_RNCP","LISTE_IDEO","CODESISE") + ) %>% + mutate( + lib_type_formation=ifelse(is.na(lib_type_formation),LIBFORMATION,lib_type_formation), + niveau_formation=ifelse(is.na(niveau_formation),"Niveau inconnu",niveau_formation) + ) + ### Parcoursup dans InserJeunes ---- parcoursup_2024_ij <- parcoursup_2024_10 %>% @@ -459,6 +475,29 @@ parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij <- parcoursup_2024_pas_ij_pas_is mutate(type="ij") ) +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 %>% + mutate(LIBFORMATION=str_split_fixed(LIBFORMATION," - ",2)[,1], + LIBFORMATION=str_to_upper(LIBFORMATION)) %>% + select(CODEFORMATIONACCUEIL,LIBFORMATION,niveau_formation,qualite_code) %>% + rename(lib_type_formation=LIBFORMATION) %>% + mutate( + perimetre=case_when( + niveau_formation %in% c(0:5)~"InserSco", + niveau_formation %in% c(6:8)~"InserSup", + T~"Inconnu" + ) + ) %>% + rename(type_formation=niveau_formation, + libelle_type_diplome=lib_type_formation) , + by="CODEFORMATIONACCUEIL" + ) %>% + 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) + ) + ### stats_catalogue ---- stats_catalogue_pas_ij_pas_isup_et_ij <- expo_mef_stats_catalogue_partenaire( @@ -479,7 +518,7 @@ stats_catalogue_isup$stats_catalogue_partenaire <- listeFormationsInserJeunes_fi group_by(`Type diplôme`,Filiere) %>% summarise(`Nombre de formations`=n()) %>% mutate( - `Niveau de formation`="06", + `Niveau de formation`="6", Périmètre = "InserSup" ) %>% left_join( @@ -540,7 +579,7 @@ stats_catalogue_isup$stats_catalogue_partenaire_voeux <- listeFormationsInserJeu group_by(`Type diplôme`,Filiere) %>% summarise(`Demandes tous voeux`=sum(NBDEDEMANDES)) %>% mutate( - `Niveau de formation`="06", + `Niveau de formation`="6", Périmètre = "InserSup" ) %>% left_join( @@ -665,7 +704,7 @@ rmarkdown::render("stats_catalogue_generique.Rmd", type_source = NULL, type_voeux= "parcoursup", nom_catalogue= "Parcoursup", - afficher_stats_voeux=FALSE, + 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" diff --git a/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html b/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html index 4b1d63b3..7b0b0e34 100644 --- a/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html +++ b/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html @@ -3996,11 +3996,16 @@

Formations couvertes par la base InserJeunes

Parcoursup

Parcoursup - Octobre 2024: Lien vers le catalogue

-

Dernière mise à jour : 29/10/2024

+

Dernière mise à jour : 30/10/2024

Nombre de formations

-
- +
+ +
+
+

Nombre de voeux émis

+
+
diff --git a/analyse/couverture_catalogue/stats_catalogue_generique.Rmd b/analyse/couverture_catalogue/stats_catalogue_generique.Rmd index 43e74ccf..30d3ebd3 100644 --- a/analyse/couverture_catalogue/stats_catalogue_generique.Rmd +++ b/analyse/couverture_catalogue/stats_catalogue_generique.Rmd @@ -55,7 +55,7 @@ if(!is.null(params$stats_catalogue)){ dt_header <- stats_catalogue$stats_catalogue_partenaire %>% mutate_all(replace_na,0) %>% - mutate_at(vars(4:length(.)),as.numeric) %>% + mutate_at(vars(5:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% slice(-nrow(.)) @@ -92,7 +92,7 @@ datatable(dt_header, if(params$afficher_stats_voeux){ dt_header <- stats_catalogue$stats_catalogue_partenaire_voeux %>% mutate_all(replace_na,0) %>% - mutate_at(vars(4:length(.)),as.numeric) %>% + mutate_at(vars(5:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% slice(-nrow(.))