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

Data - Insee

Info

source	dataset	.html	.RData
insee	ECRT2023	2024-07-02	2023-06-30

Données sur les salaires

source	dataset	.html	.RData
dares	les-indices-de-salaire-de-base	2024-06-23	2024-06-22
insee	CNA-2014-RDB	2024-07-03	2024-07-03
insee	CNT-2014-CSI	2024-07-03	2024-07-03
insee	ECRT2023	2024-07-02	2023-06-30
insee	if230	2024-07-02	2021-12-04
insee	INDICE-TRAITEMENT-FP	2024-07-02	2024-07-02
insee	ir_salaires_SL_csv	2024-07-02	NA
insee	SALAIRES-ACEMO	2024-07-02	2024-07-03
insee	SALAIRES-ACEMO-2017	2024-07-02	2024-07-03
insee	SALAIRES-ANNUELS	2024-07-02	2024-07-03
insee	t_7401	2024-07-02	2023-12-23
insee	t_salaire_val	2024-06-20	2024-07-01

variable

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

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

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, 2300, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(100, 20000, 10))

F25

Tous

Euros

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, 2300, 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

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, 2300, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(100, 200, 2))

F26

Tous

Euros

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, 2300, 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

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, 2300, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(100, 200, 2))