Last data update: 29 sept. 2026, 17:04
Last compile: 29 sept. 2026, 17:05
Figure 1 : poids des dépenses de rémunération des APU dans le PIB
Code
fig1 |>
filter(bloc == "Poids dans le PIB (en %)",
indicateur %in% c("Administrations publiques centrales (1)",
"Administrations publiques locales (2)",
"Administrations de Sécurité sociale (3)")) |>
mutate(indicateur = recode(indicateur, "Administrations publiques centrales (1)" = "APU centrales",
"Administrations publiques locales (2)" = "APU locales",
"Administrations de Sécurité sociale (3)" = "Administrations de sécurité sociale")) |>
ggplot(aes(x = annee, y = valeur, fill = indicateur)) +
geom_col() +
scale_fill_brewer(palette = "Set2", name = NULL) +
theme_minimal(base_size = 11) +
labs(x = NULL, y = "% du PIB",
title = "Poids des dépenses de rémunération des administrations publiques dans le PIB",
subtitle = "comptabilité nationale, 1978-2024") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
Code
fig1 |>
filter(bloc == "Dépenses de rémunération (en Md€)", indicateur == "Toutes administrations publiques") |>
ggplot(aes(x = annee, y = valeur)) +
geom_line(linewidth = 1, color = "#1B3F8B") +
theme_minimal(base_size = 12) +
labs(x = NULL, y = "Md€",
title = "Dépenses de rémunération de l'ensemble des administrations publiques",
subtitle = "1978-2024") +
theme(panel.grid.minor = element_blank())
Figure 2 : détail des dépenses de personnel de l’État (titre 2)
Code
fig2 |>
filter(niveau == "Sous-total",
indicateur %in% c("Rémunérations d’activité", "Cotisations et contributions sociales",
"Prestations sociales et allocations diverses")) |>
mutate(indicateur = fct_relevel(indicateur, "Rémunérations d’activité",
"Cotisations et contributions sociales",
"Prestations sociales et allocations diverses")) |>
ggplot(aes(x = annee, y = valeur, fill = indicateur)) +
geom_col() +
scale_fill_brewer(palette = "Set2", name = NULL) +
theme_minimal(base_size = 10) +
labs(x = NULL, y = "Md€",
title = "Détail des dépenses de personnel de l'État (titre 2)",
subtitle = "2008-2024") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
Code
fig2 |>
filter(indicateur == "Part des dépenses de personnel dans le budget de l'État (en %)") |>
ggplot(aes(x = annee, y = valeur)) +
geom_line(linewidth = 1, color = "#1B3F8B") +
theme_minimal(base_size = 12) +
labs(x = NULL, y = "%",
title = "Part des dépenses de personnel dans le budget de l'État",
subtitle = "2008-2024") +
theme(panel.grid.minor = element_blank())
Figure 3 : dépenses de personnel dans le budget de l’État
Code
fig3 |>
filter(indicateur != "Budget de l'État") |>
mutate(indicateur = str_remove(indicateur, "^Titre \\d+ - ")) |>
ggplot(aes(x = annee, y = valeur, fill = indicateur)) +
geom_col() +
scale_fill_brewer(palette = "Set3", name = NULL) +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "Md€",
title = "Dépenses de personnel dans le budget de l'État",
subtitle = "nettes des remboursements et dégrèvements d'impôts, 2008-2024") +
theme(legend.position = "bottom", panel.grid.minor = element_blank()) +
guides(fill = guide_legend(ncol = 3))
Figure 4 : composantes des rémunérations d’activité dans la FPE
Code
fig4 |>
filter(niveau == "Sous-total") |>
mutate(indicateur = fct_relevel(indicateur, "Rémunérations principales",
"Charges connexes à la rémunération principale",
"Primes et indemnités", "Personnels civils", "Personnels militaires")) |>
ggplot(aes(x = annee, y = valeur, fill = indicateur)) +
geom_col() +
scale_fill_brewer(palette = "Set2", name = NULL) +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "Md€",
title = "Principales composantes des rémunérations d'activité dans la FPE",
subtitle = "2008-2024") +
theme(legend.position = "bottom", panel.grid.minor = element_blank()) +
guides(fill = guide_legend(ncol = 2))
Figure 5 : dépenses de personnel des collectivités locales
Code
fig5 |>
filter(indicateur %in% c("Régions", "Départements", "Communes", "Groupements à fiscalité propre")) |>
ggplot(aes(x = annee, y = valeur, fill = indicateur)) +
geom_col() +
scale_fill_brewer(palette = "Set2", name = NULL) +
theme_minimal(base_size = 11) +
labs(x = NULL, y = "Md€",
title = "Dépenses de personnel des collectivités locales",
subtitle = "et de leurs groupements à fiscalité propre, 1996-2024") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
Figure 6 : charges de personnel des établissements publics de santé
Code
fig6 |>
filter(indicateur %in% c("Rémunérations du personnel non médical", "Rémunérations du personnel médical",
"Charges de sécurité sociale et de prévoyance",
"Impôts, taxes et versements assimilés sur rémunérations", "Autres charges")) |>
mutate(indicateur = fct_relevel(indicateur, "Rémunérations du personnel non médical",
"Rémunérations du personnel médical",
"Charges de sécurité sociale et de prévoyance",
"Impôts, taxes et versements assimilés sur rémunérations", "Autres charges")) |>
ggplot(aes(x = annee, y = valeur, fill = indicateur)) +
geom_col() +
scale_fill_brewer(palette = "Set2", name = NULL) +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "Md€",
title = "Charges d'exploitation relatives au personnel des établissements publics de santé",
subtitle = "2000-2024") +
theme(legend.position = "bottom", panel.grid.minor = element_blank()) +
guides(fill = guide_legend(ncol = 2))