Last data update: 26 oct. 2026, 19:18
Last compile: 26 oct. 2026, 19:22
1. Prélèvements obligatoires des administrations publiques
Code
d1 |>
filter(!is.na(valeur), !is.na(annee), !total100, cle %in% head(unique(cle), 24)) |>
mutate(cle = str_wrap(cle, 32)) |>
ggplot(aes(x = annee, y = valeur)) +
geom_line(color = bleu, linewidth = 0.9) +
facet_wrap(~ cle, scales = "free_y", ncol = 3) +
theme_pub(9) +
labs(x = NULL, y = "Impôts et cotisations sociales effectives après transferts1, 2 (en milliards d'euros)",
title = str_wrap("1. Prélèvements obligatoires des administrations publiques", 75)) +
theme(legend.position = "none")
Prélèvements obligatoires des administrations publiques
Code
d2 |>
filter(!is.na(valeur), !is.na(annee), !total100, cle %in% head(unique(cle), 24)) |>
mutate(cle = str_wrap(cle, 32)) |>
ggplot(aes(x = annee, y = valeur)) +
geom_line(color = bleu, linewidth = 0.9) +
facet_wrap(~ cle, scales = "free_y", ncol = 3) +
theme_pub(9) +
labs(x = NULL, y = "Impôts et cotisations sociales effectives après transferts1, 2 (en milliards d'euros)",
title = str_wrap("Prélèvements obligatoires des administrations publiques", 75)) +
theme(legend.position = "none")
2. Comparaison internationale de 2000 à 2017
Code
d3 |>
filter(!is.na(valeur), !is.na(annee), !total100, cle %in% head(unique(cle), 24)) |>
mutate(cle = str_wrap(cle, 32)) |>
ggplot(aes(x = annee, y = valeur)) +
geom_line(color = bleu, linewidth = 0.9) +
facet_wrap(~ cle, scales = "free_y", ncol = 3) +
theme_pub(9) +
labs(x = NULL, y = "en % du PIB",
title = str_wrap("2. Comparaison internationale de 2000 à 2017", 75)) +
theme(legend.position = "none")