sts_intvd_m %>%
filter(nace_r2 == "C",
unit == "I15",
s_adj == "SCA",
indic_bt == "TOVD",
geo %in% c("FR", "DE", "IT")) %>%
select(geo, time, values) %>%
group_by(geo) %>%
mutate(values = 100*values/values[time == "2000M01"]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
month_to_date %>%
ggplot() + ylab("Index of turnover - domestic market") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = values, color = Geo)) +
scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
scale_x_date(breaks = seq(1920, 2025, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%y")) +
geom_image(data = . %>%
filter(date == as.Date("2014-01-01")) %>%
mutate(image = paste0("../../icon/flag/", str_to_lower(Geo), ".png")),
aes(x = date, y = values, image = image), asp = 1.5) +
theme(legend.position = "none") +
scale_y_log10(breaks = seq(-60, 300, 10))