Last observation: Q2 2021 (N = 38)
First observation: Q1 1996 (N = 11)
Last data update: 19 oct. 2026, 00:35
Last compile: 19 oct. 2026, 00:36
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")
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()
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)))
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()
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()
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")