Estimations d’emploi salarié par secteur d’activité et par département

Data - INSEE

Author

François Geerolf

Info

LAST_UPDATE

LAST_UPDATE Nobs
2024-12-19 99816
2019-03-29 6624
2018-03-30 6240

LAST_COMPILE

LAST_COMPILE
2024-12-22

Last

TIME_PERIOD Nobs
2024-Q3 1281

Champ

  • 2001-

  • A17

  • Départements

TITLE_FR

REF_AREA

NAF2

Tous

NAF2 Naf2 Nobs
78-20Z 78.20Z - Activités des agences de travail temporaire 10436
A5-BE A5-BE - Industrie manufacturière, industries extractives et autres 10436
A5-FZ A5-FZ - Construction 10436
A5-GU A5-GU - Tertiaire marchand 10436
ENS-SMNA Secteurs marchands non agricoles 10436
A17-FZ A17-FZ - Construction 8228
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 7844
A5-AZ A5-AZ - Agriculture, sylviculture et pêche 6440
A5-OQ A5-OQ - Tertiaire non marchand 6440
ENS-SAL Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) 6440
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 1604
A17-C2DE A17-C2DE - Industries extractives, énergie, eau, gestion des déchets et dépollution ; Cokéfaction et raffinage 1604
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 1604
A17-C4 A17-C4 - Fabrication de matériels de transport 1604
A17-C5 A17-C5 - Fabrication d'autres produits industriels 1604
A17-HZ A17-HZ - Transports et entreposage 1604
A17-IZ A17-IZ - Hébergement et restauration 1604
A17-JZ A17-JZ - Information et communication 1604
A17-KZ A17-KZ - Activités financières et d'assurance 1604
A17-LZ A17-LZ - Activités immobilières 1604
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 1604
A17-MNO A17-MNO - Activités scientifiques et techniques ; services administratifs et de soutien ; hors intérim 1604
A17-RU A17-RU - Autres activités de services 1604
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 1064
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 1064
ENS-PRIVE Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales) 1064
ENS-PUBLIC Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales) 1064

A5

NAF2 Naf2 Nobs
A5-BE A5-BE - Industrie manufacturière, industries extractives et autres 10436
A5-FZ A5-FZ - Construction 10436
A5-GU A5-GU - Tertiaire marchand 10436
A5-AZ A5-AZ - Agriculture, sylviculture et pêche 6440
A5-OQ A5-OQ - Tertiaire non marchand 6440

A17

NAF2 Naf2 Nobs
A17-FZ A17-FZ - Construction 8228
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 7844
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 1604
A17-C2DE A17-C2DE - Industries extractives, énergie, eau, gestion des déchets et dépollution ; Cokéfaction et raffinage 1604
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 1604
A17-C4 A17-C4 - Fabrication de matériels de transport 1604
A17-C5 A17-C5 - Fabrication d'autres produits industriels 1604
A17-HZ A17-HZ - Transports et entreposage 1604
A17-IZ A17-IZ - Hébergement et restauration 1604
A17-JZ A17-JZ - Information et communication 1604
A17-KZ A17-KZ - Activités financières et d'assurance 1604
A17-LZ A17-LZ - Activités immobilières 1604
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 1604
A17-MNO A17-MNO - Activités scientifiques et techniques ; services administratifs et de soutien ; hors intérim 1604
A17-RU A17-RU - Autres activités de services 1604
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 1064
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 1064

ENS

NAF2 Naf2 Nobs
ENS-SMNA Secteurs marchands non agricoles 10436
ENS-SAL Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) 6440
ENS-PRIVE Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales) 1064
ENS-PUBLIC Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales) 1064

TIME_PERIOD / date

2001-Q4, 2021-Q2, 2017-Q2

Tous

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(TIME_PERIOD %in% c("2001-Q4", "2007-Q2", "2012-Q2", "2017-Q2", "2021-Q2"),
         REF_AREA == "FM") %>%
  left_join(NAF2, by = "NAF2") %>%
  select_if(function(col) length(unique(col)) > 1) %>%
  select(Naf2, TIME_PERIOD, OBS_VALUE) %>%
  spread(TIME_PERIOD, OBS_VALUE) %>%
  print_table_conditional()
