Project 1 - figure 4

#================================population per name

population_per_name = data.frame(Year = selected_years)
population_per_name$Ratio = population$Change / (filtered_national %>% group_by(Year) %>% summarise(Count = n_distinct(Name)))$Count

ggplot() +
  geom_line(data=population_per_name, aes(Year, Ratio),color='purple') +
  ylab('Population per name (in thousands)') +
  ggtitle('Population per name') + 
  ylim(0, round_any(max(population_per_name$Ratio), 10000, f=ceiling))

(max(population_per_name$Ratio) - min(population_per_name$Ratio)) / max(population_per_name$Ratio)