Last data update: 21 sept. 2026, 16:08
Last compile: 21 sept. 2026, 16:21
`portraits-statistiques-des-metiers` |>
filter(code_fap %in% c("A", "H", "M", "S")) |>
ggplot(aes(x = date, y = effectif / 1e6, color = libelle)) +
geom_line() +
theme_minimal() + xlab("") + ylab("millions de personnes en emploi") +
scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
theme(legend.position = "bottom", legend.title = element_blank()) +
guides(color = guide_legend(nrow = 2))