DADS 2018 - irsocsdads2018_csv

Données - INSEE

Auteur

François Geerolf

Last data update: 13 août 2026, 14:52

Last compile: 05 sept. 2026, 02:49

TRAGE_12

Code 
t202 |>
  left_join(A6_88, by = "A6_88") |>
  group_by(A6_88, A6_88_desc) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()

CS1

Code 
t202 |>
  left_join(CS1, by = "CS1") |>
  group_by(CS1, Cs1) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()
CS1 Cs1 Nobs
3 Cadres et professions intellectuelles supérieures 1380
4 Professions intermédiaires 1380
5 Employés 1380
6N Ouvriers non qualifiés 1380
6Q Ouvriers qualifiés 1380
T Ensemble 1380

SEXE

Code 
t202 |>
  group_by(SEXE, Sexe) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()
SEXE Sexe Nobs
E NA 2760
F NA 2760
H NA 2760

CE

Code 
t202 |>
  left_join(CE, by = "CE") |>
  group_by(CE, Ce) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()
CE Ce Nobs
A Autres 2070
C Temps complet 2070
P Temps partiel 2070
T Tous postes 2070

Tous / Ouvriers qualifiés / non-qualifiés / employés

Salaires

Code 
t202 |>
  filter(CE == "T",
         SEXE == "E",
         CS1 %in% c("6N", "6Q", "T", "5")) |>
  left_join(CS1, by = "CS1") |>
  left_join(A6_88, by = "A6_88") |>
  select(Cs1, A6_88, A6_88_desc, BRUT_EQTP) |>
  mutate(BRUT_EQTP = as.numeric(BRUT_EQTP)) |>
  spread(Cs1, BRUT_EQTP) |>
  arrange(-`Ouvriers qualifiés`) |>
  select(1, 2, 4, everything()) |>
  print_table_conditional()

Effectifs

Code 
t202 |>
  filter(CE == "T",
         SEXE == "E",
         CS1 %in% c("6N", "6Q", "T", "5")) |>
  left_join(CS1, by = "CS1") |>
  left_join(A6_88, by = "A6_88") |>
  select(Cs1, A6_88, A6_88_desc, EQTP) |>
  mutate(EQTP = as.numeric(EQTP)) |>
  spread(Cs1, EQTP) |>
  arrange(-`Ouvriers qualifiés`) |>
  select(1, 2, 4, everything()) |>
  print_table_conditional()

Tous / Ouvriers qualifiés / non-qualifiés / employés

Salaires

Code 
t202 |>
  filter(CE == "T",
         SEXE == "E") |>
  left_join(CS1, by = "CS1") |>
  left_join(A6_88, by = "A6_88") |>
  select(Cs1, A6_88, A6_88_desc, BRUT_EQTP) |>
  mutate(BRUT_EQTP = as.numeric(BRUT_EQTP)) |>
  spread(Cs1, BRUT_EQTP) |>
  arrange(-`Ouvriers qualifiés`) |>
  select(1, 2, 5, everything()) |>
  print_table_conditional()

Effectifs

Code 
t202 |>
  filter(CE == "T",
         SEXE == "E") |>
  left_join(CS1, by = "CS1") |>
  left_join(A6_88, by = "A6_88") |>
  select(Cs1, A6_88, A6_88_desc, EQTP) |>
  mutate(EQTP = as.numeric(EQTP)) |>
  spread(Cs1, EQTP) |>
  arrange(-`Ouvriers qualifiés`) |>
  select(1, 2, 5, everything()) |>
  print_table_conditional()

Par Age

Ensemble

Code 
t201 |>
  filter(CE == "T",
         SEXE == "E",
         CS1 %in% c("6N", "6Q", "5"),
         TRAGE_12 != "TT") |>
  left_join(CS1, by = "CS1") |>
  ggplot() + geom_line(aes(x = TRAGE_12, y = BRUT_EQTP / 1000, color = Cs1, group = Cs1)) +
  theme_minimal() + xlab("Age") + ylab("") +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.9)) +
  scale_y_continuous(breaks = seq(-30, 100, 2),
                     labels = dollar_format(pre = "", suffix = " k€"))

Temps complet

Code 
t201 |>
  filter(CE == "C",
         SEXE == "E",
         CS1 %in% c("6N", "6Q", "5"),
         TRAGE_12 != "TT") |>
  left_join(CS1, by = "CS1") |>
  ggplot() + geom_line(aes(x = TRAGE_12, y = BRUT_EQTP / 1000, color = Cs1, group = Cs1)) +
  theme_minimal() + xlab("Age") + ylab("") +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.9)) +
  scale_y_continuous(breaks = seq(-30, 100, 2),
                     labels = dollar_format(pre = "", suffix = " k€"))