road_eqs_carage %>%
left_join(geo, by = "geo") %>%
filter(geo %in% c("FR", "DE", "IT"),
age == "TOTAL") %>%
year_to_date() %>%
arrange(date) %>%
ggplot(.) + geom_line(aes(x = date, y = values/1000000, color = Geo, linetype = Geo)) +
theme_minimal() + xlab("") + ylab("Passenger cars") +
scale_x_date(breaks = seq(1960, 2020, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%y")) +
scale_y_continuous(breaks = seq(0, 100, 5),
labels = dollar_format(accuracy = 1, prefix = "", suffix = "M")) +
scale_color_manual(values = viridis(5)[1:4]) +
theme(legend.position = c(0.2, 0.80),
legend.title = element_blank())