Naf2 2001-Q4 2007-Q2 2012-Q2 2017-Q2 2021-Q2
78.20Z - Activités des agences de travail temporaire 595345 701840 574452 745724 768605
A17-AZ - Agriculture, sylviculture et pêche NA NA 256755 284180 308811
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 595589 573918 559646 572637 606827
A17-C2DE - Industries extractives, énergie, eau, gestion des déchets et dépollution ; Cokéfaction et raffinage 381959 385402 381276 378476 389645
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 578426 502644 432962 401344 401308
A17-C4 - Fabrication de matériels de transport 469836 441314 392614 366871 358981
A17-C5 - Fabrication d'autres produits industriels 2050558 1736302 1486785 1388901 1378075
A17-FZ - Construction 1317308 1495651 1466481 1348676 1531737
A17-GZ - Commerce ; réparation d'automobiles et de motocycles 2964935 3068478 3057256 3084998 3236125
A17-HZ - Transports et entreposage 1345846 1342016 1326791 1336974 1383087
A17-IZ - Hébergement et restauration 841934 941353 999877 1057790 1097722
A17-JZ - Information et communication 678197 680344 708366 748648 853675
A17-KZ - Activités financières et d'assurance 747553 801789 818258 837102 864392
A17-LZ - Activités immobilières 218056 232616 226792 235037 253641
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 2631653 2978664 2923902 3310965 3576424
A17-MNO - Activités scientifiques et techniques ; services administratifs et de soutien ; hors intérim 2036308 2276824 2349450 2565241 2807819
A17-OQ - Administration publique, enseignement, santé humaine et action sociale NA NA 7806424 8048535 8125329
A17-RU - Autres activités de services 1085674 1202058 1247884 1215475 1219892
A5-AZ - Agriculture, sylviculture et pêche NA NA 256755 284180 308811
A5-BE - Industrie manufacturière, industries extractives et autres 4076368 3639580 3253284 3108229 3134836
A5-FZ - Construction 1317308 1495651 1466481 1348676 1531737
A5-GU - Tertiaire marchand 10513849 11247318 11309125 11826989 12484958
A5-OQ - Tertiaire non marchand NA NA 7806424 8048535 8125329
Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) NA NA 24092070 24616610 25585671
Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales) NA NA 18573813 18932653 19886248
Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales) NA NA 5518257 5683957 5699423
Secteurs marchands non agricoles 15907525 16382550 16028891 16283895 17151531

A5

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter((grepl("A5", NAF2)) | (NAF2 == "ENS-SAL")) %>%
  filter(TIME_PERIOD %in% c("2001-Q4", "2007-Q2", "2012-Q2", "2017-Q2", "2021-Q2"),
         REF_AREA == "FM") %>%
  left_join(NAF2, by = "NAF2") %>%
  select_if(function(col) length(unique(col)) > 1) %>%
  select(Naf2, TIME_PERIOD, OBS_VALUE) %>%
  spread(TIME_PERIOD, OBS_VALUE) %>%
  print_table_conditional()
Naf2 2001-Q4 2007-Q2 2012-Q2 2017-Q2 2021-Q2
A5-AZ - Agriculture, sylviculture et pêche NA NA 256755 284180 308811
A5-BE - Industrie manufacturière, industries extractives et autres 4076368 3639580 3253284 3108229 3134836
A5-FZ - Construction 1317308 1495651 1466481 1348676 1531737
A5-GU - Tertiaire marchand 10513849 11247318 11309125 11826989 12484958
A5-OQ - Tertiaire non marchand NA NA 7806424 8048535 8125329
Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) NA NA 24092070 24616610 25585671

A17

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter((grepl("A17", NAF2)) | (NAF2 == "ENS-SAL")) %>%
  filter(TIME_PERIOD %in% c("2001-Q4", "2007-Q2", "2012-Q2", "2017-Q2", "2021-Q2"),
         REF_AREA == "FM") %>%
  left_join(NAF2, by = "NAF2") %>%
  select_if(function(col) length(unique(col)) > 1) %>%
  select(Naf2, TIME_PERIOD, OBS_VALUE) %>%
  spread(TIME_PERIOD, OBS_VALUE) %>%
  print_table_conditional()
