Code
`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2025-06-04 | 21198 |
| 2016-08-30 | 12 |
Data - INSEE
`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2025-06-04 | 21198 |
| 2016-08-30 | 12 |
| LAST_DOWNLOAD |
|---|
| 2025-12-27 |
| LAST_COMPILE |
|---|
| 2025-12-27 |
`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
group_by(IDBANK, TITLE_FR) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
group_by(REF_AREA) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
left_join(AGE, by = "AGE") %>%
group_by(AGE, Age) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| AGE | Age | Nobs |
|---|---|---|
| 00- | Ensemble | 11382 |
| 15-24 | De 15 à 24 ans | 3276 |
| 25-49 | De 25 à 49 ans | 3276 |
| 50- | 50 ans et plus | 3276 |
`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
left_join(SEXE, by = "SEXE") %>%
group_by(SEXE, Sexe) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| SEXE | Sexe | Nobs |
|---|---|---|
| 0 | Ensemble | 14658 |
| 1 | Hommes | 3276 |
| 2 | Femmes | 3276 |
`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
group_by(INDICATEUR, Indicateur) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| INDICATEUR | Indicateur | Nobs |
|---|---|---|
| TAUX_CHOMAGE_LOCALISE_MOYENNE_ANNUELLE | Taux de chômage localisés (moyenne annuelle) | 20680 |
| TAUX_CHOMAGE_BIT_MOYENNE_ANNUELLE | Taux de chômage au sens du BIT (moyenne annuelle) | 530 |
`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
print_table_conditional()`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
filter(INDICATEUR %in% c("TAUX_CHOMAGE_LOCALISE_MOYENNE_ANNUELLE"),
REF_AREA %in% c("D92"),
SEXE == "0") %>%
year_to_date %>%
left_join(AGE, by = "AGE") %>%
ggplot + geom_line(aes(x = date, y = OBS_VALUE/100, color = Age)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = seq(1960, 2025, 5) %>% 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.15, 0.9),
legend.title = element_blank())
`TCRED-TRAVAIL-EMPLOI-TCHOMA-SA` %>%
filter(INDICATEUR %in% c("TAUX_CHOMAGE_LOCALISE_MOYENNE_ANNUELLE"),
REF_AREA %in% c("D75"),
SEXE == "0") %>%
year_to_date %>%
left_join(AGE, by = "AGE") %>%
ggplot + geom_line(aes(x = date, y = OBS_VALUE/100, color = Age)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = seq(1960, 2025, 5) %>% 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.15, 0.9),
legend.title = element_blank())