ei_lmhr_m %>%
filter(geo %in% c("FR", "DE", "PT"),
unit == "PC_ACT",
s_adj == "SA",
indic == "LM-UN-T-TOT") %>%
month_to_date %>%
left_join(geo, by = "geo") %>%
ggplot + geom_line() + theme_minimal() +
aes(x = date, y = values/100, color = Geo, linetype = Geo) +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2020, 2), "-01-01")),
labels = date_format("%y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
xlab("") + ylab("Unemployment, Percentage of active population") +
scale_y_continuous(breaks = 0.01*seq(0, 200, 1),
labels = scales::percent_format(accuracy = 1))