Last data update: 26 oct. 2026, 19:18
Last compile: 26 oct. 2026, 19:19
Salaires mensuels nets moyens en EQTP par secteur d’activité et taille d’entreprise
Code
d1 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(libelle), serie = fct_inorder(str_wrap(serie, 24))) |>
ggplot(aes(x = valeur, y = fct_rev(lab))) +
geom_col(fill = bleu, width = 0.75) +
facet_wrap(~ serie, scales = "free_x", nrow = 1) +
scale_y_discrete(labels = scales::label_wrap(40)) +
theme_pub(10) +
labs(x = "", y = NULL,
title = str_wrap("Salaires mensuels nets moyens en EQTP par secteur d'activité et taille d'entreprise", 75)) +
theme(legend.position = "none")
Salaire mensuel net moyen en EQTP selon le secteur d’activité entre 1996 et 2021
Code
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 = "en euros",
title = str_wrap("Salaire mensuel net moyen en EQTP selon le secteur d’activité entre 1996 et 2021", 75)) +
guides(color = guide_legend(ncol = 2))
Salaire mensuel net moyen en EQTP dans les services entre 1996 et 2021
Code
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 euros",
title = str_wrap("Salaire mensuel net moyen en EQTP dans les services entre 1996 et 2021", 75)) +
guides(color = guide_legend(ncol = 2))
Dispersion des salaires nets mensuels en EQTP par secteur d’activité en 2021
Code
d4 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(libelle), serie = fct_inorder(serie)) |>
ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
geom_tile(color = "white") +
scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
scale_y_discrete(labels = scales::label_wrap(40)) +
scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "en euros") +
theme_pub(9) +
labs(x = NULL, y = NULL, title = str_wrap("Dispersion des salaires nets mensuels en EQTP par secteur d'activité en 2021", 75)) +
theme(legend.position = "right", panel.grid = element_blank())