Skip to content

Commit

Permalink
Docs couv (#307)
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 8abdb32 commit 8ad75a1
Show file tree
Hide file tree
Showing 5 changed files with 601 additions and 36 deletions.
30 changes: 17 additions & 13 deletions analyse/couverture_catalogue/functions/expo_mef_catalogue_partenaire.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -991,19 +991,23 @@ expo_mef_stats_catalogue_partenaire <- function(catalogue_partenaire_renseigne,t
)
}
}else if(type_voeux=="parcoursup"){
catalogue_partenaire_renseigne_voeux <- catalogue_partenaire_renseigne %>%
filter(is.na(CODEFORMATIONACCUEIL)) %>%
mutate(!!sym(var_effectifs):=as.numeric(NA)) %>%
bind_rows(
catalogue_partenaire_renseigne %>%
filter(!is.na(CODEFORMATIONACCUEIL))%>%
left_join(
voeux_parcoursup_affelnet_simpli_2023 %>%
select(c(CODEFORMATIONACCUEIL,all_of(var_effectifs)))%>%
distinct(),
by="CODEFORMATIONACCUEIL"
)
)
if("Demandes tous voeux" %in% names(catalogue_partenaire_renseigne)){
catalogue_partenaire_renseigne_voeux <- catalogue_partenaire_renseigne
}else{
catalogue_partenaire_renseigne_voeux <- catalogue_partenaire_renseigne %>%
filter(is.na(CODEFORMATIONACCUEIL)) %>%
mutate(!!sym(var_effectifs):=as.numeric(NA)) %>%
bind_rows(
catalogue_partenaire_renseigne %>%
filter(!is.na(CODEFORMATIONACCUEIL))%>%
left_join(
voeux_parcoursup_affelnet_simpli_2023 %>%
select(c(CODEFORMATIONACCUEIL,all_of(var_effectifs)))%>%
distinct(),
by="CODEFORMATIONACCUEIL"
)
)
}
}


Expand Down
226 changes: 226 additions & 0 deletions analyse/couverture_catalogue/generer_rapports.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -444,6 +444,16 @@ parcoursup_2024_02 %>%
filter(is.na(presence_UAI_ACCE)) %>%
pull(CODEFORMATIONACCUEIL)
)) %>%
<<<<<<< HEAD
left_join(
correspondance_formation_certificateur %>%
mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")),
by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere")
) %>%
filter(`Scope campagne 2024`=="Oui") %>%
group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>%
summarise(nb=n())
=======
select(UAI_COMPOSANTE,LIB_COMPOSANTE) %>%
setNames(c("uai","lib_uai")) %>%
bind_rows(
Expand All @@ -459,11 +469,43 @@ parcoursup_2024_02 %>%
) %>%
distinct() %>%
View()
>>>>>>> main


parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL%in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
<<<<<<< HEAD
filter(Couverture=="Non couvert") %>%
filter(is.na(presence_UAI_ACCE)) %>%
pull(CODEFORMATIONACCUEIL)
)) %>%
left_join(
correspondance_formation_certificateur %>%
mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")),
by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere")
) %>%
filter(`Scope campagne 2025`=="Oui") %>%
group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>%
summarise(nb=n())

#Nouvelle formation
parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL%in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Couverture=="Non couvert") %>%
filter(Nouvelle_formation) %>%
pull(CODEFORMATIONACCUEIL)
)) %>%
left_join(
correspondance_formation_certificateur %>%
mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")),
by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere")
) %>%
filter(`Scope campagne 2024`=="Oui") %>%
group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>%
summarise(nb=n())
=======
filter(certificateur_valideur_simpli=="Autres ministères certificateurs") %>%
filter(Couverture=="Non couvert") %>%
pull(CODEFORMATIONACCUEIL)
Expand All @@ -476,6 +518,7 @@ parcoursup_2024_02 %>%
View()


>>>>>>> main

parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL%in% (
Expand All @@ -492,6 +535,27 @@ parcoursup_2024_02 %>%
View()


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


parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL%in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Couverture=="Non couvert") %>%
filter(type_territoire=="Territoire mal couvert") %>%
pull(CODEFORMATIONACCUEIL)
)) %>%
left_join(
correspondance_formation_certificateur %>%
mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")),
by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere")
) %>%
filter(`Scope campagne 2024`=="Oui") %>%
group_by(LIBFORMATION,APPRENTISSAGEOUSCOLAIRE) %>%
summarise(nb=n())
=======
>>>>>>> main


parcoursup_2024_02 %>%
Expand All @@ -508,6 +572,167 @@ parcoursup_2024_02 %>%
arrange(desc(part)) %>%
View()

<<<<<<< HEAD
### Non couvert sans bonnes raison -----
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_2024_02 %>%
filter(CODEFORMATIONACCUEIL %in% (
parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Couverture=="Non couvert") %>%
filter(Nouvelle_formation=="FALSE" | is.na(Nouvelle_formation)) %>%
pull(CODEFORMATIONACCUEIL)
)) %>%
left_join(
correspondance_formation_certificateur %>%
mutate(Filiere=ifelse(Filiere=="App.","Apprentissage","Scolaire")),
by=c("LIBFORMATION"="Type diplôme","APPRENTISSAGEOUSCOLAIRE"="Filiere")
)


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

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

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

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

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

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

#### Probleme code certif ----

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

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


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

set.seed(42)

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

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

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

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

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

parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij %>%
filter(Couverture=="Non couvert") %>%
Expand All @@ -518,6 +743,7 @@ parcoursup_2024_renseigne_pas_ij_pas_isup_et_ij_scope_non_couvert <- parcoursup_


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

## Parcoursup campagne 2025----

Expand Down
Loading

0 comments on commit 8ad75a1

Please sign in to comment.