Estimations d’emploi salarié par secteur d’activité et par département - TCRED-EMPLOI-SALARIE-TRIM

Données - INSEE

Auteur

François Geerolf

Last observation: Q2 2026 (N = 1281)

First observation: Q4 2001 (N = 972)

Last data update: 23 sept. 2026, 22:57

Last compile: 24 sept. 2026, 01:53

Structure

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 593529 702013 574501 745602 768852
A17-AZ NA NA 256742 286739 302899
A17-C1 595637 573966 559610 572415 607100
A17-C2DE 374037 377155 381276 378309 389517
A17-C3 578426 502644 432962 401759 401790
A17-C4 469836 441314 392614 367168 360028
A17-C5 2050529 1736260 1486779 1392903 1382481
A17-FZ 1317018 1495107 1466410 1347753 1531295
A17-GZ 2965310 3068943 3057185 3089518 3241417
A17-HZ 1345844 1342014 1326792 1335908 1382496
A17-IZ 841993 941400 999913 1057613 1101690
A17-JZ 678214 680367 708361 746278 852804
A17-KZ 747559 801790 818261 836836 864337
A17-LZ 218055 232615 226792 235150 254067
A17-MN 2597068 2940491 2923948 3309755 3577070
A17-MNO 2003539 2238478 2349447 2564152 2808218
A17-OQ NA NA 7806020 8049781 8122530
A17-RU 1085938 1202368 1248818 1215379 1223084
A5-AZ NA NA 256742 286739 302899
A5-BE 4068465 3631338 3253242 3112554 3140916
A5-FZ 1317018 1495107 1466410 1347753 1531295
A5-GU 10479980 11209988 11310071 11826436 12496965
A5-OQ NA NA 7806020 8049781 8122530
ENS-PRIVE NA NA 18574283 18939187 19896630
ENS-PUBLIC NA NA 5518202 5684077 5697974
ENS-SAL NA NA 24092485 24623264 25594605
ENS-SMNA 15865463 16336433 16029723 16286744 17169176

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 256742 286739 302899
A5-BE 4068465 3631338 3253242 3112554 3140916
A5-FZ 1317018 1495107 1466410 1347753 1531295
A5-GU 10479980 11209988 11310071 11826436 12496965
A5-OQ NA NA 7806020 8049781 8122530
ENS-SAL NA NA 24092485 24623264 25594605

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 256742 286739 302899
A17-C1 595637 573966 559610 572415 607100
A17-C2DE 374037 377155 381276 378309 389517
A17-C3 578426 502644 432962 401759 401790
A17-C4 469836 441314 392614 367168 360028
A17-C5 2050529 1736260 1486779 1392903 1382481
A17-FZ 1317018 1495107 1466410 1347753 1531295
A17-GZ 2965310 3068943 3057185 3089518 3241417
A17-HZ 1345844 1342014 1326792 1335908 1382496
A17-IZ 841993 941400 999913 1057613 1101690
A17-JZ 678214 680367 708361 746278 852804
A17-KZ 747559 801790 818261 836836 864337
A17-LZ 218055 232615 226792 235150 254067
A17-MN 2597068 2940491 2923948 3309755 3577070
A17-MNO 2003539 2238478 2349447 2564152 2808218
A17-OQ NA NA 7806020 8049781 8122530
A17-RU 1085938 1202368 1248818 1215379 1223084
ENS-SAL NA NA 24092485 24623264 25594605

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 18574283 18939187 19896630
ENS-PUBLIC NA NA 5518202 5684077 5697974
ENS-SAL NA NA 24092485 24623264 25594605
ENS-SMNA 15865463 16336433 16029723 16286744 17169176

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 1447790 1531295 83505 5.77 0.33
A5-FZ 1447790 1531295 83505 5.77 0.33
A17-LZ 243485 254067 10582 4.35 0.04
A17-JZ 817493 852804 35311 4.32 0.14
A17-AZ 293587 302899 9312 3.17 0.04
A5-AZ 293587 302899 9312 3.17 0.04
A17-C1 589894 607100 17206 2.92 0.07
A17-GZ 3162955 3241417 78462 2.48 0.31
A17-MNO 2745000 2808218 63218 2.30 0.25
A17-MN 3510815 3577070 66255 1.89 0.26
A17-C2DE 382873 389517 6644 1.74 0.03
ENS-PRIVE 19576666 19896630 319964 1.63 1.27
ENS-SMNA 16925902 17169176 243274 1.44 0.96
ENS-SAL 25242919 25594605 351686 1.39 1.39
A5-GU 12333065 12496965 163900 1.33 0.65
A17-OQ 8023431 8122530 99099 1.24 0.39
A5-OQ 8023431 8122530 99099 1.24 0.39
A17-KZ 854242 864337 10095 1.18 0.04
A17-RU 1210678 1223084 12406 1.02 0.05
ENS-PUBLIC 5666253 5697974 31721 0.56 0.13
78-20Z 765816 768852 3036 0.40 0.01
A5-BE 3145047 3140916 -4131 -0.13 -0.02
A17-HZ 1385791 1382496 -3295 -0.24 -0.01
A17-C5 1394658 1382481 -12177 -0.87 -0.05
A17-C3 408017 401790 -6227 -1.53 -0.02
A17-C4 369605 360028 -9577 -2.59 -0.04
A17-IZ 1147605 1101690 -45915 -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 1447790 1531295 83505 5.77 0.33
A5-AZ 293587 302899 9312 3.17 0.04
ENS-SAL 25242919 25594605 351686 1.39 1.39
A5-GU 12333065 12496965 163900 1.33 0.65
A5-OQ 8023431 8122530 99099 1.24 0.39
A5-BE 3145047 3140916 -4131 -0.13 -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 19576666 19896630 319964 1.63 1.27
ENS-SMNA 16925902 17169176 243274 1.44 0.96
ENS-SAL 25242919 25594605 351686 1.39 1.39
ENS-PUBLIC 5666253 5697974 31721 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())