Les mouvements de main-d’œuvre - les-mouvements-de-main-doeuvre

Données - Dares

Structure

Embauches (ensemble des secteurs)

Code
`les-mouvements-de-main-doeuvre` |>
  filter(Taille == "Ensemble des établissements", Secteur == "Ensemble des secteurs",
         variable %in% c("Embauches en CDI", "Embauches en CDD")) |>
  ggplot(aes(x = date, y = value, color = variable)) +
  geom_line() +
  theme_minimal() + xlab("") + ylab("Embauches (par trimestre)") +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
  scale_y_continuous(labels = label_number(big.mark = " ")) +
  theme(legend.position = "bottom", legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Fins de contrat, par motif

Code
`les-mouvements-de-main-doeuvre` |>
  filter(Taille == "Ensemble des établissements", Secteur == "Ensemble des secteurs",
         variable %in% c("Démissions", "Licenciements économiques",
                         "Licenciements non économiques", "Ruptures conventionnelles",
                         "Fins de période d'essai")) |>
  ggplot(aes(x = date, y = value, color = variable)) +
  geom_line() +
  theme_minimal() + xlab("") + ylab("Fins de contrat (par trimestre)") +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
  scale_y_continuous(labels = label_number(big.mark = " ")) +
  theme(legend.position = "bottom", legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  guides(color = guide_legend(nrow = 3))

Embauches par secteur (depuis 2015)

Code
`les-mouvements-de-main-doeuvre` |>
  filter(Taille == "Ensemble des établissements",
         Secteur %in% c("Industrie", "Construction", "Tertiaire"),
         variable == "Embauches",
         date >= as.Date("2015-01-01")) |>
  ggplot(aes(x = date, y = value, color = Secteur)) +
  geom_line() +
  theme_minimal() + xlab("") + ylab("Embauches (par trimestre)") +
  scale_x_date(date_breaks = "1 year", labels = date_format("%Y")) +
  scale_y_continuous(labels = label_number(big.mark = " ")) +
  theme(legend.position = "bottom", legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))