Last observation: 2010 (N = 33)
First observation: 1950 (N = 18)
Last data update: 28 sept. 2026, 21:52
Last compile: 28 sept. 2026, 21:54
Évolution, Ensemble
Code
SLS2010_TC08 |>
filter(sexe == "Ensemble", categorie != "Ensemble") |>
ggplot() + geom_line(aes(x = annee, y = value, color = categorie), linewidth = 0.7) +
theme_minimal() + xlab("") + ylab("") +
theme(legend.title = element_blank(), legend.position = "bottom") +
guides(color = guide_legend(nrow = 4)) +
scale_color_viridis_d()
Écart hommes-femmes, dernière année disponible
Code
SLS2010_TC08 |>
filter(sexe %in% c("Homme", "Femme"), annee == max(annee)) |>
spread(sexe, value) |>
filter(!is.na(Homme), !is.na(Femme)) |>
mutate(categorie = fct_reorder(categorie, Homme - Femme)) |>
ggplot() + geom_col(aes(x = categorie, y = Homme - Femme, fill = Homme - Femme), show.legend = F) +
coord_flip() +
theme_minimal() + xlab("") + ylab("Écart Homme - Femme") +
scale_fill_viridis_c()