VIZ_W <- wid %>% 
  bind_rows(filter(p_dat, type == "wit", year <= first(par$pint))) %>% 
  filter(sex == "m", year %in% 2015:2040) %>% 
  group_by(dom) %>% 
  arrange(year, by_group = TRUE) %>% 
  mutate(g = n / lag(n) - 1, type = "wid")

ggplot(VIZ_W, aes(x = year, y = g, col = dom)) +
  geom_line(alpha = .5) +
  geom_shadowpoint()

VIZ_S <- p_dat %>% 
  filter(type == "alt", sex == "m", year %in% 2015:2040) %>% 
  group_by(dom) %>% 
  arrange(year, by_group = TRUE) %>% 
  mutate(g = n / lag(n) - 1)

ggplot(bind_rows(VIZ_W, VIZ_S),
       aes(x = year, y = g, col = dom, shape = type, group = interaction(dom, type))) +
  geom_line(alpha = .5) +
  geom_shadowpoint()
