VIZ <- p_dat %>% 
  filter(year %in% 2005:2024, type == "alt", dom == "au") %>% 
  select(sex, dom, type, year, m)

ggplot(VIZ, aes(x = year, y = m, col = as.factor(sex))) +
  geom_line(alpha = .5) +
  geom_shadowpoint(size = 2.5) +
  scale_colour_viridis_d(end = .8, option = "B", name = NULL, labels = c("Frau", "Mann")) +
  theme_grey(base_size = 18) +
  labs(x = NULL, y = "Rentenauszahlung pro Kopf (relativ zu Minimalrente)",
       title = "Dynamik der Durchschnittsrenten im Ausland") +
  guides() +
  theme(legend.position = "top")
