Emploi, chômage, revenus du travail - Edition 2021 - ECRT2021

Data - INSEE

Author

François Geerolf

variable

Code 
ECRT2021 %>%
  group_by(variable) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
variable Nobs
Indice Prix (y compris tabac)2 124
Smic horaire brut 124
Smic horaire de base des ouvriers (SHBO) 113
Smic horaire de base des ouvriers et des employés (SHBOE)1 47
Ensemble 31
Cadres y c, chefs d'entreprises 23
Employés 23
Femmes 23
Hommes 23
Ouvriers 23
Professions intermédiaires 23
Ensemble FPE 19
Ensemble FPT 19
Fonctionnaires FPE 14
Fonctionnaires catégorie A 14
Fonctionnaires catégorie B FPE 14
Fonctionnaires catégorie C FPE 14
Non-fonctionnaires (hors personnels médicaux) FPE 14
Fonctionnaires FPT 10
Fonctionnaires catégorie A FPT 10
Fonctionnaires catégorie B FPT 10
Fonctionnaires catégorie C FPT 10
Non-fonctionnaires (hors personnels médicaux) FPT 10
Fonctionnaires 8
Fonctionnaires catégorie A FPH 8
Fonctionnaires catégorie B FPH 8
Fonctionnaires catégorie C 8
Non-fonctionnaires (hors personnels médicaux) 8
Personnels médicaux 8

date

Code 
ECRT2021 %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

F24

Tous

Code 
ECRT2021 %>%
  filter(sheet == "F24") %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  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

Code 
ECRT2021 %>%
  filter(sheet == "F25") %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  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

Code 
ECRT2021 %>%
  filter(sheet == "F25") %>%
  group_by(variable) %>%
  mutate(value = 100*value/value[1]) %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  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))

Sans les cadres

Euros

Code 
ECRT2021 %>%
  filter(sheet == "F25",
         variable != "Cadres y c, chefs d'entreprises") %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  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, 2026, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(1000, 20000, 100),
                     labels = scales::dollar_format(accuracy = 1, pre = "", su = "€"))

F27

FPE

All

Code 
ECRT2021 %>%
  filter(sheet == "F27",
         variable %in% c("Fonctionnaires catégorie A",
                         "Fonctionnaires catégorie B FPE",
                         "Fonctionnaires catégorie C FPE",
                         "Fonctionnaires FPE")) %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  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, 2026, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(1000, 20000, 100),
                     labels = scales::dollar_format(accuracy = 1, pre = "", su = "€"))

2010-

Code 
ECRT2021 %>%
  filter(sheet == "F27",
         variable %in% c("Fonctionnaires catégorie A",
                         "Fonctionnaires catégorie B FPE",
                         "Fonctionnaires catégorie C FPE",
                         "Fonctionnaires FPE")) %>%
  filter(date >= as.Date("2010-01-01")) %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  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, 2026, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(1000, 20000, 100),
                     labels = scales::dollar_format(accuracy = 1, pre = "", su = "€"))

FPH

Code 
ECRT2021 %>%
  filter(sheet == "F27",
         variable %in% c("Fonctionnaires catégorie A FPH",
                         "Fonctionnaires catégorie B FPH")) %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  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, 2026, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(1000, 20000, 50),
                     labels = scales::dollar_format(accuracy = 1, pre = "", su = "€"))

Ensemble

Code 
ECRT2021 %>%
  filter(sheet == "F27",
         grepl("Ensemble", variable)) %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  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, 2026, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(1000, 20000, 50),
                     labels = scales::dollar_format(accuracy = 1, pre = "", su = "€"))