Unemployment by sex, age and duration (thousands) - UNE_TUNE_SEX_AGE_DUR_NB_A

Data - ILO

Author

classif1

Code

UNE_DEAP_SEX_AGE_RT_A %>%
  left_join(classif1, by = "classif1") %>%
  group_by(classif1, Classif1) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional

source

Code

UNE_DEAP_SEX_AGE_RT_A %>%
  left_join(source, by = "source") %>%
  group_by(source, Source) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional

ref_area

Code

UNE_DEAP_SEX_AGE_RT_A %>%
  left_join(ref_area, by = "ref_area") %>%
  group_by(ref_area, Ref_area) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Ref_area)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

sex

Code

UNE_DEAP_SEX_AGE_RT_A %>%
  left_join(sex, by = "sex") %>%
  group_by(sex, Sex) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional

sex	Sex	Nobs
SEX_T	Sex: Total	79854
SEX_M	Sex: Male	78285
SEX_F	Sex: Female	76748
SEX_O	Sex: Other	20

AGE_YTHADULT_YGE15

Table

Code

UNE_DEAP_SEX_AGE_RT_A %>%
  filter(classif1 == "AGE_YTHADULT_YGE15",
         sex == "SEX_T") %>%
  arrange(ref_area, time) %>%
  left_join(ref_area, by = "ref_area") %>%
  group_by(ref_area, Ref_area) %>%
  summarise(year1 = first(time),
            value1 = first(obs_value) %>% round() %>% paste0(" %"),
            year2 = last(time),
            value2 = last(obs_value) %>% round %>% paste0(" %")) %>%
  arrange(year1) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Ref_area)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

AGE_AGGREGATE_TOTAL

Table

Code

UNE_DEAP_SEX_AGE_RT_A %>%
  filter(classif1 == "AGE_AGGREGATE_TOTAL",
         sex == "SEX_T") %>%
  arrange(ref_area, time) %>%
  left_join(ref_area, by = "ref_area") %>%
  group_by(ref_area, Ref_area) %>%
  summarise(year1 = first(time),
            value1 = first(obs_value) %>% round() %>% paste0(" %"),
            year2 = last(time),
            value2 = last(obs_value) %>% round %>% paste0(" %")) %>%
  arrange(year1) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Ref_area)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}