Skip to content

Commit

Permalink
Docs couv (#308)
Browse files Browse the repository at this point in the history 
suppression des  ministeres
  • Loading branch information
@arnaudmilet
arnaudmilet authored Nov 14, 2024
1 parent 8ad75a1 commit 7a5baea
Show file tree
Hide file tree
Showing 2 changed files with 152 additions and 69 deletions.
203 changes: 148 additions & 55 deletions analyse/couverture_catalogue/generer_rapports.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -444,7 +444,6 @@ parcoursup_2024_02 %>%
filter(is.na(presence_UAI_ACCE)) %>%
pull(CODEFORMATIONACCUEIL)
)) %>%
<<<<<<< HEAD
left_join(
correspondance_formation_certificateur %>%
mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")),
Expand All @@ -453,29 +452,11 @@ parcoursup_2024_02 %>%
filter(`Scope campagne 2024`=="Oui") %>%
group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>%
summarise(nb=n())
=======
select(UAI_COMPOSANTE,LIB_COMPOSANTE) %>%
setNames(c("uai","lib_uai")) %>%
bind_rows(
parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL%in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Couverture=="Non couvert") %>%
filter(is.na(presence_UAI_ACCE)) %>%
pull(CODEFORMATIONACCUEIL)
)) %>%
select(UAI_AFF,LIB_AFF) %>%
setNames(c("uai","lib_uai"))
) %>%
distinct() %>%
View()
>>>>>>> main


parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL%in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
<<<<<<< HEAD
filter(Couverture=="Non couvert") %>%
filter(is.na(presence_UAI_ACCE)) %>%
pull(CODEFORMATIONACCUEIL)
Expand Down Expand Up @@ -505,37 +486,7 @@ parcoursup_2024_02 %>%
filter(`Scope campagne 2024`=="Oui") %>%
group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>%
summarise(nb=n())
=======
filter(certificateur_valideur_simpli=="Autres ministères certificateurs") %>%
filter(Couverture=="Non couvert") %>%
pull(CODEFORMATIONACCUEIL)
)) %>%
group_by(CODEFORMATION,LIBFORMATION,CODESPÉCIALITÉ,LIBSPÉCIALITÉ) %>%
summarise(nb=n()) %>%
ungroup() %>%
mutate(part=prop.table(nb)) %>%
arrange(desc(part)) %>%
View()


>>>>>>> main

parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL%in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Nouvelle_formation) %>%
filter(Couverture=="Non couvert") %>%
pull(CODEFORMATIONACCUEIL)
)) %>%
group_by(CODEFORMATION,LIBFORMATION,CODESPÉCIALITÉ,LIBSPÉCIALITÉ) %>%
summarise(nb=n()) %>%
ungroup() %>%
mutate(part=prop.table(nb)) %>%
arrange(desc(part)) %>%
View()


<<<<<<< HEAD
#Territoire mal couvert


Expand All @@ -554,9 +505,6 @@ parcoursup_2024_02 %>%
filter(`Scope campagne 2024`=="Oui") %>%
group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>%
summarise(nb=n())
=======
>>>>>>> main


parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL%in% (
Expand All @@ -569,10 +517,9 @@ parcoursup_2024_02 %>%
summarise(nb=n()) %>%
ungroup() %>%
mutate(part=prop.table(nb)) %>%
arrange(desc(part)) %>%
View()
arrange(desc(part)) %


<<<<<<< HEAD
### Non couvert sans bonnes raison -----
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL %in% (
Expand All @@ -588,6 +535,7 @@ parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_
)



# write_csv2(parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert,file = file.path(chemin_racine,"Groupe-002 - Parcoursup/003 - 4 - Prepa ParcourSup 2025/parcoursup_2024_scope_non_couvert_sans_raison_a_transmettre.csv"))

#### Problème UAI ----
Expand Down Expand Up @@ -740,11 +688,156 @@ parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_
select(UAI,MEFSTAT11,Filiere,CODEFORMATIONACCUEIL,FORMATION_DIPLOME,data,LIBELLE_COURT) %>%
unnest() %>%
select(UAI,MEFSTAT11,LIBELLE_COURT,LIBELLE_LONG_200,Filiere,CODEFORMATIONACCUEIL,FORMATION_DIPLOME,contains("nb"),contains("taux"))
>>>>>>> main


# write_csv2(parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert,file = file.path(chemin_racine,"Groupe-002 - Parcoursup/003 - 4 - Prepa ParcourSup 2025/parcoursup_2024_scope_non_couvert_sans_raison_a_transmettre.csv"))
>>>>>>> main

#### Problème UAI ----

exemple_pb_uai <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert %>%
filter(CODEFORMATIONACCUEIL %in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Couverture=="Non couvert") %>%
filter(Nouvelle_formation=="FALSE" | is.na(Nouvelle_formation)) %>%
filter(is.na(presence_UAI_ACCE)) %>%
pull(CODEFORMATIONACCUEIL)

)) %>%
filter(`Scope campagne 2025`=="Oui") %>%
group_by(LIBFORMATION ,APPRENTISSAGEOUSCOLAIRE ) %>%
nest() %>%
mutate(data=map(data,function(df){
df %>%
arrange(desc(NBDEDEMANDES)) %>%
slice(1)
})
) %>%
unnest() %>%
select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE)

