TABLE_I5 %>%
filter(COU == "FRA",
AVGRATES == "ALL_IN") %>%
year_to_date %>%
left_join(tibble(INCOMEAW = c("67", "100", "133", "167"),
Incomeaw = c(" 67% of Avg Wage",
"100% of Avg Wage",
"133% of Avg Wage",
"167% of Avg Wage")), by = "INCOMEAW") %>%
mutate(obsValue = obsValue/100) %>%
ggplot() + geom_line(aes(x = date, y = obsValue, color = Incomeaw)) +
scale_color_manual(values = viridis(5)[1:4]) +
theme_minimal() +
scale_x_date(breaks = seq(1920, 2025, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%y")) +
theme(legend.position = c(0.65, 0.8),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(0, 70, 2),
labels = percent_format(accuracy = 1),
limits = c(0.2, 0.4)) +
ylab("Average personal inc. tax and SSC rates on gross labour income") + xlab("")