Naf2 2001-Q4 2007-Q2 2012-Q2 2017-Q2 2021-Q2
A17-AZ - Agriculture, sylviculture et pêche NA NA 256755 284180 308811
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 595589 573918 559646 572637 606827
A17-C2DE - Industries extractives, énergie, eau, gestion des déchets et dépollution ; Cokéfaction et raffinage 381959 385402 381276 378476 389645
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 578426 502644 432962 401344 401308
A17-C4 - Fabrication de matériels de transport 469836 441314 392614 366871 358981
A17-C5 - Fabrication d'autres produits industriels 2050558 1736302 1486785 1388901 1378075
A17-FZ - Construction 1317308 1495651 1466481 1348676 1531737
A17-GZ - Commerce ; réparation d'automobiles et de motocycles 2964935 3068478 3057256 3084998 3236125
A17-HZ - Transports et entreposage 1345846 1342016 1326791 1336974 1383087
A17-IZ - Hébergement et restauration 841934 941353 999877 1057790 1097722
A17-JZ - Information et communication 678197 680344 708366 748648 853675
A17-KZ - Activités financières et d'assurance 747553 801789 818258 837102 864392
A17-LZ - Activités immobilières 218056 232616 226792 235037 253641
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 2631653 2978664 2923902 3310965 3576424
A17-MNO - Activités scientifiques et techniques ; services administratifs et de soutien ; hors intérim 2036308 2276824 2349450 2565241 2807819
A17-OQ - Administration publique, enseignement, santé humaine et action sociale NA NA 7806424 8048535 8125329
A17-RU - Autres activités de services 1085674 1202058 1247884 1215475 1219892
Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) NA NA 24092070 24616610 25585671

ENS

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter((grepl("ENS", NAF2)) | (NAF2 == "ENS-SAL")) %>%
  filter(TIME_PERIOD %in% c("2001-Q4", "2007-Q2", "2012-Q2", "2017-Q2", "2021-Q2"),
         REF_AREA == "FM") %>%
  left_join(NAF2, by = "NAF2") %>%
  select_if(function(col) length(unique(col)) > 1) %>%
  select(Naf2, TIME_PERIOD, OBS_VALUE) %>%
  spread(TIME_PERIOD, OBS_VALUE) %>%
  print_table_conditional()
Naf2 2001-Q4 2007-Q2 2012-Q2 2017-Q2 2021-Q2
Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) NA NA 24092070 24616610 25585671
Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales) NA NA 18573813 18932653 19886248
Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales) NA NA 5518257 5683957 5699423
Secteurs marchands non agricoles 15907525 16382550 16028891 16283895 17151531

Covid-19, Depuis 2019-Q4

Tous

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(TIME_PERIOD %in% c("2019-Q4", "2021-Q2"),
         REF_AREA == "FM") %>%
  left_join(NAF2, by = "NAF2") %>%
  select_if(function(col) length(unique(col)) > 1) %>%
  select(NAF2, Naf2, TIME_PERIOD, OBS_VALUE) %>%
  spread(TIME_PERIOD, OBS_VALUE) %>%
  mutate(Difference = `2021-Q2` - `2019-Q4`,
         `%` = round(100*(`2021-Q2`/`2019-Q4`-1), 2),
         `Contrib (%)` = round(100*((`Difference`/`2019-Q4`[NAF2 == "ENS-SAL"])), 2)) %>%
  arrange(-`%`) %>%
  print_table_conditional()
