ext_lt_introeu27_2020 %>%
filter(geo %in% c("EU27_2020", "CN_X_HK", "US"),
# B1GQ: Gross domestic product at market prices
indic_et == "PC_EXP_WRL",
sitc06 == "TOTAL") %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "CN_X_HK", "China", Geo)) %>%
mutate(Geo = ifelse(geo == "EU27_2020", "Europe", Geo)) %>%
year_to_date %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
ggplot + geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + theme_minimal() + add_3flags + xlab("") + ylab("% of World Exports") +
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()) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(acc = 1))