Last data update: 28 sept. 2026, 23:19
Last compile: 28 sept. 2026, 23:19
T105 |>
filter(ce == "Tous postes", sexe == "Ensemble",
indicateur == "Salaire brut horaire moyen (€)", categorie_ligne != "Ensemble") |>
slice_max(value, n = 15) |>
mutate(categorie_ligne = fct_reorder(categorie_ligne, value)) |>
ggplot() + geom_col(aes(x = categorie_ligne, y = value, fill = value), show.legend = F) +
coord_flip() +
theme_minimal() + xlab("") + ylab("Salaire brut horaire moyen (€)") +
theme(axis.text.y = element_text(size = 7)) +
scale_fill_viridis_c()
T105 |>
filter(ce == "Tous postes", sexe %in% c("Hommes", "Femmes"),
indicateur == "Salaire brut horaire moyen (€)", categorie_ligne != "Ensemble") |>
select(categorie_ligne, sexe, value) |>
spread(sexe, value) |>
mutate(ecart = 100 * (Hommes - Femmes) / Femmes) |>
slice_max(abs(ecart), n = 15) |>
mutate(categorie_ligne = fct_reorder(categorie_ligne, ecart)) |>
ggplot() + geom_col(aes(x = categorie_ligne, y = ecart, fill = ecart), show.legend = F) +
coord_flip() +
theme_minimal() + xlab("") + ylab("Écart de salaire Hommes-Femmes (%)") +
theme(axis.text.y = element_text(size = 7)) +
scale_fill_viridis_c()