NAF2 Naf2 2019-Q4 2021-Q2 Difference % Contrib (%)
A17-FZ A17-FZ - Construction 1449028 1531737 82709 5.71 0.33
A5-FZ A5-FZ - Construction 1449028 1531737 82709 5.71 0.33
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 292870 308811 15941 5.44 0.06
A5-AZ A5-AZ - Agriculture, sylviculture et pêche 292870 308811 15941 5.44 0.06
A17-JZ A17-JZ - Information et communication 815182 853675 38493 4.72 0.15
A17-LZ A17-LZ - Activités immobilières 243565 253641 10076 4.14 0.04
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 589941 606827 16886 2.86 0.07
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 3160520 3236125 75605 2.39 0.30
A17-MNO A17-MNO - Activités scientifiques et techniques ; services administratifs et de soutien ; hors intérim 2742455 2807819 65364 2.38 0.26
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 3508116 3576424 68308 1.95 0.27
A17-C2DE A17-C2DE - Industries extractives, énergie, eau, gestion des déchets et dépollution ; Cokéfaction et raffinage 382835 389645 6810 1.78 0.03
ENS-PRIVE Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales) 19572467 19886248 313781 1.60 1.24
ENS-SAL Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) 25236587 25585671 349084 1.38 1.38
ENS-SMNA Secteurs marchands non agricoles 16922131 17151531 229400 1.36 0.91
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 8021586 8125329 103743 1.29 0.41
A5-GU A5-GU - Tertiaire marchand 12326548 12484958 158410 1.29 0.63
A5-OQ A5-OQ - Tertiaire non marchand 8021586 8125329 103743 1.29 0.41
A17-KZ A17-KZ - Activités financières et d'assurance 854325 864392 10067 1.18 0.04
A17-RU A17-RU - Autres activités de services 1210593 1219892 9299 0.77 0.04
ENS-PUBLIC Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales) 5664119 5699423 35304 0.62 0.14
78-20Z 78.20Z - Activités des agences de travail temporaire 765661 768605 2944 0.38 0.01
A17-HZ A17-HZ - Transports et entreposage 1385702 1383087 -2615 -0.19 -0.01
A5-BE A5-BE - Industrie manufacturière, industries extractives et autres 3146555 3134836 -11719 -0.37 -0.05
A17-C5 A17-C5 - Fabrication d'autres produits industriels 1395750 1378075 -17675 -1.27 -0.07
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 407954 401308 -6646 -1.63 -0.03
A17-C4 A17-C4 - Fabrication de matériels de transport 370077 358981 -11096 -3.00 -0.04
A17-IZ A17-IZ - Hébergement et restauration 1148544 1097722 -50822 -4.42 -0.20

A5

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(TIME_PERIOD %in% c("2019-Q4", "2021-Q2"),
         REF_AREA == "FM",
         grepl("A5", NAF2) | NAF2 == "ENS-SAL") %>%
  left_join(NAF2, by = "NAF2") %>%
  select_if(function(col) length(unique(col)) > 1) %>%
  select(NAF2, Naf2, TIME_PERIOD, OBS_VALUE) %>%
  spread(TIME_PERIOD, OBS_VALUE) %>%
  mutate(Difference = `2021-Q2` - `2019-Q4`,
         `%` = round(100*(`2021-Q2`/`2019-Q4`-1), 2),
         `Contrib (%)` = round(100*((`Difference`/`2019-Q4`[NAF2 == "ENS-SAL"])), 2)) %>%
  arrange(-`%`) %>%
  print_table_conditional()
NAF2 Naf2 2019-Q4 2021-Q2 Difference % Contrib (%)
A5-FZ A5-FZ - Construction 1449028 1531737 82709 5.71 0.33
A5-AZ A5-AZ - Agriculture, sylviculture et pêche 292870 308811 15941 5.44 0.06
ENS-SAL Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) 25236587 25585671 349084 1.38 1.38
A5-GU A5-GU - Tertiaire marchand 12326548 12484958 158410 1.29 0.63
A5-OQ A5-OQ - Tertiaire non marchand 8021586 8125329 103743 1.29 0.41
A5-BE A5-BE - Industrie manufacturière, industries extractives et autres 3146555 3134836 -11719 -0.37 -0.05

A17

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(TIME_PERIOD %in% c("2019-Q4", "2021-Q2"),
         REF_AREA == "FM",
         grepl("ENS", NAF2) | NAF2 == "ENS-SAL") %>%
  left_join(NAF2, by = "NAF2") %>%
  select_if(function(col) length(unique(col)) > 1) %>%
  select(NAF2, Naf2, TIME_PERIOD, OBS_VALUE) %>%
  spread(TIME_PERIOD, OBS_VALUE) %>%
  mutate(Difference = `2021-Q2` - `2019-Q4`,
         `%` = round(100*(`2021-Q2`/`2019-Q4`-1), 2),
         `Contrib (%)` = round(100*((`Difference`/`2019-Q4`[NAF2 == "ENS-SAL"])), 2)) %>%
  arrange(-`%`) %>%
  print_table_conditional()
NAF2 Naf2 2019-Q4 2021-Q2 Difference % Contrib (%)
ENS-PRIVE Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales) 19572467 19886248 313781 1.60 1.24
ENS-SAL Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) 25236587 25585671 349084 1.38 1.38
ENS-SMNA Secteurs marchands non agricoles 16922131 17151531 229400 1.36 0.91
ENS-PUBLIC Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales) 5664119 5699423 35304 0.62 0.14

Sectoriel par département (2011)

