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-10-11 |
LAST_COMPILE |
---|
2025-10-11 |
`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"),
%in% c("D92"),
REF_AREA == "0") %>%
SEXE %>%
year_to_date left_join(AGE, by = "AGE") %>%
+ geom_line(aes(x = date, y = OBS_VALUE/100, color = Age)) +
ggplot 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"),
%in% c("D75"),
REF_AREA == "0") %>%
SEXE %>%
year_to_date left_join(AGE, by = "AGE") %>%
+ geom_line(aes(x = date, y = OBS_VALUE/100, color = Age)) +
ggplot 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())