Last data update: 20 sept. 2026, 20:04
Last compile: 20 sept. 2026, 20:13
`le-temps-partiel` |>
filter(champ == "France", indicateur == "Part de salariés à temps partiel (%)",
sexe != "Total", age == "Total", secteur == "Total", pcs == "Total") |>
ggplot(aes(x = date, y = valeur / 100, color = sexe)) +
geom_line() +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(date_breaks = "5 years", labels = date_format("%Y")) +
scale_y_continuous(labels = percent_format(accuracy = 1)) +
theme(legend.position = "bottom", legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
`le-temps-partiel` |>
filter(champ == "France", indicateur == "Nombre de salariés à temps partiel (en milliers)",
sexe == "Total", age == "Total", secteur == "Total", pcs == "Total") |>
ggplot(aes(x = date, y = valeur)) +
geom_line(color = "#2A5DB0") +
theme_minimal() + xlab("") + ylab("milliers de salariés") +
scale_x_date(date_breaks = "5 years", labels = date_format("%Y")) +
theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
`le-temps-partiel-detail` |>
filter(indicateur == "Raison principale du temps partiel (%)", sexe == "Total",
date == max(date), !grepl("^Pour d'autres raisons", indicateur_detaille) | indicateur_detaille == "Pour d'autres raisons - Total") |>
mutate(indicateur_detaille = fct_reorder(indicateur_detaille, valeur)) |>
ggplot(aes(x = indicateur_detaille, y = valeur / 100)) +
geom_col(fill = "#2A5DB0") +
coord_flip() +
theme_minimal() + xlab("") + ylab("") +
scale_y_continuous(labels = percent_format(accuracy = 1))