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

Data - INSEE

Auteur

Info

Related employment datasets

source	dataset	Title	Download	Compile
bls	jt	Job Openings and Labor Turnover Survey - JT	NA	[2025-08-25]
bls	la	Local Area Unemployment Statistics - LA	NA	[2025-08-25]
bls	ln	Labor Force Statistics including the National Unemployment Rate - LN	NA	[2025-08-25]
eurostat	nama_10_a10_e	Employment by A*10 industry breakdowns	2025-12-27	[2025-12-27]
eurostat	nama_10_a64_e	National accounts employment data by industry (up to NACE A*64)	2025-12-27	[2025-12-27]
eurostat	namq_10_a10_e	Employment A*10 industry breakdowns	2025-12-27	[2025-05-24]
eurostat	une_rt_m	Unemployment by sex and age – monthly data	2025-12-27	[2025-12-25]
oecd	ALFS_EMP	Employment by activities and status (ALFS)	2025-05-24	[2024-04-16]
oecd	EPL_T	Strictness of employment protection – temporary contracts	2023-12-10	[2025-12-26]
oecd	LFS_SEXAGE_I_R	LFS by sex and age - indicators	2024-04-15	[2025-12-26]
oecd	STLABOUR	Short-Term Labour Market Statistics	2025-01-17	[2025-12-26]

LAST_UPDATE

LAST_UPDATE	Nobs
2025-12-19	104940
2019-03-29	6624
2018-03-30	6240

LAST_COMPILE

LAST_COMPILE
2025-12-27

Last

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

A5

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

A17

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