Paris, Seine-Saint-Denis, Hauts-de-Seine

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU", "A5-AZ", "A5-OQ"),
         REF_AREA %in% c("D92", "D93", "D75")) %>%
  quarter_to_date %>%
  select(date, REF_AREA, NAF2, OBS_VALUE) %>%
  spread(NAF2, OBS_VALUE) %>%
  mutate(`Total BE-FZ-GU` = `A5-BE` + `A5-FZ` + `A5-GU`,
         BE_share = `A5-BE`/ `Total BE-FZ-GU`) %>%
  ggplot + geom_line(aes(x = date, y = BE_share, color = REF_AREA, linetype = REF_AREA)) +
  xlab("") + ylab("Part emploi industriel (% BE-FZ-GU)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2020, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 120, 1),
                labels = percent_format(accuracy = 1)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())

Ain, Ariège

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU", "A5-AZ", "A5-OQ"),
         REF_AREA %in% c("D01", "D02", "D03")) %>%
  quarter_to_date %>%
  select(date, REF_AREA, NAF2, OBS_VALUE) %>%
  spread(NAF2, OBS_VALUE) %>%
  mutate(`Total BE-FZ-GU` = `A5-BE` + `A5-FZ` + `A5-GU`,
         BE_share = `A5-BE`/ `Total BE-FZ-GU`) %>%
  ggplot + geom_line(aes(x = date, y = BE_share, color = REF_AREA, linetype = REF_AREA)) +
  xlab("") + ylab("Part emploi industriel (% BE-FZ-GU)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2020, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 120, 1),
                labels = percent_format(accuracy = 1)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())

Industrie - depuis 2017Q2

C1, C2, C3

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(REF_AREA == "FM",
         NAF2 %in% c("A17-C1", "A17-C2DE", "A17-C3")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  left_join(NAF2, by = "NAF2") %>%
  group_by(NAF2) %>%
  filter(date >= as.Date("2017-04-01")) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-04-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2017-T2)") +  theme_minimal() +
  scale_x_date(breaks = "6 months",
               labels = date_format("%b %y")) +
  scale_y_log10(breaks = seq(0, 120, 1)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank())

C4, C5, BE

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A17-C4", "A17-C5")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  left_join(NAF2, by = "NAF2") %>%
  group_by(NAF2) %>%
  filter(date >= as.Date("2017-04-01")) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-04-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2017-T2)") +  theme_minimal() +
  scale_x_date(breaks = "6 months",
               labels = date_format("%b %y")) +
  scale_y_log10(breaks = seq(0, 120, 1)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = c(0.5, 0.3),
        legend.title = element_blank())

Tous

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(REF_AREA == "FM",
         NAF2 %in% c("A17-C1", "A17-C2DE", "A17-C3", "A17-C4", "A17-C5", "A5-BE")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  left_join(NAF2, by = "NAF2") %>%
  group_by(NAF2) %>%
  filter(date >= as.Date("2017-04-01")) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-04-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2017-T2)") +  theme_minimal() +
  scale_x_date(breaks = "6 months",
               labels = date_format("%b %y")) +
  scale_y_log10(breaks = seq(0, 120, 1),
                limits = c(95.5, 106)) +
  theme(legend.position = c(0.48, 0.88),
        legend.title = element_blank(),
        legend.key.size = unit(0.8, 'lines'))

Industrie

New

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(REF_AREA == "FM",
         NAF2 %in% c("A17-C3", "A17-C4", "A17-C5")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  left_join(NAF2, by = "NAF2") %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2001-10-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2001-T4)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 120, 10)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank())

C4, C5, BE

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(REF_AREA == "FM",
         NAF2 %in% c("A17-C4", "A17-C5", "A5-BE")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  left_join(NAF2, by = "NAF2") %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2001-10-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2001-T4)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 120, 10)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank())

BE-FZ-GU

2001-T4

Index

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  left_join(NAF2, by = "NAF2") %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2001-10-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2001-T4)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 120, 10)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = c(0.65, 0.5),
        legend.title = element_blank())

Nombre

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  group_by(NAF2) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE)) +
  xlab("") + ylab("Emploi Salarié Trimestriel dans l'industrie") +  theme_minimal() +
  scale_x_date(breaks = "1 year",
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(3000000, 6000000, 100000)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = "none") + 
  geom_text(x=as.Date("2021-03-01"), y=111, label="Construction", color = viridis(4)[2]) + 
  geom_text(x=as.Date("2021-03-01"), y=105, label="Tertiaire \nMarchand", color = viridis(4)[3]) + 
  geom_text(x=as.Date("2021-03-01"), y=100, label="Industrie", color = viridis(4)[1])

