Last data update: 29 sept. 2026, 17:52
Last compile: 29 sept. 2026, 17:53
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())
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 |>
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())
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())