Docs couv (#282)

* maj base inserjeunes recette
mission-apprentissage · Oct 1, 2024 · afc4611 · afc4611
1 parent abd00b4
commit afc4611
Show file tree

Hide file tree

Showing 7 changed files with 3,239 additions and 116 deletions.
diff --git a/analyse/couverture_catalogue/README.html b/analyse/couverture_catalogue/README.html
@@ -366,8 +366,15 @@ <h3>Problème</h3>
 <div id="liens-vers-les-données-de-couverture" class="section level2">
 <h2>Liens vers les données de couverture</h2>
 <ul>
-<li><a href="base_inserjeunes.html">Base InserJeunes</a><br />
+<li>Base InserJeunes:
+<ul>
+<li><a href="base_inserjeunes/base_inserjeunes_production_2024_06.html">Base
+InserJeunes - Production</a><br />
+</li>
+<li><a href="base_inserjeunes/base_inserjeunes_recette_2024_10.html">Base
+InserJeunes - Recette</a><br />
 </li>
+</ul></li>
 <li>Affelnet:
 <ul>
 <li><a href="affelnet/affelnet_V20240531_Extraction_catalogue_SLA_2024.html">Catalogue

diff --git a/analyse/couverture_catalogue/README.md b/analyse/couverture_catalogue/README.md
@@ -8,13 +8,14 @@ Nous voulons savoir plus précisément ce qui est contenu dans notre base et la
 
 ## Liens vers les données de couverture
 
-- [Base InserJeunes](base_inserjeunes.html)  
-- Affelnet:  
-  - [Catalogue Affelnet 2024 V20240531_Extraction_catalogue_SLA_2024](affelnet/affelnet_V20240531_Extraction_catalogue_SLA_2024.html)  
-- 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 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)
-
+-   Base InserJeunes:
+    -   [Base InserJeunes - Production](base_inserjeunes/base_inserjeunes_production_2024_06.html)\
+    -   [Base InserJeunes - Recette](base_inserjeunes/base_inserjeunes_recette_2024_10.html)\
+-   Affelnet:
+    -   [Catalogue Affelnet 2024 V20240531_Extraction_catalogue_SLA_2024](affelnet/affelnet_V20240531_Extraction_catalogue_SLA_2024.html)\
+-   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 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/base_inserjeunes.Rmd b/analyse/couverture_catalogue/base_inserjeunes.Rmd
@@ -7,11 +7,19 @@ output:
       toc_float:
         toc_collapsed: true
 
