File:Australias Trade Union Density 1960-1996 with the 1983 Accord indicated.png

library(ggplot2)
library(dplyr)
library(tidyr)
library(stringr)

dependent_variable <- "Trade Union Density"
font_size <- 11
accord_start_year <- 1983
accord_end_year <- 1996

abs_data <- (read.csv("Trade union membership by sex - 1976 to 2022.csv")
             %>% select(Year, Total)
             %>% rename(Density = Total)
             %>% fill(Density, .direction = "down")
             %>% filter(Year <= accord_end_year)
)

abs_data_start_year <- min(abs_data$Year)

oecd_data <- (read.csv("TUD_13012024005237384.csv")
              %>% select(Time, Value)
              %>% rename(Year = Time)
              %>% rename(Density = Value)
              %>% filter(Year < abs_data_start_year)
)

oecd_data_start_year <- min(oecd_data$Year)

all_data <- rbind(abs_data, oecd_data)

scale_x_start_year <- floor(min(all_data$Year) / 10) * 10
scale_x_end_year <- ceiling(max(all_data$Year) / 10) * 10
scale_y_start_year <- floor(min(all_data$Density) / 5) * 5
scale_y_end_year <- ceiling(max(all_data$Density) / 5) * 5

plot <- (ggplot()
         + geom_line(data = oecd_data, aes(x = Year, y = Density, color = "OECD"))
         + geom_line(data = abs_data, aes(x = Year, y = Density, color = "ABS"))
         + scale_color_manual(name = "Data sources:", breaks = c("OECD", "ABS"), values = c("OECD" = "darkgreen", "ABS" = "darkblue"))
         + scale_x_continuous(limits = c(oecd_data_start_year, accord_end_year), breaks = seq(scale_x_start_year, scale_x_end_year, by = 10))
         + scale_y_continuous(limits = c(scale_y_start_year, scale_y_end_year), breaks = seq(scale_y_start_year, scale_y_end_year, by = 10))
         + geom_vline(xintercept = accord_start_year, linetype = "dashed")
         + geom_text(aes(accord_start_year, scale_y_start_year + 0.75, label = str_glue("{accord_start_year} Accord"), hjust = -0.075), size = 3.25)
         + ggtitle(str_glue("{dependent_variable} {oecd_data_start_year}–{accord_end_year}"))
         + labs(x = "Year", y = str_glue("{dependent_variable} (%)"))
         + theme_bw()
         + theme(text = element_text(size = font_size))
         + theme(plot.title = element_text(size = font_size))
         + theme(plot.title = element_text(hjust = 0.5))
         + theme(aspect.ratio=1)
)

ggsave(str_glue("Australias {dependent_variable} {oecd_data_start_year}-{accord_end_year} with the {accord_start_year} Accord indicated.png"), plot, dpi = 150, height = 5, width = 6)