unemp_reason_mackeyfied.R

library(tidyverse)
library(readabs)
library(data.table)

uq2a_dt <- download_abs_data_cube(catalogue_string = "labour-force-australia-detailed",
                       cube = "UQ2a") |>
  readxl::read_excel(sheet = "Data 1",
                     skip = 3) |>
  janitor::clean_names() |>
  as.data.table()

uq2a_dt[, `:=`(date = as.Date(date))][date >= ymd("2002-01-01")][,`:=`(reason = reason_left_or_lost_last_job)][, .(unemployed = sum(unemployed_looked_for_full_time_work_000 + unemployed_looked_for_only_part_time_work_000)), keyby = .(date, reason)][reason %in% c("Left last job", "Lost last job")] |>
  ggplot(aes(x = date, y = unemployed, col = reason)) +
  geom_line() +
  ggthemes::theme_excel()