+params: 
+    phase: "Production"
+    date_maj: format(Sys.time(), '%d/%m/%Y')
+    emplacement_data_meta_formationsStats_init: "Donnees IJ/metabase/production/FormationsStats.csv"
 ---
 
 ```{r setup, include=FALSE}
-knitr::opts_chunk$set(echo = FALSE,warning = FALSE,error = FALSE,message = FALSE)
-
+knitr::opts_chunk$set(
+	echo = FALSE,
+	error = FALSE,
+	message = FALSE,
+	warning = FALSE
+)
 # Chargement des librairies ----
 library(tidyverse)
 library(readxl)
@@ -29,13 +37,14 @@ n_niveau_formation_diplome <- read_csv2(file.path(chemin_racine_data,"BCN/n_nive
 
 ## Données IJ pour analyse de la couverture ----
 ### Etablissements ----
-data_meta_formationsStats_init <- read_csv(file.path(chemin_racine_data,"Donnees IJ/metabase/production/FormationsStats.csv"))
+data_meta_formationsStats_init <- read_csv(file.path(chemin_racine_data,params$emplacement_data_meta_formationsStats_init))
 
 data_meta_formationsStats_init <- data_meta_formationsStats_init %>%
   setNames(names(.) %>%
              str_to_lower() %>%
              str_replace_all(" ", "_"))
 
+
 data_meta_formationsStats_init <- data_meta_formationsStats_init %>%
   bind_cols(  str_split_fixed(
     data_meta_formationsStats_init$donnee_source,
@@ -47,10 +56,10 @@ data_meta_formationsStats_init <- data_meta_formationsStats_init %>%
       V1 = str_remove(V1, "\\{:code_certification "),
       V2 = str_remove(V2, " :type "),
       V2 = str_remove(V2, "\\}")
-                      ) %>%  
+    ) %>%  
     setNames(c(
       "code_certification_source", "type_source"
-    ))) %>%
+    ))) %>% 
   bind_cols(
     str_split_fixed(
       data_meta_formationsStats_init$diplome,
@@ -67,7 +76,7 @@ data_meta_formationsStats_init <- data_meta_formationsStats_init %>%
       setNames(c(
         "niveau_diplome", "libelle_type_diplome"
       ))
-  ) %>%
+  ) %>% 
   mutate(
     "Couverture Taux En Emploi 6 Mois" = ifelse(is.na(taux_en_emploi_6_mois), F, T),
     "Couverture Taux Autres 6 Mois" = ifelse(is.na(taux_autres_6_mois), F, T),
@@ -109,142 +118,87 @@ data_meta_formationsStats_init <- data_meta_formationsStats_init %>%
   left_join(n_formation_diplome %>%
               select(FORMATION_DIPLOME,NIVEAU_FORMATION_DIPLOME),
             by=c("code_formation_diplome" ="FORMATION_DIPLOME")
-            ) %>%
+  ) %>%
   left_join(
     n_niveau_formation_diplome %>%
       select(NIVEAU_FORMATION_DIPLOME,NIVEAU_QUALIFICATION_RNCP),
     by="NIVEAU_FORMATION_DIPLOME"
   ) %>%
-  mutate(id_unique=1:n())
-
-
-formation_catalogue_apprentissage <- read_csv2(file.path(chemin_racine_data,"RCO/formation_2024-01-11T11 35 57.905Z.csv"))
-
-formation_catalogue_apprentissage <- formation_catalogue_apprentissage %>%
-  mutate_all(str_remove_all,"=\"") %>%
-  mutate_all(str_remove_all,"\"")
-
+  mutate(id_unique=1:n()) 
 
-formation_catalogue_apprentissage_long <- formation_catalogue_apprentissage %>%
-  # filter(`Statut Affelnet`!="non publiable en l'etat") %>%
-  distinct(`UAI Responsable`,`UAI formation`,`UAI formateur`,`Code du diplome ou du titre suivant la nomenclature de l'Education nationale (CodeEN)`,`Clé ministere educatif`) %>%
-  pivot_longer(cols = contains("Uai"),names_to = "Type UAI",values_to = "UAI",values_drop_na = TRUE)
-
-
-formation_catalogue_apprentissage_long_comp <- formation_catalogue_apprentissage_long %>%
-  left_join(
-    data_meta_formationsStats_init %>%
-      filter(
-        filiere == "apprentissage",
-        millesime == "2022"
-      ),
-    by=c("UAI"="uai","Code du diplome ou du titre suivant la nomenclature de l'Education nationale (CodeEN)"="code_certification")
-  ) %>%
-  filter(!is.na(type_source))
-
-formation_catalogue_apprentissage_long_comp <- formation_catalogue_apprentissage_long_comp %>%
-  mutate(`Type UAI`=factor(`Type UAI`,levels=c("UAI formation","UAI formateur","UAI Responsable"))) %>%
-  group_by(UAI,`Code du diplome ou du titre suivant la nomenclature de l'Education nationale (CodeEN)`) %>%
-  filter(as.numeric(`Type UAI`)==min(as.numeric(`Type UAI`))) %>%
-  ungroup() %>%
-  rename(code_certification=`Code du diplome ou du titre suivant la nomenclature de l'Education nationale (CodeEN)`)
-
-
-ensemble_data_formationsStats <-  formation_catalogue_apprentissage_long_comp %>%
-  bind_rows(
-    data_meta_formationsStats_init %>%
-      filter(
-        filiere == "pro",
-        millesime == "2022"
-      ) %>%
-      rename(UAI=uai)
-  )
-
-### Insersup ----
-fr_esr_insersup <- read_excel(file.path(chemin_racine_data,"insersup/fr-esr-insersup.xlsx"))
-
-# Base InserJeunes ----
 
 stats_InserJeunes <- data_meta_formationsStats_init %>% 
