Victoria and Melbourne civilian population 15+

library(tidyverse)
library(readabs)

pop_raw <- read_abs_series(c("A84595514A",
                             "A84595604F")) |> 
  select(date, series, value)

pop_raw |> 
  separate_series(c("geog", "indicator", "sex")) |> 
  filter(date >= ymd("2019-01-01")) |> 
  group_by(geog) |> 
  mutate(pop_index = (value / value[date == ymd("2020-02-01")]) * 100) |> 
  ggplot(aes(x = date, y = pop_index, col = geog)) +
  geom_line()