source | dataset | .html | .RData |
---|---|---|---|
insee | EMPLOI-SALARIE-TRIM-NATIONAL | 2024-10-29 | 2024-11-05 |
Estimations d’emploi salarié par secteur d’activité
Data - INSEE
Info
Données sur l’emploi
source | dataset | .html | .RData |
---|---|---|---|
insee | CHOMAGE-TRIM-NATIONAL | 2024-11-05 | 2024-11-05 |
insee | CNA-2014-EMPLOI | 2024-06-07 | 2024-11-05 |
insee | DEMANDES-EMPLOIS-NATIONALES | 2024-11-05 | 2024-11-05 |
insee | EMPLOI-BIT-TRIM | 2024-06-07 | 2024-11-05 |
insee | EMPLOI-SALARIE-TRIM-NATIONAL | 2024-10-29 | 2024-11-05 |
insee | TAUX-CHOMAGE | 2024-10-29 | 2024-11-05 |
insee | TCRED-EMPLOI-SALARIE-TRIM | 2024-10-29 | 2024-11-05 |
Exemples
Au quatrième trimestre 2022, l’emploi salarié augmente de 0,2 %. html / pdf
Au troisième trimestre 2022, l’emploi salarié augmente de 0,4 %. html / pdf
Au deuxième trimestre 2022, l’emploi salarié augmente de 0,4 %. html / pdf
Au premier trimestre 2022, l’emploi salarié augmente de 0,3 %. html / pdf
LAST_UPDATE
LAST_UPDATE | Nobs |
---|---|
2024-08-30 | 11907 |
2017-05-12 | 186 |
LAST_COMPILE
LAST_COMPILE |
---|
2024-11-05 |
Last
TIME_PERIOD | Nobs |
---|---|
2024-Q2 | 79 |
Champ
1970-
A5
National
NAF2
Liste
First, 2000, 2010, Last
NAF2_RGP
Liste
NAF2_RGP | Naf2_rgp | Nobs |
---|---|---|
SO | Sans objet | 10489 |
BE | Industrie | 215 |
FZ | Construction | 215 |
GU | Tertiaire marchand | 215 |
BN_RU | Secteurs principalement marchands | 186 |
GU_HI | Tertiaire marchand hors intérim | 139 |
IND_MANUF | Industrie manufacturière | 139 |
AZ_PRIV | Agriculture, sylviculture, pêche - Établissements privés | 55 |
FZ_PRIV | Construction - Établissements privés | 55 |
GU_PRIV | Tertiaire marchand - Établissements privés | 55 |
IND_PRIV | Industrie - Établissements privés | 55 |
OQ_PRIV | Tertiaire non marchand - Établissements privés | 55 |
OQ_RGP | Tertiaire non marchand | 55 |
TOT_ENS | Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) | 55 |
TOT_PRIV | Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales), privé | 55 |
TOT_PUB | Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales), public | 55 |
First, 2000, 2010, Last
Naf2_rgp | 1970-10-01 | 2000-01-01 | 2010-01-01 | 2024-04-01 |
---|---|---|---|---|
Agriculture, sylviculture, pêche - Établissements privés | NA | NA | NA | 308.7 |
Construction | 1807.9 | 1269.6 | 1524.0 | 1559.8 |
Construction - Établissements privés | NA | NA | NA | 1558.2 |
Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) | NA | NA | NA | 27129.5 |
Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales), privé | NA | NA | NA | 21093.8 |
Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales), public | NA | NA | NA | 6035.7 |
Industrie | 5440.3 | 4034.1 | 3365.7 | 3272.4 |
Industrie - Établissements privés | NA | NA | NA | 3209.5 |
Industrie manufacturière | NA | 3678.3 | 2992.5 | 2860.0 |
Secteurs principalement marchands | 12409.6 | 15160.6 | 15932.5 | NA |
Tertiaire marchand | 5320.0 | 10076.3 | 11339.3 | 13411.6 |
Tertiaire marchand - Établissements privés | NA | NA | NA | 13253.4 |
Tertiaire marchand hors intérim | NA | 9453.7 | 10783.5 | 12674.9 |
Tertiaire non marchand | NA | NA | NA | 8576.2 |
Tertiaire non marchand - Établissements privés | NA | NA | NA | 2764.0 |
TIME_PERIOD / date
Tous
Minimum - 1970-Q4
NAF2 | Naf2 | NAF2_RGP | Naf2_rgp | OBS_VALUE |
---|---|---|---|---|
SO | Sans objet | BN_RU | Secteurs principalement marchands | 12409.6 |
SO | Sans objet | BE | Industrie | 5440.3 |
SO | Sans objet | FZ | Construction | 1807.9 |
SO | Sans objet | GU | Tertiaire marchand | 5320.0 |
A17-DE | A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution | SO | Sans objet | 294.7 |
A17-C1 | A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | SO | Sans objet | 514.1 |
A17-C2 | A17-C2 - Cokéfaction et raffinage | SO | Sans objet | 36.3 |
A17-C3 | A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines | SO | Sans objet | 758.3 |
A17-C4 | A17-C4 - Fabrication de matériels de transport | SO | Sans objet | 599.7 |
A17-C5 | A17-C5 - Fabrication d'autres produits industriels | SO | Sans objet | 3237.3 |
A17-FZ | A17-FZ - Construction | SO | Sans objet | 1807.9 |
A17-GZ | A17-GZ - Commerce ; réparation d'automobiles et de motocycles | SO | Sans objet | 1807.6 |
A17-HZ | A17-HZ - Transports et entreposage | SO | Sans objet | 983.8 |
A17-IZ | A17-IZ - Hébergement et restauration | SO | Sans objet | 462.8 |
A17-JZ | A17-JZ - Information et communication | SO | Sans objet | 303.6 |
A17-KZ | A17-KZ - Activités financières et d'assurance | SO | Sans objet | 372.2 |
A17-LZ | A17-LZ - Activités immobilières | SO | Sans objet | 111.0 |
A17-MN | A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien | SO | Sans objet | 800.8 |
A17-RU | A17-RU - Autres activités de services | SO | Sans objet | 478.1 |
A38-CA | A38-CA - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | SO | Sans objet | 514.1 |
A38-CD | A38-CD - Cokéfaction et raffinage | SO | Sans objet | 36.3 |
A38-CL | A38-CL - Fabrication de matériels de transport | SO | Sans objet | 599.7 |
A38-FZ | A38-FZ - Construction | SO | Sans objet | 1807.9 |
A38-GZ | A38-GZ - Commerce; réparation d'automobiles et de motocycles | SO | Sans objet | 1807.6 |
A38-HZ | A38-HZ - Transports et entreposage | SO | Sans objet | 983.8 |
A38-IZ | A38-IZ - Hébergement et restauration | SO | Sans objet | 462.8 |
A38-KZ | A38-KZ - Activités financières et d'assurance | SO | Sans objet | 372.2 |
A38-LZ | A38-LZ - Activités immobilières | SO | Sans objet | 111.0 |
Last
Salarié, Public, Privé
Part dans l’emploi
Tous
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("TOT_ENS", "TOT_PUB")) %>%
%>%
quarter_to_date select(date, NAF2_RGP, OBS_VALUE) %>%
spread(NAF2_RGP, OBS_VALUE) %>%
+ geom_line(aes(x = date, y = TOT_PUB/TOT_ENS)) +
ggplot xlab("") + ylab("Part de l'emploi public") + theme_minimal() +
scale_x_date(breaks = seq(1960, 2100, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(labels = percent_format(),
breaks = 0.01*seq(0, 40, 0.2)) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank())
Evolution
Tous
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("TOT_ENS", "TOT_PRIV", "TOT_PUB")) %>%
%>%
quarter_to_date left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2010-10-01")]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2010-Q4)") + 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, 400, 1)) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank())
2017-Q2
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("TOT_ENS", "TOT_PRIV", "TOT_PUB")) %>%
%>%
quarter_to_date filter(date >= as.Date("2017-04-01")) %>%
left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-04-01")]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2017-T2)") + theme_minimal() +
scale_x_date(breaks = "6 months",
labels = date_format("%b %y")) +
scale_y_log10(breaks = seq(0, 400, 1)) +
theme(legend.position = c(0.45, 0.9),
legend.title = element_blank())
BE-FZ-TOT Privé seulement
Tous
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("GU_PRIV", "FZ_PRIV", "TOT_PRIV")) %>%
%>%
quarter_to_date left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
group_by(Naf2_rgp) %>%
arrange(date) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[1]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel") + 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, 400, 2)) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank())
2017-Q2 -
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("GU_PRIV", "FZ_PRIV", "TOT_PRIV")) %>%
mutate(TIME_PERIOD = zoo::as.yearqtr(TIME_PERIOD, format = "%Y-Q%q")) %>%
left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(TIME_PERIOD, Naf2_rgp, OBS_VALUE) %>%
filter(TIME_PERIOD >= zoo::as.yearqtr("2017 Q2")) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[TIME_PERIOD == zoo::as.yearqtr("2017 Q2")]) %>%
+ geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2017-Q2)") + theme_minimal() +
::scale_x_yearqtr(format = '%Y T%q', n = 20) +
zooscale_y_log10(breaks = seq(0, 120, 1)) +
theme(legend.position = c(0.4, 0.85),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
BE-FZ-GU
Tous
Log
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
%>%
quarter_to_date left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("1970-10-01")]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 1970-Q4)") + theme_minimal() +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 400, 10)) +
theme(legend.position = c(0.2, 0.9),
legend.title = element_blank())
Lineaire
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
%>%
quarter_to_date left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("1970-10-01")]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 1970-Q4)") + theme_minimal() +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 400, 10)) +
theme(legend.position = c(0.2, 0.9),
legend.title = element_blank())
1990-Q1 -
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
%>%
quarter_to_date left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
filter(date >= as.Date("1990-01-01")) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("1990-01-01")]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 1990-Q1)") + theme_minimal() +
scale_x_date(breaks = seq(1960, 2100, 3) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(10, 200, 10)) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank())
2000-Q1 -
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
%>%
quarter_to_date left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
filter(date >= as.Date("2000-01-01")) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2000-01-01")]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2000-Q1)") + theme_minimal() +
scale_x_date(breaks = seq(2000, 2100, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(10, 200, 10)) +
theme(legend.position = c(0.15, 0.85),
legend.title = element_blank())
2010-Q1 -
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
%>%
quarter_to_date left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
filter(date >= as.Date("2010-01-01")) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2010-01-01")]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2010-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)) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank())
2017-Q2 -
Graph
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
mutate(TIME_PERIOD = zoo::as.yearqtr(TIME_PERIOD, format = "%Y-Q%q")) %>%
left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(TIME_PERIOD, Naf2_rgp, OBS_VALUE) %>%
filter(TIME_PERIOD >= zoo::as.yearqtr("2017 Q2")) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[TIME_PERIOD == zoo::as.yearqtr("2017 Q2")]) %>%
+ geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2017-Q2)") + theme_minimal() +
::scale_x_yearqtr(format = '%Y T%q', n = 20) +
zooscale_y_log10(breaks = seq(0, 120, 1)) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
Last 2 years
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
mutate(TIME_PERIOD = zoo::as.yearqtr(TIME_PERIOD, format = "%Y-Q%q")) %>%
left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(TIME_PERIOD, Naf2_rgp, OBS_VALUE) %>%
filter(TIME_PERIOD >= zoo::as.yearqtr(Sys.Date() - years(2), format="%Y-%m-%d")) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[TIME_PERIOD == zoo::as.yearqtr(Sys.Date() - years(2), format="%Y-%m-%d")]) %>%
+ geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2017-Q2)") + theme_minimal() +
::scale_x_yearqtr(labels = date_format("%YT%q"), n = 12) +
zooscale_y_log10(breaks = seq(0, 120, 1)) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
Last 3 years
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
mutate(TIME_PERIOD = zoo::as.yearqtr(TIME_PERIOD, format = "%Y-Q%q")) %>%
left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(TIME_PERIOD, Naf2_rgp, OBS_VALUE) %>%
filter(TIME_PERIOD >= zoo::as.yearqtr(Sys.Date() - years(3), format="%Y-%m-%d")) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[TIME_PERIOD == zoo::as.yearqtr(Sys.Date() - years(3), format="%Y-%m-%d")]) %>%
+ geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2017-Q2)") + theme_minimal() +
::scale_x_yearqtr(format = '%Y T%q', n = 20) +
zooscale_y_log10(breaks = seq(0, 120, 1)) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
Table
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
%>%
quarter_to_date left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
filter(date >= as.Date("2017-04-01")) %>%
spread(Naf2_rgp, OBS_VALUE) %>%
print_table_conditional()
date | Construction | Industrie | Tertiaire marchand |
---|---|---|---|
2017-04-01 | 1377.3 | 3146.5 | 12057.3 |
2017-07-01 | 1380.1 | 3143.1 | 12097.9 |
2017-10-01 | 1385.5 | 3148.6 | 12197.0 |
2018-01-01 | 1392.6 | 3147.4 | 12250.2 |
2018-04-01 | 1400.7 | 3151.5 | 12269.3 |
2018-07-01 | 1413.8 | 3152.1 | 12287.8 |
2018-10-01 | 1421.9 | 3160.3 | 12321.0 |
2019-01-01 | 1440.6 | 3171.1 | 12441.0 |
2019-04-01 | 1453.9 | 3177.5 | 12453.2 |
2019-07-01 | 1467.3 | 3181.4 | 12477.5 |
2019-10-01 | 1480.3 | 3186.9 | 12566.5 |
2020-01-01 | 1475.4 | 3175.7 | 12121.1 |
2020-04-01 | 1491.4 | 3159.7 | 12059.5 |
2020-07-01 | 1515.1 | 3159.2 | 12427.6 |
2020-10-01 | 1533.4 | 3157.0 | 12401.6 |
2021-01-01 | 1553.2 | 3167.7 | 12519.7 |
2021-04-01 | 1566.3 | 3177.4 | 12738.1 |
2021-07-01 | 1577.3 | 3188.9 | 12909.2 |
2021-10-01 | 1583.1 | 3197.1 | 13066.1 |
2022-01-01 | 1586.3 | 3199.4 | 13144.9 |
2022-04-01 | 1588.3 | 3207.3 | 13184.1 |
2022-07-01 | 1588.5 | 3218.8 | 13253.8 |
2022-10-01 | 1590.8 | 3225.0 | 13321.3 |
2023-01-01 | 1588.3 | 3232.7 | 13345.8 |
2023-04-01 | 1585.5 | 3240.5 | 13384.2 |
2023-07-01 | 1581.6 | 3250.5 | 13403.0 |
2023-10-01 | 1577.9 | 3260.1 | 13382.7 |
2024-01-01 | 1569.8 | 3267.7 | 13429.8 |
2024-04-01 | 1559.8 | 3272.4 | 13411.6 |
2018-Q1
Code
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
filter(NAF2_RGP %in% c("BE", "FZ", "GU")) %>%
%>%
quarter_to_date left_join(NAF2_RGP, by = "NAF2_RGP") %>%
select(date, Naf2_rgp, OBS_VALUE) %>%
filter(date >= as.Date("2018-01-01")) %>%
group_by(Naf2_rgp) %>%
mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2019-10-01")]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
ggplot xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2018-Q1)") + theme_minimal() +
scale_x_date(breaks = seq(as.Date("2017-01-01"), as.Date("2023-10-01"), by = "6 months"),
labels = date_format("%m-%Y")) +
scale_y_log10(breaks = seq(0, 120, 1)) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank())