source(here::here("_rinit.R"))source(here::here("code", "basic_functions.R")) # dataset_info_lines(), related_data()invisible(Sys.setlocale("LC_TIME", "fr_FR.UTF-8"))suppressMessages(library(sf))# cd ~/iCloud/website/data/depp; /usr/local/bin/R -e 'quarto::quarto_render("fr-en-indicateurs-valeur-ajoutee-colleges.qmd")'knitr::opts_chunk$set(echo =TRUE, message =FALSE, warning =FALSE,fig.width =8, fig.height =4.8, dpi =150)ivac_path <- here::here("data", "depp", "fr-en-indicateurs-valeur-ajoutee-colleges.parquet")ivac <- arrow::read_parquet(ivac_path) |> dplyr::mutate(annee =as.integer(format(session, "%Y")),secteur = dplyr::recode(secteur, PU ="Public", PR ="Privé sous contrat"),arr = dplyr::if_else(grepl("^PARIS \\d{2}$", commune),as.integer(sub("PARIS ", "", commune)), NA_integer_),# nom court : on retire "COLLEGE (PRIVE) " et on passe en casse de titrecollege = stringr::str_to_title(sub("^COLL[EÈ]GE (PRIV[EÉ] )?", "", nom_de_l_etablissement)) )an <-max(ivac$annee) # dernière session (2025)paris <- dplyr::filter(ivac, departement =="PARIS", !is.na(arr))paris14 <- dplyr::filter(paris, arr ==14)theme_depp <- ggplot2::theme_minimal(base_size =12) + ggplot2::theme(plot.title = ggplot2::element_text(face ="bold"),plot.subtitle = ggplot2::element_text(colour ="grey35"),panel.grid.minor = ggplot2::element_blank(),plot.title.position ="plot",legend.position ="bottom")pal_secteur <-c("Public"="#2b6cb0", "Privé sous contrat"="#dd6b20")# Contours des arrondissements (fond de carte) — parquet de data/paris/.wkb2sfc <-function(x) sf::st_as_sfc(structure(lapply(x, as.raw), class ="WKB"), EWKB =FALSE)arr_sf <- arrow::read_parquet(here::here("data", "paris", "arrondissements.parquet")) |> dplyr::transmute(arr =as.integer(c_ar), nom = l_aroff, geometry =wkb2sfc(geom)) |> sf::st_as_sf(crs =4326)
Les indicateurs de valeur ajoutée des collèges (IVAC) de la DEPP comparent, pour chaque collège, ses résultats au diplôme national du brevet (DNB) observés à ceux attendus compte tenu du profil de ses élèves (origine sociale, niveau scolaire à l’entrée, âge, sexe). La valeur ajoutée est l’écart entre les deux : elle isole l’apport propre de l’établissement, une fois neutralisé ce qui tient au recrutement.
Une valeur ajoutée positive = le collège fait mieux que ce que son public laissait attendre ; négative = moins bien. Sessions 2022 à 2025, 6 878 collèges en France.
Note
Les collèges au recrutement très favorisé (une bonne partie de Paris) ont un taux de réussite attendu déjà proche de 100 % : la marge de valeur ajoutée y est mécaniquement faible, et plus souvent légèrement négative que dans le reste du pays. La valeur ajoutée se lit donc à recrutement comparable, pas comme un palmarès de niveau.
Paris — vue d’ensemble
Code
va_arr <- paris |> dplyr::filter(annee == an) |> dplyr::group_by(arr) |> dplyr::summarise(va =mean(va_du_taux_de_reussite_g, na.rm =TRUE),n = dplyr::n(), .groups ="drop")arr_sf |> dplyr::left_join(va_arr, by ="arr") |>ggplot() +geom_sf(aes(fill = va), colour ="white", linewidth =0.3) +geom_sf_text(aes(label = arr), size =3, colour ="grey20") +scale_fill_gradient2(low ="#c0392b", mid ="grey92", high ="#2b6cb0",midpoint =0, name ="VA moyenne\n(points)") +labs(title =sprintf("Valeur ajoutée du taux de réussite au DNB (%d)", an),subtitle ="Moyenne des collèges de chaque arrondissement — le 14e est encadré",x =NULL, y =NULL) +geom_sf(data = dplyr::filter(arr_sf, arr ==14), fill =NA,colour ="black", linewidth =0.8) +theme_void(base_size =12) + ggplot2::theme(plot.title = ggplot2::element_text(face ="bold"),plot.subtitle = ggplot2::element_text(colour ="grey35"),plot.title.position ="plot")
Filtrer la colonne Commune sur PARIS 14 pour retrouver le focus ci-dessus.
Source & données
Code
tibble::tibble(``=c("Jeu de données", "Producteur", "Champ", "Indicateurs", "Fichier", "Mise à jour", "Observations"),``=c("[Indicateurs de valeur ajoutée des collèges](https://data.education.gouv.fr/explore/dataset/fr-en-indicateurs-valeur-ajoutee-colleges/) — DEPP","Direction de l'Évaluation, de la Prospective et de la Performance (DEPP), ministère de l'Éducation nationale","France ; collèges publics et privés sous contrat ; série générale du DNB","Taux de réussite et note à l'écrit observés / attendus, valeur ajoutée associée, taux d'accès de la 6e à la 3e, mentions",sprintf("`data/depp/fr-en-indicateurs-valeur-ajoutee-colleges.parquet` (%s ko)", round(file.size(ivac_path) /1024)),format(as.Date(file.mtime(ivac_path)), "%d %B %Y"),sprintf("%s lignes, sessions %d–%d",format(nrow(ivac), big.mark =" "), min(ivac$annee), an) )) |> gt::gt() |> gt::fmt_markdown(columns =``) |> gt::tab_options(table.width ="100%", column_labels.hidden =TRUE)
Données - DEPP (Éducation nationale)
