Unemployment by duration - DUR_D

Data - OECD

Author

François Geerolf

Code 
load_data("oecd/DUR_D_var.RData")
DUR_D <- read_parquet("DUR_D.parquet")

Nobs - Javascript

Code 
DUR_D |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(`DURATION Description` = label) |>
  group_by(DURATION, `DURATION Description`, SEX, AGE) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Data Structure

Code 
DUR_D_var |>
  pluck("VAR_DESC") %>%
  {if (is_html_output()) print_table(.) else .}
id description
COUNTRY Country
TIME Time
SEX Sex
AGE Age
DURATION Duration
FREQUENCY Frequency
OBS_VALUE Observation Value
TIME_FORMAT Time Format
OBS_STATUS Observation Status
UNIT Unit
POWERCODE Unit multiplier
REFERENCEPERIOD Reference period

DURATION

Code 
DUR_D |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(`DURATION Description` = label) |>
  group_by(DURATION, `DURATION Description`) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
DURATION DURATION Description Nobs
UN Total 35398
UND Total Declared 35283
UN5 1 year and over 34381
UN3 > 3 month and < 6 months 34156
UN4 > 6 month and < 1 year 34118
UN2 > 1 month and < 3 months 33867
UN1 < 1 month 32231
UNK Unknown 17798

SEX

Code 
DUR_D |>
  left_join(DUR_D_var |> pluck("SEX"), by = c("SEX" = "id")) |>
  rename(`SEX Description` = label) |>
  group_by(SEX, `SEX Description`) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
SEX SEX Description Nobs
MW All persons 86884
MEN Men 85807
WOMEN Women 84541

AGE

Code 
DUR_D |>
  left_join(DUR_D_var |> pluck("AGE"), by = c("AGE" = "id")) |>
  rename(`AGE Description` = label) |>
  group_by(AGE, `AGE Description`) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
AGE AGE Description Nobs
900000 Total 41145
2554 25 to 54 39793
1524 15 to 24 39631
5564 55 to 64 37998
2024 20 to 24 35048
1519 15 to 19 34841
6599 65+ 28776

All persons, All ages

France

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "FRA") |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc, linetype = DURATION_desc)) + 
  scale_color_manual(values = viridis(9)[1:8]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.47, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal") +
  scale_y_continuous(breaks = seq(0, 1000, 0.5),
                     limits = c(0, 4))

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "FRA",
         DURATION %in% c("UN1", "UN2", "UN3", "UN4", "UN5")) |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc)) + 
  scale_color_manual(values = viridis(6)[1:5]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank(),
        legend.direction = "vertical") +
  scale_y_continuous(breaks = seq(0, 1000, 0.5),
                     limits = c(0, 2))

Germany

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "DEU") |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc, linetype = DURATION_desc)) + 
  scale_color_manual(values = viridis(9)[1:8]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.47, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal") +
  scale_y_continuous(breaks = seq(0, 1000, 0.5),
                     limits = c(0, 6))

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "DEU",
         DURATION %in% c("UN1", "UN2", "UN3", "UN4", "UN5")) |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc)) + 
  scale_color_manual(values = viridis(6)[1:5]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank(),
        legend.direction = "vertical") +
  scale_y_continuous(breaks = seq(0, 1000, 0.5),
                     limits = c(0, 3))

Spain

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "ESP") |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc, linetype = DURATION_desc)) + 
  scale_color_manual(values = viridis(9)[1:8]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.47, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal") +
  scale_y_continuous(breaks = seq(0, 1000, 0.5),
                     limits = c(0, 7))

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "ESP",
         DURATION %in% c("UN1", "UN2", "UN3", "UN4", "UN5")) |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc)) + 
  scale_color_manual(values = viridis(6)[1:5]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank(),
        legend.direction = "vertical") +
  scale_y_continuous(breaks = seq(0, 1000, 0.5),
                     limits = c(0, 3.5))

Portugal

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "PRT") |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc, linetype = DURATION_desc)) + 
  scale_color_manual(values = viridis(9)[1:8]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.47, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal") +
  scale_y_continuous(breaks = seq(0, 1000, 0.1),
                     limits = c(0, 1))

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "PRT",
         DURATION %in% c("UN1", "UN2", "UN3", "UN4", "UN5")) |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc)) + 
  scale_color_manual(values = viridis(6)[1:5]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank(),
        legend.direction = "vertical") +
  scale_y_continuous(breaks = seq(0, 1000, 0.1),
                     limits = c(0, 0.6))

United States

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "USA") |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc, linetype = DURATION_desc)) + 
  scale_color_manual(values = viridis(9)[1:8]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.47, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal") +
  scale_y_continuous(breaks = seq(0, 1000, 2),
                     limits = c(0, 16))

Code 
DUR_D |>
  filter(AGE == "900000", 
         SEX == "MW",
         COUNTRY == "USA",
         DURATION %in% c("UN1", "UN2", "UN3", "UN4", "UN5")) |>
  year_to_enddate() |>
  left_join(DUR_D_var |> pluck("DURATION"), by = c("DURATION" = "id")) |>
  rename(DURATION_desc = label) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/1000, color = DURATION_desc)) + 
  scale_color_manual(values = viridis(6)[1:5]) +
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Unemployed (Millions)") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank(),
        legend.direction = "vertical") +
  scale_y_continuous(breaks = seq(0, 1000, 1),
                     limits = c(0, 6))