-  filter(type_source%in%c("self","ancienne"),millesime==2022) %>%
+  filter(type_source%in%c("self","ancienne"),millesime==2022) %>% 
   mutate(
     type_formation=case_when(
-      as.numeric(NIVEAU_QUALIFICATION_RNCP)%in%0:4 ~ "Avant le bac",
-      as.numeric(NIVEAU_QUALIFICATION_RNCP)%in%5:8 ~ "Après le bac",
-      
       niveau_diplome%in%0:4 ~ "Avant le bac",
       niveau_diplome%in%5:8 ~ "Après le bac"
-      
     ),
     type_formation=factor(type_formation,levels=c("Avant le bac","Après le bac")),
     libelle_type_diplome=case_when(
       str_detect(libelle_type_diplome,"DIP3-CNAM")~"Titre professionnel homologué",
       str_detect(libelle_type_diplome,"TH3")~"Titre professionnel homologué",
-    str_detect(libelle_type_diplome,"TH4")~"Titre professionnel homologué",
-    str_detect(libelle_type_diplome,"TH5")~"Titre professionnel homologué",
-    str_detect(libelle_type_diplome,"DIV-2")~"Autres diplômes",
-    str_detect(libelle_type_diplome,"DIV-3")~"Autres diplômes",
-    str_detect(libelle_type_diplome,"DIV-4")~"Autres diplômes",
-    str_detect(libelle_type_diplome,"DIV-5")~"Autres diplômes",
-    str_detect(libelle_type_diplome,"BPA")~"BPA",
-    str_detect(libelle_type_diplome,"CSA")~"CSA",
-    str_detect(libelle_type_diplome,"CS")~"CS",
-    str_detect(libelle_type_diplome,"ASSIMI.BTS")~"BTS",
-    
-    T~libelle_type_diplome
-  ),
-    filiere=ifelse(filiere=="pro","Scolaire",filiere)
+      str_detect(libelle_type_diplome,"TH4")~"Titre professionnel homologué",
+      str_detect(libelle_type_diplome,"TH5")~"Titre professionnel homologué",
+      # str_detect(libelle_type_diplome,"DIV-2")~"Autres diplômes",
+      # str_detect(libelle_type_diplome,"DIV-3")~"Autres diplômes",
+      # str_detect(libelle_type_diplome,"DIV-4")~"Autres diplômes",
+      # str_detect(libelle_type_diplome,"DIV-5")~"Autres diplômes",
+      str_detect(libelle_type_diplome,"BPA")~"BPA",
+      str_detect(libelle_type_diplome,"CSA")~"CSA",
+      str_detect(libelle_type_diplome,"CS")~"CS",
+      str_detect(libelle_type_diplome,"ASSIMI.BTS")~"BTS",
+      libelle_type_diplome=="LIC LMD"~"Licence générale",
+      libelle_type_diplome=="LIC PRO"~"Licence professionnelle",
+      libelle_type_diplome=="MAST ENS"~"Master MEEF",
+      libelle_type_diplome=="MAST LMD"~"Master LMD",
+      T~libelle_type_diplome
+    ),
+    filiere=case_when(
+      filiere=="pro"~"Scolaire",
+      filiere=="superieur"~"Supérieur",
+      filiere=="apprentissage"~"Apprentissage"
+      )
   )  %>% 
-  filter(libelle_type_diplome!="Autres diplômes") %>% 
-  group_by(type_formation,libelle_type_diplome,filiere) %>% 
-  summarise(presence=n())  %>% 
+  # filter(libelle_type_diplome!="Autres diplômes") %>% 
+  group_by(niveau_diplome,type_formation,libelle_type_diplome,filiere) %>% 
+  summarise(presence=n()) %>% 
   mutate(filiere=str_to_title(filiere)) %>% 
   pivot_wider(names_from = filiere,values_from = presence) %>% 
   mutate_all(replace_na,0) %>%   
   rename(
+    "Niveau diplôme"=niveau_diplome,
     "Avant/après bac"=type_formation,
     "Type diplôme"=libelle_type_diplome
   ) %>% 
   ungroup() %>% 
   mutate(
-    Volume=Scolaire + Apprentissage,
+    Volume=Scolaire + Apprentissage + `Supérieur`,
     "Part base"=prop.table(Volume),
     Base="InserJeunes"
   ) 
 
 