ENS

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

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	593529	702012	574500	745591	768635
A17-AZ - Agriculture, sylviculture et pêche	NA	NA	256677	286875	302695
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac	595637	573966	559610	572496	606853
A17-C2DE - Industries extractives, énergie, eau, gestion des déchets et dépollution ; Cokéfaction et raffinage	374037	377155	381276	378389	389695
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines	578426	502644	432962	401416	401381
A17-C4 - Fabrication de matériels de transport	469836	441314	392614	366641	359290
A17-C5 - Fabrication d'autres produits industriels	2050529	1736260	1486779	1388949	1378339
A17-FZ - Construction	1317018	1495107	1466410	1348197	1531384
A17-GZ - Commerce ; réparation d'automobiles et de motocycles	2965310	3068943	3057185	3085738	3237633
A17-HZ - Transports et entreposage	1345844	1342014	1326792	1337127	1382817
A17-IZ - Hébergement et restauration	841993	941400	999913	1058402	1100512
A17-JZ - Information et communication	678214	680367	708361	748684	854185
A17-KZ - Activités financières et d'assurance	747559	801790	818261	837458	864735
A17-LZ - Activités immobilières	218055	232615	226792	235001	253719
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien	2597068	2940490	2923929	3310390	3577706
A17-MNO - Activités scientifiques et techniques ; services administratifs et de soutien ; hors intérim	2003539	2238478	2349430	2564799	2809072
A17-OQ - Administration publique, enseignement, santé humaine et action sociale	NA	NA	7805733	8049807	8122965
A17-RU - Autres activités de services	1085939	1202369	1248305	1215792	1218060
A5-AZ - Agriculture, sylviculture et pêche	NA	NA	256677	286875	302695
A5-BE - Industrie manufacturière, industries extractives et autres	4068465	3631338	3253242	3107889	3135557
A5-FZ - Construction	1317018	1495107	1466410	1348197	1531384
A5-GU - Tertiaire marchand	10479980	11209988	11309540	11828592	12489367
A5-OQ - Tertiaire non marchand	NA	NA	7805733	8049807	8122965
Ensemble des salariés - Toutes les sections (hors activités extra-territoriales)	NA	NA	24091602	24621360	25581969
Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales)	NA	NA	18573448	18937315	19884678
Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales)	NA	NA	5518154	5684045	5697291
Secteurs marchands non agricoles	15865463	16336433	16029192	16284678	17156309

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	256677	286875	302695
A5-BE - Industrie manufacturière, industries extractives et autres	4068465	3631338	3253242	3107889	3135557
A5-FZ - Construction	1317018	1495107	1466410	1348197	1531384
A5-GU - Tertiaire marchand	10479980	11209988	11309540	11828592	12489367
A5-OQ - Tertiaire non marchand	NA	NA	7805733	8049807	8122965
Ensemble des salariés - Toutes les sections (hors activités extra-territoriales)	NA	NA	24091602	24621360	25581969

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	256677	286875	302695
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac	595637	573966	559610	572496	606853
A17-C2DE - Industries extractives, énergie, eau, gestion des déchets et dépollution ; Cokéfaction et raffinage	374037	377155	381276	378389	389695
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines	578426	502644	432962	401416	401381
A17-C4 - Fabrication de matériels de transport	469836	441314	392614	366641	359290
A17-C5 - Fabrication d'autres produits industriels	2050529	1736260	1486779	1388949	1378339
A17-FZ - Construction	1317018	1495107	1466410	1348197	1531384
A17-GZ - Commerce ; réparation d'automobiles et de motocycles	2965310	3068943	3057185	3085738	3237633
A17-HZ - Transports et entreposage	1345844	1342014	1326792	1337127	1382817
A17-IZ - Hébergement et restauration	841993	941400	999913	1058402	1100512
A17-JZ - Information et communication	678214	680367	708361	748684	854185
A17-KZ - Activités financières et d'assurance	747559	801790	818261	837458	864735
A17-LZ - Activités immobilières	218055	232615	226792	235001	253719
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien	2597068	2940490	2923929	3310390	3577706
A17-MNO - Activités scientifiques et techniques ; services administratifs et de soutien ; hors intérim	2003539	2238478	2349430	2564799	2809072
A17-OQ - Administration publique, enseignement, santé humaine et action sociale	NA	NA	7805733	8049807	8122965
A17-RU - Autres activités de services	1085939	1202369	1248305	1215792	1218060
Ensemble des salariés - Toutes les sections (hors activités extra-territoriales)	NA	NA	24091602	24621360	25581969

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	24091602	24621360	25581969
Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales)	NA	NA	18573448	18937315	19884678
Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales)	NA	NA	5518154	5684045	5697291
Secteurs marchands non agricoles	15865463	16336433	16029192	16284678	17156309

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	1448659	1531384	82725	5.71	0.33
A5-FZ	A5-FZ - Construction	1448659	1531384	82725	5.71	0.33
A17-JZ	A17-JZ - Information et communication	815339	854185	38846	4.76	0.15
A17-LZ	A17-LZ - Activités immobilières	243603	253719	10116	4.15	0.04
A17-AZ	A17-AZ - Agriculture, sylviculture et pêche	293574	302695	9121	3.11	0.04
A5-AZ	A5-AZ - Agriculture, sylviculture et pêche	293574	302695	9121	3.11	0.04
A17-C1	A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac	589889	606853	16964	2.88	0.07
A17-GZ	A17-GZ - Commerce ; réparation d'automobiles et de motocycles	3160309	3237633	77324	2.45	0.31
A17-MNO	A17-MNO - Activités scientifiques et techniques ; services administratifs et de soutien ; hors intérim	2742923	2809072	66149	2.41	0.26
A17-MN	A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien	3508726	3577706	68980	1.97	0.27
A17-C2DE	A17-C2DE - Industries extractives, énergie, eau, gestion des déchets et dépollution ; Cokéfaction et raffinage	382785	389695	6910	1.81	0.03
ENS-PRIVE	Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales)	19569248	19884678	315430	1.61	1.25
ENS-SMNA	Secteurs marchands non agricoles	16918823	17156309	237486	1.40	0.94
ENS-SAL	Ensemble des salariés - Toutes les sections (hors activités extra-territoriales)	25235111	25581969	346858	1.37	1.37
A5-GU	A5-GU - Tertiaire marchand	12323964	12489367	165403	1.34	0.66
A17-KZ	A17-KZ - Activités financières et d'assurance	853957	864735	10778	1.26	0.04
A17-OQ	A17-OQ - Administration publique, enseignement, santé humaine et action sociale	8022714	8122965	100251	1.25	0.40
A5-OQ	A5-OQ - Tertiaire non marchand	8022714	8122965	100251	1.25	0.40
A17-RU	A17-RU - Autres activités de services	1208658	1218060	9402	0.78	0.04
ENS-PUBLIC	Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales)	5665863	5697291	31428	0.55	0.12
78-20Z	78.20Z - Activités des agences de travail temporaire	765804	768635	2831	0.37	0.01
A17-HZ	A17-HZ - Transports et entreposage	1385890	1382817	-3073	-0.22	-0.01
A5-BE	A5-BE - Industrie manufacturière, industries extractives et autres	3146200	3135557	-10643	-0.34	-0.04
A17-C5	A17-C5 - Fabrication d'autres produits industriels	1395576	1378339	-17237	-1.24	-0.07
A17-C3	A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines	408018	401381	-6637	-1.63	-0.03
A17-C4	A17-C4 - Fabrication de matériels de transport	369933	359290	-10643	-2.88	-0.04
A17-IZ	A17-IZ - Hébergement et restauration	1147483	1100512	-46971	-4.09	-0.19

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	1448659	1531384	82725	5.71	0.33
A5-AZ	A5-AZ - Agriculture, sylviculture et pêche	293574	302695	9121	3.11	0.04
ENS-SAL	Ensemble des salariés - Toutes les sections (hors activités extra-territoriales)	25235111	25581969	346858	1.37	1.37
A5-GU	A5-GU - Tertiaire marchand	12323964	12489367	165403	1.34	0.66
A5-OQ	A5-OQ - Tertiaire non marchand	8022714	8122965	100251	1.25	0.40
A5-BE	A5-BE - Industrie manufacturière, industries extractives et autres	3146200	3135557	-10643	-0.34	-0.04

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)	19569248	19884678	315430	1.61	1.25
ENS-SMNA	Secteurs marchands non agricoles	16918823	17156309	237486	1.40	0.94
ENS-SAL	Ensemble des salariés - Toutes les sections (hors activités extra-territoriales)	25235111	25581969	346858	1.37	1.37
ENS-PUBLIC	Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales)	5665863	5697291	31428	0.55	0.12

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()

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())