age_1015 <- table_1015 %>%
  count(year, age, wt = weight, name = "count") %>%
  mutate(proportion = count / sum(count))