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

Data - INSEE

Author

François Geerolf

Info

source dataset .html .RData
insee EMPLOI-SALARIE-TRIM-NATIONAL 2025-02-12 2025-02-08

Données sur l’emploi

source dataset .html .RData
insee CHOMAGE-TRIM-NATIONAL 2025-01-31 2025-02-01
insee CNA-2014-EMPLOI 2024-06-07 2025-02-01
insee DEMANDES-EMPLOIS-NATIONALES 2025-01-31 2025-02-01
insee EMPLOI-BIT-TRIM 2024-06-07 2025-02-01
insee EMPLOI-SALARIE-TRIM-NATIONAL 2025-02-12 2025-02-08
insee TAUX-CHOMAGE 2025-01-31 2025-01-31
insee TCRED-EMPLOI-SALARIE-TRIM 2025-01-31 2025-01-31

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
2025-02-07 11848
2024-11-29 216
2017-05-12 186

LAST_COMPILE

LAST_COMPILE
2025-02-12

Last

TIME_PERIOD Nobs
2024-Q4 78

Champ

  • 1970-

  • A5

  • National

NAF2

Liste

First, 2000, 2010, Last

NAF2_RGP

Liste

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

First, 2000, 2010, Last

Naf2_rgp 1970-10-01 2000-01-01 2010-01-01 2024-10-01
Agriculture, sylviculture, pêche - Établissements privés NA NA NA 314.5
Construction 1807.9 1269.6 1524.0 NaN
Construction - Établissements privés NA NA NA 1549.1
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 3206.3
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 13223.6
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 2775.3

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")) %>%
  mutate(TIME_PERIOD = zoo::as.yearqtr(TIME_PERIOD, format = "%Y-Q%q")) %>%
  filter(TIME_PERIOD >= zoo::as.yearqtr("2017 Q2")) %>%
  left_join(NAF2_RGP, by = "NAF2_RGP") %>%
  select(TIME_PERIOD, Naf2_rgp, OBS_VALUE) %>%
  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-T2)") +  theme_minimal() +
  zoo::scale_x_yearqtr(format = '%Y T%q', n = 40) +
  scale_y_log10(breaks = seq(0, 400, 1)) +
  
  theme(legend.position = c(0.45, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

BE-FZ-TOT Privé seulement

Tous

Code 
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
  filter(NAF2_RGP %in% c("GU_PRIV", "FZ_PRIV", "TOT_PRIV", "IND_PRIV")) %>%
  quarter_to_date %>%
  left_join(NAF2_RGP, by = "NAF2_RGP") %>%
  select(date, Naf2_rgp, OBS_VALUE) %>%
  arrange(desc(date)) %>%
  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.5, 0.8),
        legend.title = element_blank())

2016-T4 -

Code 
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
  filter(NAF2_RGP %in% c("GU_PRIV", "FZ_PRIV", "TOT_PRIV", "IND_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("2016 Q4")) %>%
  group_by(Naf2_rgp) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[TIME_PERIOD == zoo::as.yearqtr("2016 Q4")]) %>%
  ggplot + geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = Naf2_rgp)) +
  xlab("") + ylab("Emploi Salarié Trimestriel (100 = 2016-T4)") +  theme_minimal() +
  zoo::scale_x_yearqtr(format = '%Y T%q', n = 40) +
  scale_y_log10(breaks = seq(0, 120, 1)) +
  theme(legend.position = c(0.5, 0.85),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

2017-Q2 -

Code 
`EMPLOI-SALARIE-TRIM-NATIONAL` %>%
  filter(NAF2_RGP %in% c("GU_PRIV", "FZ_PRIV", "TOT_PRIV", "IND_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 = 40) +
  scale_y_log10(breaks = seq(0, 120, 1)) +
  theme(legend.position = c(0.5, 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()

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"), Sys.Date(), 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(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))