VIZ <- p_dat %>% 
  filter(type == "alt") %>% 
  dplyr::summarize(n = sum(n), .by = "year")
