Evolution du salaire brut horaire, par secteur - T105

Données - INSEE

Salaire brut horaire par secteur, dernière valeur

Code
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()

Écart hommes-femmes par secteur

Code
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()