Emploi salarié et marché du travail dans les transports au T2 2021 - 2021_t2_transports_emploi_salarie_marche_travail

Données - SDES

Emploi salarié dans les transports

Ensemble Transports et entreposage

Code
t2_transports_emploi_salarie_marche_travail |>
  filter(bloc == "emploi_salarie", categorie == "Transports et entreposage (hors intérim) (HZ)") |>
  ggplot() + geom_line(aes(x = date, y = value), color = rgb(0.2, 0.4, 0.65), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Milliers de salariés, fin de trimestre, CVS") +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years")

Par mode de transport

Code
t2_transports_emploi_salarie_marche_travail |>
  filter(bloc == "emploi_salarie",
         categorie %in% c("49. Transports terrestres et transports par conduites", "50. Transports par eau",
                           "51. Transports aériens", "52. Entreposage et services auxiliaires des transports",
                           "53. Activités de poste et de courrier")) |>
  mutate(categorie = str_remove(categorie, "^[0-9]+\\. ")) |>
  ggplot() + geom_area(aes(x = date, y = value, fill = categorie)) +
  theme_minimal() + xlab("") + ylab("Milliers de salariés, fin de trimestre, CVS") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_fill_viridis_d()

Transports vs ensemble de l’économie, indices

Code
t2_transports_emploi_salarie_marche_travail |>
  filter(bloc == "emploi_salarie",
         categorie %in% c("Transports et entreposage (hors intérim) (HZ)", "Ensemble des secteurs, y compris intérim")) |>
  group_by(categorie) |>
  mutate(index = 100 * value / value[date == min(date)]) |>
  ggplot() + geom_line(aes(x = date, y = index, color = categorie), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Indice 100 = 1998 T1") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_manual(values = c("Transports et entreposage (hors intérim) (HZ)" = rgb(0.2, 0.4, 0.65),
                                 "Ensemble des secteurs, y compris intérim" = rgb(0.6, 0.6, 0.6)))

Marché du travail des métiers transport et logistique

Demandeurs d’emploi, par catégorie

Code
t2_transports_emploi_salarie_marche_travail |>
  filter(bloc == "demandeurs_emploi",
         categorie %in% c("sans emploi : catégorie A", "en activité réduite courte : catégorie B",
                           "en activité réduite longue : catégorie C", "sans emploi : catégorie D", "en emploi : catégorie E")) |>
  mutate(categorie = factor(categorie, levels = c("sans emploi : catégorie A", "en activité réduite courte : catégorie B",
                                                   "en activité réduite longue : catégorie C", "sans emploi : catégorie D", "en emploi : catégorie E"))) |>
  ggplot() + geom_area(aes(x = date, y = value, fill = categorie)) +
  theme_minimal() + xlab("") + ylab("Milliers de demandeurs d'emploi, CVS-CJO") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(fill = guide_legend(nrow = 2)) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_fill_viridis_d()

Indicateur de tension sur le marché du travail

Code
t2_transports_emploi_salarie_marche_travail |>
  filter(bloc == "indicateur_tension", categorie != "Transport et logistique") |>
  ggplot() + geom_line(aes(x = date, y = value, color = categorie), linewidth = 0.8) +
  theme_minimal() + xlab("") + ylab("Offres pour 100 demandes d'emploi (OEC/DEE), %") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3)) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_viridis_d()

Tension globale : transport et logistique

Code
t2_transports_emploi_salarie_marche_travail |>
  filter(bloc == "indicateur_tension", categorie == "Transport et logistique") |>
  ggplot() + geom_line(aes(x = date, y = value), color = rgb(0.2, 0.4, 0.65), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Offres pour 100 demandes d'emploi (OEC/DEE), %") +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years")