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

Données - INSEE

Auteur

François Geerolf

Info

Last observation: Trimestrielle: 2026-Q1 (N = 1,281)

First observation: Trimestrielle: 2001-Q4 (N = 972)

Number of observations: 120 366

Last data update: 14 aoû 2026, 23:21. Last compile: 15 aoû 2026, 05:09

Structure

Related employment datasets

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

LAST_COMPILE

LAST_COMPILE
2026-08-15

Last

TIME_PERIOD	Nobs
2026-Q1	1281

Champ

2001-
A17
Départements

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") |>
  
  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	593530	702013	574501	745544	768157
A17-AZ	NA	NA	256649	286947	302631
A17-C1	595637	573966	559610	572364	607074
A17-C2DE	374037	377155	381276	378285	389494
A17-C3	578426	502644	432962	401381	401838
A17-C4	469836	441314	392614	367157	359910
A17-C5	2050529	1736260	1486779	1391971	1381152
A17-FZ	1317018	1495107	1466410	1347970	1531414
A17-GZ	2965310	3068943	3057185	3089450	3241326
A17-HZ	1345844	1342014	1326792	1335714	1382409
A17-IZ	841993	941400	999913	1057729	1101723
A17-JZ	678214	680367	708361	746065	852453
A17-KZ	747559	801790	818261	836827	864452
A17-LZ	218055	232615	226792	235102	253931
A17-MN	2597069	2940491	2923949	3310344	3576182
A17-MNO	2003539	2238478	2349448	2564801	2808025
A17-OQ	NA	NA	7806211	8049721	8122500
A17-RU	1085938	1202369	1248819	1214568	1221793
A5-AZ	NA	NA	256649	286947	302631
A5-BE	4068465	3631338	3253242	3111159	3139468
A5-FZ	1317018	1495107	1466410	1347970	1531414
A5-GU	10479981	11209989	11310074	11825799	12494269
A5-OQ	NA	NA	7806211	8049721	8122500
ENS-PRIVE	NA	NA	18574389	18937513	19892295
ENS-PUBLIC	NA	NA	5518197	5684082	5697987
ENS-SAL	NA	NA	24092587	24621595	25590282
ENS-SMNA	15865463	16336433	16029726	16284927	17165151

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") |>
  
  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	NA	NA	256649	286947	302631
A5-BE	4068465	3631338	3253242	3111159	3139468
A5-FZ	1317018	1495107	1466410	1347970	1531414
A5-GU	10479981	11209989	11310074	11825799	12494269
A5-OQ	NA	NA	7806211	8049721	8122500
ENS-SAL	NA	NA	24092587	24621595	25590282

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") |>
  
  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	NA	NA	256649	286947	302631
A17-C1	595637	573966	559610	572364	607074
A17-C2DE	374037	377155	381276	378285	389494
A17-C3	578426	502644	432962	401381	401838
A17-C4	469836	441314	392614	367157	359910
A17-C5	2050529	1736260	1486779	1391971	1381152
A17-FZ	1317018	1495107	1466410	1347970	1531414
A17-GZ	2965310	3068943	3057185	3089450	3241326
A17-HZ	1345844	1342014	1326792	1335714	1382409
A17-IZ	841993	941400	999913	1057729	1101723
A17-JZ	678214	680367	708361	746065	852453
A17-KZ	747559	801790	818261	836827	864452
A17-LZ	218055	232615	226792	235102	253931
A17-MN	2597069	2940491	2923949	3310344	3576182
A17-MNO	2003539	2238478	2349448	2564801	2808025
A17-OQ	NA	NA	7806211	8049721	8122500
A17-RU	1085938	1202369	1248819	1214568	1221793
ENS-SAL	NA	NA	24092587	24621595	25590282

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") |>
  
  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
ENS-PRIVE	NA	NA	18574389	18937513	19892295
ENS-PUBLIC	NA	NA	5518197	5684082	5697987
ENS-SAL	NA	NA	24092587	24621595	25590282
ENS-SMNA	15865463	16336433	16029726	16284927	17165151

Covid-19, Depuis 2019-Q4

Tous

Code

`TCRED-EMPLOI-SALARIE-TRIM` |>
  filter(TIME_PERIOD %in% c("2019-Q4", "2021-Q2"),
         REF_AREA == "FM") |>
  
  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	2019-Q4	2021-Q2	Difference	%	Contrib (%)
A17-FZ	1447769	1531414	83645	5.78	0.33
A5-FZ	1447769	1531414	83645	5.78	0.33
A17-LZ	243475	253931	10456	4.29	0.04
A17-JZ	817431	852453	35022	4.28	0.14
A17-AZ	293570	302631	9061	3.09	0.04
A5-AZ	293570	302631	9061	3.09	0.04
A17-C1	589896	607074	17178	2.91	0.07
A17-GZ	3162855	3241326	78471	2.48	0.31
A17-MNO	2744950	2808025	63075	2.30	0.25
A17-MN	3510764	3576182	65418	1.86	0.26
A17-C2DE	382857	389494	6637	1.73	0.03
ENS-PRIVE	19577296	19892295	314999	1.61	1.25
ENS-SMNA	16926621	17165151	238530	1.41	0.94
ENS-SAL	25243558	25590282	346724	1.37	1.37
A5-GU	12333302	12494269	160967	1.31	0.64
A17-OQ	8023367	8122500	99133	1.24	0.39
A5-OQ	8023367	8122500	99133	1.24	0.39
A17-KZ	854320	864452	10132	1.19	0.04
A17-RU	1211015	1221793	10778	0.89	0.04
ENS-PUBLIC	5666263	5697987	31724	0.56	0.13
78-20Z	765814	768157	2343	0.31	0.01
A5-BE	3145550	3139468	-6082	-0.19	-0.02
A17-HZ	1385781	1382409	-3372	-0.24	-0.01
A17-C5	1394881	1381152	-13729	-0.98	-0.05
A17-C3	408307	401838	-6469	-1.58	-0.03
A17-C4	369608	359910	-9698	-2.62	-0.04
A17-IZ	1147660	1101723	-45937	-4.00	-0.18

A5

Code

`TCRED-EMPLOI-SALARIE-TRIM` |>
  filter(TIME_PERIOD %in% c("2019-Q4", "2021-Q2"),
         REF_AREA == "FM",
         grepl("A5", NAF2) | NAF2 == "ENS-SAL") |>
  
  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	2019-Q4	2021-Q2	Difference	%	Contrib (%)
A5-FZ	1447769	1531414	83645	5.78	0.33
A5-AZ	293570	302631	9061	3.09	0.04
ENS-SAL	25243558	25590282	346724	1.37	1.37
A5-GU	12333302	12494269	160967	1.31	0.64
A5-OQ	8023367	8122500	99133	1.24	0.39
A5-BE	3145550	3139468	-6082	-0.19	-0.02

A17

Code

`TCRED-EMPLOI-SALARIE-TRIM` |>
  filter(TIME_PERIOD %in% c("2019-Q4", "2021-Q2"),
         REF_AREA == "FM",
         grepl("ENS", NAF2) | NAF2 == "ENS-SAL") |>
  
  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	2019-Q4	2021-Q2	Difference	%	Contrib (%)
ENS-PRIVE	19577296	19892295	314999	1.61	1.25
ENS-SMNA	16926621	17165151	238530	1.41	0.94
ENS-SAL	25243558	25590282	346724	1.37	1.37
ENS-PUBLIC	5666263	5697987	31724	0.56	0.13

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