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

Data - INSEE

Author

François Geerolf

Info

source dataset .html .RData
insee EMPLOI-SALARIE-TRIM-NATIONAL 2024-11-16 2024-11-17

Données sur l’emploi

source dataset .html .RData
insee CHOMAGE-TRIM-NATIONAL 2024-11-17 2024-11-17
insee CNA-2014-EMPLOI 2024-06-07 2024-11-09
insee DEMANDES-EMPLOIS-NATIONALES 2024-11-09 2024-11-09
insee EMPLOI-BIT-TRIM 2024-06-07 2024-11-09
insee EMPLOI-SALARIE-TRIM-NATIONAL 2024-11-16 2024-11-17
insee TAUX-CHOMAGE 2024-11-09 2024-11-09
insee TCRED-EMPLOI-SALARIE-TRIM 2024-11-09 2024-11-09

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-11-07 11770
2024-08-30 215
2017-05-12 186

LAST_COMPILE

LAST_COMPILE
2024-11-17

Last

TIME_PERIOD Nobs
2024-Q3 78

Champ

  • 1970-

  • A5

  • National

NAF2

Liste

First, 2000, 2010, Last

NAF2_RGP

Liste

NAF2_RGP Naf2_rgp Nobs
SO Sans objet 10553
BE Industrie 216
FZ Construction 216
GU Tertiaire marchand 216
BN_RU Secteurs principalement marchands 186
GU_HI Tertiaire marchand hors intérim 140
IND_MANUF Industrie manufacturière 140
AZ_PRIV Agriculture, sylviculture, pêche - Établissements privés 56
FZ_PRIV Construction - Établissements privés 56
GU_PRIV Tertiaire marchand - Établissements privés 56
IND_PRIV Industrie - Établissements privés 56
OQ_PRIV Tertiaire non marchand - Établissements privés 56
OQ_RGP Tertiaire non marchand 56
TOT_ENS Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) 56
TOT_PRIV Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales), privé 56
TOT_PUB Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales), public 56

First, 2000, 2010, Last

Naf2_rgp 1970-10-01 2000-01-01 2010-01-01 2024-07-01
Agriculture, sylviculture, pêche - Établissements privés NA NA NA 311.1
Construction 1807.9 1269.6 1524.0 NaN
Construction - Établissements privés NA NA NA 1548.8
Ensemble des salariés - Toutes les sections (hors activités extra-territoriales) NA NA NA NaN
Ensemble des salariés, privé - Toutes les sections (hors activités extra-territoriales), privé NA NA NA 21068.8
Ensemble des salariés, public - Toutes les sections (hors activités extra-territoriales), public NA NA NA NaN
Industrie 5440.3 4034.1 3365.7 NaN
Industrie - Établissements privés NA NA NA 3209.5
Industrie manufacturière NA 3678.3 2992.5 NaN
Secteurs principalement marchands 12409.6 15160.6 15932.5 NA
Tertiaire marchand 5320.0 10076.3 11339.3 NaN
Tertiaire marchand - Établissements privés NA NA NA 13238.4
Tertiaire marchand hors intérim NA 9453.7 10783.5 NaN
Tertiaire non marchand NA NA NA NaN
Tertiaire non marchand - Établissements privés NA NA NA 2760.9

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
A17-RU A17-RU - Autres activités de services SO Sans objet 478.1
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
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) %>%
  ggplot + geom_line(aes(x = date, y = TOT_PUB/TOT_ENS)) +
  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")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
  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")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
  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]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
  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")]) %>%
  ggplot + geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = Naf2_rgp)) +
  xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2017-Q2)") +  theme_minimal() +
  zoo::scale_x_yearqtr(format = '%Y T%q', n = 20) +
  scale_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")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
  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")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
  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")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
  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")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
  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")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
  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")]) %>%
  ggplot + geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = Naf2_rgp)) +
  xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2017-Q2)") +  theme_minimal() +
  zoo::scale_x_yearqtr(format = '%Y T%q', n = 20) +
  scale_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")]) %>%
  ggplot + geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = Naf2_rgp)) +
  xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2017-Q2)") +  theme_minimal() +
  zoo::scale_x_yearqtr(labels = date_format("%YT%q"), n = 12) +
  scale_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")]) %>%
  ggplot + geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = Naf2_rgp)) +
  xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2017-Q2)") +  theme_minimal() +
  zoo::scale_x_yearqtr(format = '%Y T%q', n = 20) +
  scale_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
2024-07-01 NaN NaN NaN

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")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Naf2_rgp)) +
  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())