Depuis 2011

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  filter(date >= as.Date("2011-01-01")) %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2013-01-01")]) %>%
  mutate(Naf2 = case_when(NAF2 == "A5-BE" ~ "BE - Industrie",
                          NAF2 == "A5-FZ" ~ "FZ - Construction",
                          NAF2 == "A5-GU" ~ "GU - Tertiaire marchand")) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2016-Q1)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 120, 1)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())

Depuis 2017-Q2

Table

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU")) %>%
  quarter_to_date %>%
  mutate(Naf2 = case_when(NAF2 == "A5-BE" ~ "BE - Industrie",
                          NAF2 == "A5-FZ" ~ "FZ - Construction",
                          NAF2 == "A5-GU" ~ "GU - Tertiaire marchand")) %>%
  select(date, Naf2, OBS_VALUE) %>%
  filter(date >= as.Date("2017-04-01")) %>%
  spread(Naf2, OBS_VALUE) %>%
  print_table_conditional()
date BE - Industrie FZ - Construction GU - Tertiaire marchand
2017-04-01 3108229 1348676 11826989
2017-07-01 3105100 1351646 11868840
2017-10-01 3110127 1356524 11967020
2018-01-01 3108871 1363435 12019410
2018-04-01 3112851 1371595 12040077
2018-07-01 3113361 1384629 12059821
2018-10-01 3121382 1392688 12093124
2019-01-01 3131693 1410482 12208262
2019-04-01 3137972 1423154 12217212
2019-07-01 3141459 1436102 12240516
2019-10-01 3146555 1449028 12326548
2020-01-01 3135244 1444299 11886504
2020-04-01 3119386 1459841 11826957
2020-07-01 3118465 1482361 12189109
2020-10-01 3115691 1499984 12158478
2021-01-01 3125492 1519099 12271501
2021-04-01 3134836 1531737 12484958
2021-07-01 3146119 1542139 12656397
2021-10-01 3154152 1547634 12809694
2022-01-01 3155862 1550846 12886161
2022-04-01 3163324 1552349 12919712
2022-07-01 3175021 1552388 12993010
2022-10-01 3181107 1554253 13057917
2023-01-01 3188459 1552468 13080688
2023-04-01 3196098 1549963 13116431
2023-07-01 3206677 1545933 13133049
2023-10-01 3216190 1542005 13118849
2024-01-01 3223528 1534451 13161488
2024-04-01 3227912 1526398 13140403
2024-07-01 3228313 1523542 13150493

Index

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU")) %>%
  quarter_to_date %>%
  arrange(date) %>%
  select(date, NAF2, OBS_VALUE) %>%
  filter(date >= as.Date("2017-07-01")) %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-07-01")]) %>%
  mutate(Naf2 = case_when(NAF2 == "A5-BE" ~ "BE - Industrie",
                          NAF2 == "A5-FZ" ~ "FZ - Construction",
                          NAF2 == "A5-GU" ~ "GU - Tertiaire marchand"))%>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2017-T3)") +  theme_minimal() +
  scale_x_date(breaks = "6 months",
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = seq(0, 120, 1)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = "none") + 
  geom_text(x=as.Date("2021-03-01"), y=111, label="Construction", color = viridis(4)[2]) + 
  geom_text(x=as.Date("2021-03-01"), y=105, label="Tertiaire \nMarchand", color = viridis(4)[3]) + 
  geom_text(x=as.Date("2021-03-01"), y=100, label="Industrie", color = viridis(4)[1])

Nombre

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  filter(date >= as.Date("2017-04-01")) %>%
  group_by(NAF2) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE)) +
  xlab("") + ylab("Emploi Salarié Trimestriel dans l'Industrie") +  theme_minimal() +
  scale_x_date(breaks = "3 months",
               labels = date_format("%m-%y")) +
  scale_y_continuous(breaks = seq(3000000, 3600000, 5000),
                     labels = dollar_format(prefix = "")) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = "none") + 
  geom_text(x=as.Date("2021-03-01"), y=111, label="Construction", color = viridis(4)[2]) + 
  geom_text(x=as.Date("2021-03-01"), y=105, label="Tertiaire \nMarchand", color = viridis(4)[3]) + 
  geom_text(x=as.Date("2021-03-01"), y=100, label="Industrie", color = viridis(4)[1])

