Effectifs d’étudiants inscrits par établissement public - fr-esr-statistiques-sur-les-effectifs-d-etudiants-inscrits-par-etablissement-hcp

Name: Effectifs d'étudiants inscrits par établissement public
Creator: François Geerolf

Auteur

Source : SIES, data.enseignementsup-recherche.gouv.fr. Statistiques sur les effectifs d’étudiants inscrits de 2006-07 à 2024-25 par établissement public sous tutelle du ministère (universités, grands établissements, écoles), hors doubles inscriptions université-CPGE. Les lignes marquées Attention : doubles comptes (établissements-composantes) sont exclues des totaux. baca, bac4, bac5, bac6, bac7 : étudiants selon la série du baccalauréat (général, STMG, autres technologiques, professionnel, dispensés).

Effectifs d’étudiants

Étudiants inscrits par type d’établissement

Code

`fr-esr-statistiques-sur-les-effectifs-d-etudiants-inscrits-par-etablissement-hcp` |>
  filter(!str_starts(attention, "\\*")) |>
  group_by(annee_universitaire, etablissement_type) |>
  summarise(effectif = sum(effectif, na.rm = TRUE) / 1e6, .groups = "drop") |>
  mutate(date = as.Date(paste0(str_sub(annee_universitaire, 1, 4), "-10-01"))) |>
  ggplot(aes(x = date, y = effectif, fill = etablissement_type)) +
  geom_area() + theme_minimal() + xlab("") + ylab("Millions d'étudiants inscrits") +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
  theme(legend.position = "bottom", legend.title = element_blank())

Part des femmes

Code

`fr-esr-statistiques-sur-les-effectifs-d-etudiants-inscrits-par-etablissement-hcp` |>
  filter(!str_starts(attention, "\\*")) |>
  group_by(annee_universitaire, etablissement_type) |>
  summarise(part = sum(sexef, na.rm = TRUE) / sum(effectif, na.rm = TRUE), .groups = "drop") |>
  mutate(date = as.Date(paste0(str_sub(annee_universitaire, 1, 4), "-10-01"))) |>
  ggplot(aes(x = date, y = part, color = etablissement_type)) +
  geom_line() + theme_minimal() + xlab("") + ylab("Part des femmes parmi les étudiants inscrits") +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  theme(legend.position = "bottom", legend.title = element_blank())

Universités : étudiants par série de baccalauréat

Code

`fr-esr-statistiques-sur-les-effectifs-d-etudiants-inscrits-par-etablissement-hcp` |>
  filter(etablissement_type == "Université", !str_starts(attention, "\\*")) |>
  group_by(annee_universitaire) |>
  summarise(across(c(baca, bac4, bac5, bac6, bac7), \(x) sum(x, na.rm = TRUE) / 1e3)) |>
  pivot_longer(-annee_universitaire, names_to = "niveau", values_to = "effectif") |>
  mutate(date = as.Date(paste0(str_sub(annee_universitaire, 1, 4), "-10-01")),
         niveau = recode(niveau, baca = "Bac général", bac4 = "Bac STMG", bac5 = "Autres bacs technologiques", bac6 = "Bac professionnel", bac7 = "Dispensés")) |>
  ggplot(aes(x = date, y = effectif, color = niveau)) +
  geom_line() + theme_minimal() + xlab("") + ylab("Milliers d'étudiants") +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
  theme(legend.position = "bottom", legend.title = element_blank())

Principales universités

Code

`fr-esr-statistiques-sur-les-effectifs-d-etudiants-inscrits-par-etablissement-hcp` |>
  filter(etablissement_type == "Université", annee_universitaire == max(annee_universitaire), !str_starts(attention, "\\*")) |>
  slice_max(effectif, n = 20) |>
  mutate(etablissement_lib = fct_reorder(str_trunc(etablissement_lib, 45), effectif)) |>
  ggplot(aes(x = etablissement_lib, y = effectif / 1e3)) +
  geom_col(fill = "#2166ac") + coord_flip() + theme_minimal() +
  xlab("") + ylab("Milliers d'étudiants (dernière année)")