Emploi, chômage, revenus du travail - Edition 2023 - ECRT2023

Données - INSEE

Auteur

François Geerolf

Last observation: 2021 (N = 17)

First observation: 1996 (N = 17)

Last data update: 02 août 2026, 11:04

Last compile: 04 sept. 2026, 01:55

variable

Code 
ECRT2023 |>
  group_by(variable) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()
variable Nobs
Ensemble 52
Cadres y c, chefs d'entreprises 26
Commerce 26
Construction 26
Employés 26
Ensemble des services 26
Femmes 26
Hommes 26
Industrie 26
Ouvriers 26
Professions intermédiaires 26
Services 26
Services aux entreprises 26
Services aux particuliers 26
Services mixtes 26
Transport et entreposage 26

date

Code 
ECRT2023 |>
  group_by(date) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()
date Nobs
1996-01-01 17
1997-01-01 17
1998-01-01 17
1999-01-01 17
2000-01-01 17
2001-01-01 17
2002-01-01 17
2003-01-01 17
2004-01-01 17
2005-01-01 17
2006-01-01 17
2007-01-01 17
2008-01-01 17
2009-01-01 17
2010-01-01 17
2011-01-01 17
2012-01-01 17
2013-01-01 17
2014-01-01 17
2015-01-01 17
2016-01-01 17
2017-01-01 17
2018-01-01 17
2019-01-01 17
2020-01-01 17
2021-01-01 17

F24

Tous

Code 
ECRT2023 |>
  filter(sheet == "F24") |>
  ggplot() + theme_minimal() + xlab("") + ylab("") +
  #scale_color_manual(values = viridis(5)[1:4]) +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.3, 0.89)) +
  scale_x_date(breaks = seq(1950, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 20000, 10))

F25

Tous

Euros

Code 
ECRT2023 |>
  filter(sheet == "F25") |>
  ggplot() + theme_minimal() + xlab("") + ylab("") +
  #scale_color_manual(values = viridis(8)[1:7]) +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(1000, 20000, 200),
                     labels = scales::dollar_format(accuracy = 1, pre = "", su = "€"))

base 100

Code 
ECRT2023 |>
  filter(sheet == "F25") |>
  group_by(variable) |>
  mutate(value = 100*value/value[1]) |>
  ggplot() + theme_minimal() + xlab("") + ylab("") +
  #scale_color_manual(values = viridis(8)[1:7]) +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.8)) +
  scale_x_date(breaks = seq(1950, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(100, 200, 2))

F26

Tous

Euros

Code 
ECRT2023 |>
  filter(sheet == "F26") |>
  ggplot() + theme_minimal() + xlab("") + ylab("") +
  #scale_color_manual(values = viridis(8)[1:7]) +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(1000, 20000, 200),
                     labels = scales::dollar_format(accuracy = 1, pre = "", su = "€"))

base 100

Code 
ECRT2023 |>
  filter(sheet == "F26") |>
  group_by(variable) |>
  mutate(value = 100*value/value[1]) |>
  ggplot() + theme_minimal() + xlab("") + ylab("") +
  #scale_color_manual(values = viridis(8)[1:7]) +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.8)) +
  scale_x_date(breaks = seq(1950, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(100, 200, 2))