Depuis 2020-Q4

Index

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  filter(date >= as.Date("2020-10-01")) %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2020-10-01")]) %>%
  mutate(Naf2 = case_when(NAF2 == "A5-BE" ~ "BE - Industrie",
                          NAF2 == "A5-FZ" ~ "FZ - Construction",
                          NAF2 == "A5-GU" ~ "GU - Tertiaire marchand"))%>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2017-Q2)") +  theme_minimal() +
  scale_x_date(breaks = "1 month",
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = seq(0, 120, 1)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = "none") + 
  geom_text(x=as.Date("2021-03-01"), y=111, label="Construction", color = viridis(4)[2]) + 
  geom_text(x=as.Date("2021-03-01"), y=105, label="Tertiaire \nMarchand", color = viridis(4)[3]) + 
  geom_text(x=as.Date("2021-03-01"), y=100, label="Industrie", color = viridis(4)[1])

Nombre

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  filter(date >= as.Date("2020-10-01")) %>%
  group_by(NAF2) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE)) +
  xlab("") + ylab("Emploi Salarié Trimestriel dans l'Industrie") +  theme_minimal() +
  scale_x_date(breaks = "1 month",
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = seq(3000000, 3400000, 1000)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = "none") + 
  geom_text(x=as.Date("2021-03-01"), y=111, label="Construction", color = viridis(4)[2]) + 
  geom_text(x=as.Date("2021-03-01"), y=105, label="Tertiaire \nMarchand", color = viridis(4)[3]) + 
  geom_text(x=as.Date("2021-03-01"), y=100, label="Industrie", color = viridis(4)[1])

Depuis 2015

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  filter(date >= as.Date("2015-01-01")) %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2015-01-01")]) %>%
  mutate(Naf2 = case_when(NAF2 == "A5-BE" ~ "BE - Industrie",
                          NAF2 == "A5-FZ" ~ "FZ - Construction",
                          NAF2 == "A5-GU" ~ "GU - Tertiaire marchand"))%>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2016-Q1)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 120, 1)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())

Depuis 2016

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU", "ENS-SAL")) %>%
  quarter_to_date %>%
  arrange(date) %>%
  select(date, NAF2, OBS_VALUE) %>%
  filter(date >= as.Date("2016-01-01")) %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2016-01-01")]) %>%
  mutate(Naf2 = case_when(NAF2 == "A5-BE" ~ "BE - Industrie",
                          NAF2 == "A5-FZ" ~ "FZ - Construction",
                          NAF2 == "A5-GU" ~ "GU - Tertiaire marchand",
                          NAF2 == "ENS-SAL" ~ "Ensemble des salariés")) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2016-Q1)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 120, 1)) +
  #scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())

Depuis 2012

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU")) %>%
  quarter_to_date %>%
  select(date, NAF2, OBS_VALUE) %>%
  filter(date >= as.Date("2012-01-01")) %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2016-01-01")]) %>%
  mutate(Naf2 = case_when(NAF2 == "A5-BE" ~ "BE - Industrie",
                          NAF2 == "A5-FZ" ~ "FZ - Construction",
                          NAF2 == "A5-GU" ~ "GU - Tertiaire marchand"))%>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2016-Q1)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 120, 1)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())

BE-FZ-GU-AZ-OQ

2011T1-

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU", "A5-AZ", "A5-OQ")) %>%
  quarter_to_date %>%
  left_join(NAF2, by = "NAF2") %>%
  filter(date >= as.Date("2011-01-01")) %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-04-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2011T1)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 120, 2)) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

2017T2-

Code 
`TCRED-EMPLOI-SALARIE-TRIM` %>%
  filter(grepl("A5-", NAF2),
         REF_AREA == "FM",
         NAF2 %in% c("A5-BE", "A5-FZ", "A5-GU", "A5-AZ", "A5-OQ")) %>%
  quarter_to_date %>%
  left_join(NAF2, by = "NAF2") %>%
  filter(date >= as.Date("2017-04-01")) %>%
  group_by(NAF2) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-04-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2017-Q2)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 120, 1)) +
  theme(legend.position = c(0.4, 0.8),
        legend.title = element_blank())