top_mtr.R

library(OECD)
library(tidyverse)

aus_thresh <- OECD::get_dataset("TABLE_I7", "AUS.THRESHOLD") |> 
  janitor::clean_names() |> 
  mutate(across(c(obs_value, time),
                as.numeric))

aus_thresh |> 
  ggplot(aes(x = time, y = obs_value)) +
  geom_line() +
  labs(subtitle = "Top marginal tax rate threshold as a multiple of average earnings",
       caption = "Source: OECD Taxing Wages Database") +
  theme_minimal() +
  theme(axis.title = element_blank())