ALFS Summary tables - ALFS_SUMTAB

Data - OECD

Author

Code

load_data("oecd/ALFS_SUMTAB_var.RData")
ALFS_SUMTAB <- read_parquet("ALFS_SUMTAB.parquet")

Info

Last observation: A: 2022 (N = 1157)

First observation: A: 1953 (N = 2)

Last data update: 02 aoû 2026, 08:56. Last compile: 17 aoû 2026, 22:07

Structure

Nobs - Javascript

Code

ALFS_SUMTAB |>
  left_join(ALFS_SUMTAB_var |> pluck("SUBJECT"), by = c("SUBJECT" = "id")) |>
  rename(`SUBJECT Description` = label) |>
  group_by(SUBJECT, `SUBJECT Description`) |>
  summarise(nobs = n()) |>
  arrange(-nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Data Structure

Code

ALFS_SUMTAB_var |>
  pluck("VAR_DESC") %>%
  {if (is_html_output()) print_table(.) else .}

id	description
LOCATION	Country
SUBJECT	Subject
FREQUENCY	Frequency
TIME	Time
OBS_VALUE	Observation Value
TIME_FORMAT	Time Format
OBS_STATUS	Observation Status
UNIT	Unit
POWERCODE	Unit multiplier
REFERENCEPERIOD	Reference period

SUBJECT

Code

ALFS_SUMTAB_var |>
  pluck("SUBJECT") %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

FREQUENCY

Code

ALFS_SUMTAB_var |>
  pluck("FREQUENCY") %>%
  {if (is_html_output()) print_table(.) else .}

id	label
A	Annual

TIME_FORMAT

Code

ALFS_SUMTAB_var |>
  pluck("TIME_FORMAT") %>%
  {if (is_html_output()) print_table(.) else .}

id	label
P1Y	Annual
P1M	Monthly
P3M	Quarterly
P6M	Half-yearly
P1D	Daily

UNIT

Code

ALFS_SUMTAB_var |>
  pluck("UNIT") %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Ex 1

Code

ALFS_SUMTAB |>
  # YGTT06L1_ST: Unemployment
  filter(SUBJECT == "YGTT06L1_ST") |>
  mutate(obsValue = obsValue |> round()) |>
  left_join(ALFS_SUMTAB_var$LOCATION, by = c("LOCATION" = "id")) |>
  group_by(Country = label) |>
  summarise(year_first = first(obsTime),
            value_first = first(obsValue),
            year_last = last(obsTime),
            value_last = last(obsValue)) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Ex 2

Code

ALFS_SUMTAB |>
  # YGTT06L1_ST: Unemployment
  # YGTT07L1_ST: Labour Force
  filter(SUBJECT %in% c("YGTT06L1_ST", "YGTT07L1_ST")) |>
  select(SUBJECT, obsValue, LOCATION, obsTime) |>
  spread(SUBJECT, obsValue) |>
  na.omit() |>
  mutate(UNR = (100*YGTT06L1_ST/YGTT07L1_ST) |> round(1) |> paste("%")) |>
  left_join(ALFS_SUMTAB_var$LOCATION, by = c("LOCATION" = "id")) |>
  group_by(Country = label) |>
  summarise(year_first = first(obsTime),
            UNR_first = first(UNR),
            year_last = last(obsTime),
            UNR_last = last(UNR)) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}