VIZ <- sh %>% 
  filter(type == "wit", share > 0)

ggplot(VIZ, aes(x = age, y = share, col = interaction(sex, nat))) +
  geom_shadowpoint()