-# Base InserSup ----
-
-stats_Insersup <- fr_esr_insersup %>% 
-  filter(str_detect(`Année(s) d'obtention du diplôme prise(s) en compte`,"2021"),`Code UAI de l'établissement`!="UNIV",`Code du diplôme SISE`!="all") %>% 
-  distinct(type_diplome,`Code du diplôme SISE`,`Code UAI de l'établissement`) %>% 
-  mutate(`Avant/après bac`="Après le bac",
-         type_diplome=case_when(
-           type_diplome=="licence_pro"~"Licence pro",
-           type_diplome=="master_LMD"~"Master LMD",
-           type_diplome=="master_MEEF"~"Master MEEF"
-         )
-         ) %>% 
-  rename(`Type diplôme`=type_diplome) %>% 
-  group_by(`Type diplôme`,`Avant/après bac`) %>% 
-  summarise(
-    Volume=n()
-  ) %>% 
-  ungroup() %>% 
-  mutate(
-    "Part base"=prop.table(Volume),
-    Base="InserSup"
-  )
+```
 
 
+## Base InserJeunes - `r params$phase`
 
-```
+*Dernière mise à jour : `r params$date_maj`* 
 
-## Base InserJeunes
 
 ```{r}
 stats_InserJeunes %>% 
-  bind_rows(stats_Insersup)  %>% 
+  bind_rows(
+    stats_InserJeunes %>% 
+  summarise_if(is.numeric,sum) %>% 
+  mutate(
+    `Niveau diplôme`="Total",
+    `Avant/après bac`="Total",
+    `Type diplôme`="Total",
+    Base="Total"
+  ) 
+  ) %>% 
   mutate(`Part base`=scales::percent(`Part base`,accuracy=0.1)) %>%
   kbl(format.args = list(big.mark = " ", decimal.mark = ",")) %>%
   kable_paper()

diff --git a/...ouverture_catalogue/base_inserjeunes.html → .../base_inserjeunes_production_2024_06.html b/...ouverture_catalogue/base_inserjeunes.html → .../base_inserjeunes_production_2024_06.html
@@ -1707,8 +1707,9 @@ <h3 class="subtitle">Formations couvertes par la base InserJeunes</h3>
 </div>
 
 
-<div id="base-inserjeunes" class="section level2">
-<h2>Base InserJeunes</h2>
+<div id="base-inserjeunes---production" class="section level2">
+<h2>Base InserJeunes - Production</h2>
+<p><em>Dernière mise à jour : 27/06/2024</em></p>
 <table class=" lightable-paper" style="font-family: &quot;Arial Narrow&quot;, arial, helvetica, sans-serif; margin-left: auto; margin-right: auto;">
 <thead>
 <tr>
@@ -2311,6 +2312,29 @@ <h2>Base InserJeunes</h2>
 InserSup
 </td>
 </tr>
+<tr>
+<td style="text-align:left;">
+Total
+</td>
+<td style="text-align:left;">
+Total
+</td>
+<td style="text-align:right;">
+NA
+</td>
+<td style="text-align:right;">
+NA
+</td>
+<td style="text-align:right;">
+68 195
+</td>
+<td style="text-align:left;">
+200.0%
+</td>
+<td style="text-align:left;">
+Total
+</td>
+</tr>
 </tbody>
 </table>
 </div>

diff --git a/analyse/couverture_catalogue/base_inserjeunes/base_inserjeunes_recette_2024_10.html b/analyse/couverture_catalogue/base_inserjeunes/base_inserjeunes_recette_2024_10.html