Effectifs de la fonction publique par région - FT1.2-3-SL_Localisation_ensemble

Données - DGAFP

Last data update: 29 sept. 2026, 17:22

Last compile: 29 sept. 2026, 17:24

Effectifs par région

`FT1.2-3-SL_Localisation_ensemble` |>
  filter(mesure == "Effectifs", population == "3FP", zone %in% regions_metropole) |>
  filter(annee == max(annee)) |>
  mutate(zone = fct_reorder(zone, valeur)) |>
  ggplot(aes(x = zone, y = valeur / 1000)) +
  geom_col(fill = "#1B3F8B") +
  coord_flip() +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "Milliers d'agents",
       title = "Effectifs de la fonction publique par région",
       subtitle = "trois versants, dernière année disponible") +
  theme(panel.grid.minor = element_blank())

Taux d’administration par région

`FT1.2-3-SL_Localisation_ensemble` |>
  filter(mesure == "Taux d'administration", population == "3FP", zone %in% regions_metropole) |>
  filter(annee == max(annee)) |>
  mutate(zone = fct_reorder(zone, valeur)) |>
  ggplot(aes(x = zone, y = valeur)) +
  geom_col(fill = "#E8737A") +
  coord_flip() +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "Agents publics pour 1 000 habitants",
       title = "Taux d'administration par région",
       subtitle = "trois versants, dernière année disponible") +
  theme(panel.grid.minor = element_blank())

Évolution des effectifs par versant, Île-de-France vs. province

`FT1.2-3-SL_Localisation_ensemble` |>
  filter(mesure == "Effectifs", population %in% c("FPE", "FPT", "FPH"),
         zone %in% c("Île-de-France", regions_metropole)) |>
  mutate(groupe = if_else(zone == "Île-de-France", "Île-de-France", "Autres régions métropolitaines")) |>
  group_by(population, annee, groupe) |>
  summarise(valeur = sum(valeur), .groups = "drop") |>
  ggplot(aes(x = annee, y = valeur / 1000, color = groupe)) +
  geom_line(linewidth = 1) +
  facet_wrap(~ population, scales = "free_y") +
  scale_color_manual(values = c("Île-de-France" = "#1B3F8B", "Autres régions métropolitaines" = "#E8737A"),
                      name = NULL) +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "Milliers d'agents",
       title = "Effectifs par versant, Île-de-France vs. autres régions",
       subtitle = "2010-2019") +
  theme(legend.position = "bottom", panel.grid.minor = element_blank())

Âge moyen et part des femmes par région

`FT1.2-3-SL_Localisation_ensemble` |>
  filter(mesure %in% c("Age moyen", "Part des femmes"), population == "3FP",
         zone %in% regions_metropole) |>
  filter(annee == max(annee)) |>
  select(zone, mesure, valeur) |>
  pivot_wider(names_from = mesure, values_from = valeur) |>
  ggplot(aes(x = `Age moyen`, y = `Part des femmes` / 100)) +
  geom_point(color = "#1B3F8B", size = 2) +
  ggrepel::geom_text_repel(aes(label = zone), size = 2.8) +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
  theme_minimal(base_size = 11) +
  labs(x = "Âge moyen (années)", y = "Part des femmes",
       title = "Âge moyen et part des femmes par région",
       subtitle = "trois versants, dernière année disponible") +
  theme(panel.grid.minor = element_blank())