Last data update: 26 oct. 2026, 19:18
Last compile: 26 oct. 2026, 19:19
d1 |>
filter(!is.na(valeur), !is.na(annee), !total100) |>
ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
geom_line(linewidth = 1.1) +
geom_point(size = 1.4) +
scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
theme_pub() +
labs(x = NULL, y = "",
title = str_wrap("Distribution du salaire net en équivalent temps plein dans le secteur privé et la fonction publique", 75)) +
guides(color = guide_legend(ncol = 2))
d2 |>
filter(!is.na(valeur), !is.na(annee), !total100) |>
ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
geom_line(linewidth = 1.1) +
geom_point(size = 1.4) +
scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
theme_pub() +
labs(x = NULL, y = "",
title = str_wrap("Distribution du revenu salarial dans le secteur privé et la fonction publique", 75)) +
guides(color = guide_legend(ncol = 2))
d3 |>
filter(!is.na(valeur), !is.na(annee), !total100) |>
ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
geom_line(linewidth = 1.1) +
geom_point(size = 1.4) +
scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
theme_pub() +
labs(x = NULL, y = "en %",
title = str_wrap("Part de la masse salariale perçue par les 1 % de salariés les mieux rémunérés dans le secteur privé et la fonction publique", 75)) +
guides(color = guide_legend(ncol = 2))