SH <- sh %>% 
  filter(type == "alt", share > 0, sex == "f")

ggplot(SH %>% filter(year %in% 2029:2030),
       aes(x = age, y = share, fill = as.factor(year))) +
  geom_col(position = "dodge")
