Dix plus hautes rémunérations de la fonction publique - ra_2025_remu_niveaux_donnees_comp_hautes_remu

Données - DGAFP

FPE : somme des dix plus hautes rémunérations par ministère

Code
fpe |>
  filter(ministere != "Ensemble") |>
  mutate(ministere = fct_reorder(ministere, somme_dix_plus_hautes)) |>
  ggplot(aes(x = ministere, y = somme_dix_plus_hautes / 1e6)) +
  geom_col(fill = "#1B3F8B") +
  coord_flip() +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "Millions d'euros",
       title = "Somme des dix plus hautes rémunérations brutes",
       subtitle = "par département ministériel, 2024") +
  theme(panel.grid.minor = element_blank())

Code
fpe |>
  filter(ministere != "Ensemble") |>
  mutate(part_femmes = femmes / (femmes + hommes),
         ministere = fct_reorder(ministere, part_femmes)) |>
  ggplot(aes(x = ministere, y = part_femmes)) +
  geom_col(fill = "#E8737A") +
  geom_hline(yintercept = 0.5, color = "grey30", linetype = "dashed") +
  coord_flip() +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = NULL,
       title = "Part de femmes parmi les dix plus hautes rémunérations",
       subtitle = "par département ministériel, 2024") +
  theme(panel.grid.minor = element_blank())

FPH : somme des dix plus hautes rémunérations par établissement

Code
fph |>
  ggplot(aes(x = somme_dix_plus_hautes / 1e6)) +
  geom_histogram(bins = 30, fill = "#1B3F8B") +
  theme_minimal(base_size = 11) +
  labs(x = "Millions d'euros", y = "Nombre d'établissements",
       title = "Distribution de la somme des dix plus hautes rémunérations",
       subtitle = "établissements hospitaliers de plus de 200 M€ de budget, 2024") +
  theme(panel.grid.minor = element_blank())

Code
fph |>
  mutate(part_femmes = femmes / (femmes + hommes)) |>
  ggplot(aes(x = part_femmes)) +
  geom_histogram(bins = 11, fill = "#E8737A", boundary = 0) +
  geom_vline(xintercept = 0.5, color = "grey30", linetype = "dashed") +
  scale_x_continuous(labels = scales::percent_format(accuracy = 1)) +
  theme_minimal(base_size = 11) +
  labs(x = NULL, y = "Nombre d'établissements",
       title = "Part de femmes parmi les dix plus hautes rémunérations",
       subtitle = "établissements hospitaliers, 2024") +
  theme(panel.grid.minor = element_blank())