Le temps partiel - le-temps-partiel

Données - Dares

Taux de temps partiel, par sexe

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

Nombre de salariés à temps partiel

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

Raisons du temps partiel (dernière année disponible)

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