Last data update: 29 sept. 2026, 16:27
Last compile: 29 sept. 2026, 16:29
Figure 1 : salaires 2024 par taille d’entreprise et secteur d’activité
Code
fig1 |>
filter(section == "Taille de l'entreprise") |>
mutate(caracteristique = fct_inorder(caracteristique)) |>
ggplot(aes(x = caracteristique, y = salaire_ensemble)) +
geom_col(fill = "#1B3F8B") +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "€ par mois",
title = "Salaire net moyen en EQTP selon la taille de l'entreprise",
subtitle = "2024") +
theme(axis.text.x = element_text(angle = 30, hjust = 1), panel.grid.minor = element_blank())
Code
fig1 |>
filter(section == "Secteur d'activité de l'établissement", caracteristique != "Services, dont :") |>
mutate(caracteristique = fct_reorder(caracteristique, salaire_ensemble)) |>
ggplot(aes(x = caracteristique, y = salaire_ensemble)) +
geom_col(fill = "#1B3F8B") +
coord_flip() +
theme_minimal(base_size = 10) +
labs(x = NULL, y = "€ par mois",
title = "Salaire net moyen en EQTP selon le secteur d'activité",
subtitle = "2024") +
theme(panel.grid.minor = element_blank())
Code
fig1 |>
filter(section == "Secteur d'activité de l'établissement", caracteristique != "Services, dont :") |>
select(caracteristique, salaire_cadres, salaire_prof_intermediaires, salaire_employes, salaire_ouvriers) |>
pivot_longer(-caracteristique, names_to = "pcs", values_to = "salaire") |>
mutate(pcs = recode(pcs, salaire_cadres = "Cadres", salaire_prof_intermediaires = "Professions intermédiaires",
salaire_employes = "Employés", salaire_ouvriers = "Ouvriers"),
pcs = fct_relevel(pcs, "Cadres", "Professions intermédiaires", "Employés", "Ouvriers"),
caracteristique = fct_reorder(caracteristique, salaire, .fun = max)) |>
ggplot(aes(x = caracteristique, y = salaire, fill = pcs)) +
geom_col(position = "dodge") +
coord_flip() +
scale_fill_brewer(palette = "Set2", name = NULL) +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "€ par mois",
title = "Salaire net moyen en EQTP selon le secteur et la catégorie socioprofessionnelle",
subtitle = "2024") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
Figure 2a : salaire net moyen en EQTP selon le secteur depuis 1996
Code
fig2a |>
select(annee, industrie, construction, commerce, services) |>
pivot_longer(-annee, names_to = "secteur", values_to = "salaire") |>
mutate(secteur = recode(secteur, industrie = "Industrie", construction = "Construction",
commerce = "Commerce", services = "Services"),
secteur = fct_relevel(secteur, "Industrie", "Construction", "Commerce", "Services")) |>
ggplot(aes(x = annee, y = salaire, color = secteur)) +
geom_line(linewidth = 1) +
scale_color_brewer(palette = "Set1", name = NULL) +
theme_minimal(base_size = 11) +
labs(x = NULL, y = "€ 2024",
title = "Salaire net moyen en EQTP selon le secteur d'activité",
subtitle = "euros constants (IPC), depuis 1996") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
Code
plot_ipc_vs_ipch(fig2a, "ensemble", "ensemble_ipch", "Salaire réel moyen en EQTP depuis 1996")
Figure 2b : salaire net moyen en EQTP dans les services depuis 1996
Code
fig2b |>
select(annee, services_entreprises, services_particuliers, services_mixtes, transports) |>
pivot_longer(-annee, names_to = "secteur", values_to = "salaire") |>
mutate(secteur = recode(secteur, services_entreprises = "Services aux entreprises",
services_particuliers = "Services aux particuliers",
services_mixtes = "Services mixtes", transports = "Transports et entreposage")) |>
ggplot(aes(x = annee, y = salaire, color = secteur)) +
geom_line(linewidth = 1) +
scale_color_brewer(palette = "Set1", name = NULL) +
theme_minimal(base_size = 10) +
labs(x = NULL, y = "€ 2024",
title = "Salaire net moyen en EQTP dans les services",
subtitle = "euros constants (IPC), depuis 1996") +
theme(legend.position = "bottom", panel.grid.minor = element_blank()) +
guides(color = guide_legend(ncol = 2))
Code
plot_ipc_vs_ipch(fig2b, "ensemble_services", "ensemble_services_ipch",
"Salaire réel moyen en EQTP dans les services depuis 1996")
Figure 3 : dispersion des salaires par secteur d’activité
Code
fig3 |>
filter(niveau == "Distribution") |>
mutate(distribution = fct_relevel(distribution, "1er décile (D1)", "1er quartile (Q1)", "Médiane",
"3e quartile (Q3)", "9e décile (D9)")) |>
select(distribution, industrie, construction, commerce, services) |>
pivot_longer(-distribution, names_to = "secteur", values_to = "salaire") |>
mutate(secteur = recode(secteur, industrie = "Industrie", construction = "Construction",
commerce = "Commerce", services = "Services"),
secteur = fct_relevel(secteur, "Industrie", "Construction", "Commerce", "Services")) |>
ggplot(aes(x = distribution, y = salaire, color = secteur, group = secteur)) +
geom_line(linewidth = 1) +
geom_point() +
scale_color_brewer(palette = "Set1", name = NULL) +
theme_minimal(base_size = 10) +
labs(x = NULL, y = "€ par mois",
title = "Dispersion des salaires nets mensuels en EQTP selon le secteur d'activité",
subtitle = "2024") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())