#### Probleme qualité du code SISE ----

exemple_pb_qualite_sise <- listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>%
filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>%
mutate(
`Type diplôme`=case_when(
str_sub(LIBFORMATION,1,2)=="LP"~"Licence professionnelle",
str_sub(LIBFORMATION,1,7)=="Licence"~"Licence générale"
),
Filiere=ifelse(APPRENTISSAGEOUSCOLAIRE=="Scolaire","Sco.","App.")
) %>%
filter(`Couverture avec code SISE retenu`=="Non couvert") %>%
filter(!is.na(CODESISE)) %>%
slice(1) %>%
bind_rows(
listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>%
filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>%
mutate(
`Type diplôme`=case_when(
str_sub(LIBFORMATION,1,2)=="LP"~"Licence professionnelle",
str_sub(LIBFORMATION,1,7)=="Licence"~"Licence générale"
),
Filiere=ifelse(APPRENTISSAGEOUSCOLAIRE=="Scolaire","Sco.","App.")
) %>%
filter(`Couverture avec code SISE retenu`=="Non couvert") %>%
filter(is.na(CODESISE),!is.na(`Code SISE retenu`)) %>%
slice(1)
) %>%
bind_rows(
listeFormationsInserJeunes_finSession2024_01_10_2024_a_transmettre_PS %>%
filter(FORMATION_PARAMÉTRÉE=="Paramétrée") %>%
mutate(
`Type diplôme`=case_when(
str_sub(LIBFORMATION,1,2)=="LP"~"Licence professionnelle",
str_sub(LIBFORMATION,1,7)=="Licence"~"Licence générale"
),
Filiere=ifelse(APPRENTISSAGEOUSCOLAIRE=="Scolaire","Sco.","App.")
) %>%
filter(`Couverture avec code SISE retenu`=="Couvert avec plusieurs SISE") %>%
slice(1)
) %>%
select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE)

#### Probleme code certif ----

exemple_pb_code_certif <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert %>%
filter(CODEFORMATIONACCUEIL %in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Couverture=="Non couvert") %>%
filter(presence_Code_Scolarité_certif_info) %>%
pull(CODEFORMATIONACCUEIL)

)) %>%
filter(!UAI_COMPOSANTE %in% exemple_pb_uai$UAI_COMPOSANTE) %>%
filter(`Scope campagne 2025`=="Oui") %>%
group_by(LIBFORMATION ,APPRENTISSAGEOUSCOLAIRE ) %>%
nest() %>%
mutate(data=map(data,function(df){
df %>%
arrange(desc(NBDEDEMANDES)) %>%
slice(1)
})
) %>%
unnest() %>%
select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE)


#### Problème territoire ----

set.seed(42)

exemple_pb_territoire <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert %>%
filter(CODEFORMATIONACCUEIL %in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Couverture=="Non couvert") %>%
filter(certificateur_valideur_simpli!="Autres ministères certificateurs") %>%
filter(type_territoire=="Territoire mal couvert") %>%
pull(CODEFORMATIONACCUEIL)

)) %>%
filter(!UAI_COMPOSANTE %in% c(exemple_pb_uai$UAI_COMPOSANTE,exemple_pb_code_certif$UAI_COMPOSANTE)) %>%
filter(`Scope campagne 2025`=="Oui") %>%
filter(APPRENTISSAGEOUSCOLAIRE=="Scolaire") %>%
group_by(LIBFORMATION ,APPRENTISSAGEOUSCOLAIRE,ACADÉMIE ) %>%
nest() %>%
mutate(data=map(data,function(df){
df %>%
arrange(desc(NBDEDEMANDES)) %>%
slice(1)
})
) %>%
unnest() %>%
select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE) %>%
ungroup() %>%
sample_n(3)

#### Problème sans raison évidente ----

exemple_pb_sans_raison_evidente <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert %>%
filter(CODEFORMATIONACCUEIL %in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Couverture=="Non couvert") %>%
filter(scope) %>%
pull(CODEFORMATIONACCUEIL)

)) %>%
filter(!UAI_COMPOSANTE %in% c(exemple_pb_uai$UAI_COMPOSANTE,exemple_pb_code_certif$UAI_COMPOSANTE)) %>%
filter(`Scope campagne 2024`=="Oui") %>%
group_by(LIBFORMATION ,APPRENTISSAGEOUSCOLAIRE ) %>%
nest() %>%
mutate(data=map(data,function(df){
df %>%
arrange(desc(NBDEDEMANDES)) %>%
slice(1)
})
) %>%
unnest() %>%
select(LIBFORMATION,,LIBSPÉCIALITÉ,APPRENTISSAGEOUSCOLAIRE,contains("UAI"),LIB_COMPOSANTE, LIB_AFF,ACADÉMIE) %>%
ungroup()


## Parcoursup campagne 2025----

source("parcoursup/script_prepa_ps_2025_campagne_2025.R")
Expand Down
Loading

0 comments on commit 7a5baea

Please sign in to comment.