Skip to content

Instantly share code, notes, and snippets.

@MattCowgill
Created January 23, 2024 21:52
Show Gist options
  • Save MattCowgill/326b59ea831d77b6c58cf7e799bc734e to your computer and use it in GitHub Desktop.
Save MattCowgill/326b59ea831d77b6c58cf7e799bc734e to your computer and use it in GitHub Desktop.
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())
@MattCowgill
Copy link
Author

image

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment