Code
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
LAST_UPDATE | Nobs |
---|---|
2025-08-29 | 13689 |
Data - INSEE
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
LAST_UPDATE | Nobs |
---|---|
2025-08-29 | 13689 |
LAST_DOWNLOAD |
---|
2025-10-11 |
LAST_COMPILE |
---|
2025-10-11 |
1989-2019. T201.html
A38
Départements
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
group_by(IDBANK, TITLE_FR) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
left_join(MINISTERES, by = "MINISTERES") %>%
group_by(MINISTERES, Ministeres) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
MINISTERES | Ministeres | Nobs |
---|---|---|
EESR | Éducation, Enseignement supérieur et recherche | 3042 |
TOT | Total | 3042 |
ASST | Affaires Sociales, Santé, Travail | 1521 |
AUT-MIN | Autres ministères | 1521 |
EFI | Économie, Finances et Industrie | 1521 |
JUST | Justice | 1521 |
LTDD | Logement, Transports et Développement Durable | 1521 |
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
group_by(REF_AREA) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
left_join(SEXE, by = "SEXE") %>%
group_by(SEXE, Sexe) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
SEXE | Sexe | Nobs |
---|---|---|
0 | Ensemble | 10647 |
2 | Femmes | 3042 |
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
print_table_conditional()
TIME_PERIOD | Nobs |
---|---|
2023 | 1053 |
2022 | 1053 |
2021 | 1053 |
2020 | 1053 |
2019 | 1053 |
2018 | 1053 |
2017 | 1053 |
2016 | 1053 |
2015 | 1053 |
2014 | 1053 |
2013 | 1053 |
2012 | 1053 |
2011 | 1053 |
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
filter(SEXE %in% c("0"),
== "TOT",
MINISTERES %in% c("D92", "D93", "D94")) %>%
REF_AREA %>%
year_to_date + geom_line(aes(x = date, y = OBS_VALUE, color = REF_AREA, linetype = REF_AREA)) +
ggplot xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = seq(1960, 2020, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%y")) +
scale_y_continuous(breaks = 0.01*seq(0, 120, 1),
labels = percent_format(accuracy = 1)) +
scale_color_manual(values = viridis(5)[1:4]) +
theme(legend.position = c(0.8, 0.9),
legend.title = element_blank())