INVPT_I %>%
filter(COUNTRY %in% c("FRA", "ITA", "ESP", "PRT", "GRC"),
SEX == "MW",
EMPSTAT == "TE",
AGE == "900000",
SERIES == "SHINV_PT") %>%
year_to_date %>%
left_join(INVPT_I_var$COUNTRY, by = "COUNTRY") %>%
rename(Location = Country) %>%
mutate(obsValue = obsValue / 100) %>%
left_join(colors, by = c("Location" = "country")) %>%
ggplot() + theme_minimal() + ylab("Share of involuntary part-timers (% of part-time employment)") + xlab("") +
geom_line(aes(x = date, y = obsValue, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1920, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 2),
labels = scales::percent_format(accuracy = 1))