L’emploi intérimaire - lemploi-interimaire

Données - Dares

Structure

Nombre d’intérimaires

Code
`emploi-interimaire` |>
  ggplot(aes(x = date, y = value / 1000)) +
  geom_line(color = "#2A5DB0") +
  theme_minimal() + xlab("") + ylab("milliers d'intérimaires") +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Intérimaires par secteur (depuis 2015)

Code
`emploi-interimaire-secteur` |>
  filter(unite == "effectif",
         secteur %in% c("C3", "C4", "C5", "FZ", "GZ", "HZ"),
         date >= as.Date("2015-01-01")) |>
  ggplot(aes(x = date, y = value / 1000, color = `Libellé`)) +
  geom_line() +
  theme_minimal() + xlab("") + ylab("milliers d'intérimaires") +
  scale_x_date(date_breaks = "1 year", labels = date_format("%Y")) +
  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))

Volume de travail en ETP par secteur (depuis 2015)

Code
`emploi-interimaire-secteur` |>
  filter(unite == "ETP",
         secteur %in% c("C3", "C4", "C5", "FZ", "GZ", "HZ"),
         date >= as.Date("2015-01-01")) |>
  ggplot(aes(x = date, y = value / 1000, color = `Libellé`)) +
  geom_line() +
  theme_minimal() + xlab("") + ylab("milliers d'ETP") +
  scale_x_date(date_breaks = "1 year", labels = date_format("%Y")) +
  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))