Last data update: 26 oct. 2026, 19:18
Last compile: 26 oct. 2026, 19:19
Évolution du Smic horaire brut, du salaire horaire de base et des prix entre 1990 et 2021
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 = "base 100 en mars 2010",
title = str_wrap("Évolution du Smic horaire brut, du salaire horaire de base et des prix entre 1990 et 2021", 75)) +
theme(legend.position = "none")
Part des salariés ayant bénéficié de la revalorisation du Smic au 1er janvier 2020 et 2021
Code
d2 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(libelle), serie = fct_inorder(serie)) |>
ggplot(aes(x = valeur, y = fct_rev(lab), fill = serie)) +
geom_col(position = position_dodge(width = 0.8), width = 0.75) +
facet_grid(section ~ ., scales = "free_y", space = "free_y", labeller = labeller(section = scales::label_wrap(14))) +
scale_y_discrete(labels = scales::label_wrap(40)) +
scale_fill_brewer(palette = "Set2", name = NULL, labels = scales::label_wrap(30)) +
theme_pub(10) +
labs(x = "en %", y = NULL,
title = str_wrap("Part des salariés ayant bénéficié de la revalorisation du Smic au 1er janvier 2020 et 2021", 75)) +
guides(fill = guide_legend(ncol = 2))