Code
%>%
IFS_ER filter(countryname == "United Kingdom") %>%
ggplot() + geom_line(aes(x = date, y = value, linetype = freq, color = freq)) +
theme_minimal() + xlab("") + ylab("") +
scale_color_manual(values = viridis(4)[1:3]) +
theme(legend.title = element_blank(),
legend.position = c(0.1, 0.70)) +
scale_y_continuous(breaks = seq(0, 10, 0.1)) +
scale_x_date(labels = date_format("%y"),
breaks = seq(1900, 2020, 10) %>% paste0("-01-01") %>% as.Date)