Skip to content

Commit

Permalink
Docs couv (#300)
Browse files Browse the repository at this point in the history
PS campagne 2024 et 2025
arnaudmilet authored and K4ST0R committed Dec 9, 2024
1 parent 0ec52e3 commit 9c3dd7d
Showing 9 changed files with 889 additions and 4,446 deletions.
5 changes: 2 additions & 3 deletions analyse/couverture_catalogue/README.md
Original file line number Diff line number Diff line change
@@ -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)
Original file line number Diff line number Diff line change
@@ -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"
)
)

}


442 changes: 232 additions & 210 deletions analyse/couverture_catalogue/generer_rapports.R

Large diffs are not rendered by default.

4,089 changes: 0 additions & 4,089 deletions analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html

This file was deleted.

Large diffs are not rendered by default.

Large diffs are not rendered by default.

Large diffs are not rendered by default.

Large diffs are not rendered by default.

65 changes: 33 additions & 32 deletions analyse/couverture_catalogue/stats_catalogue_generique.Rmd
Original file line number Diff line number Diff line change
@@ -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,
```


0 comments on commit 9c3dd7d

Please sign in to comment.