library(tidyverse)
load("/cloud/project/Nat0718.Rdata")
RaceYrAge = Nat0718 %>% group_by(Race,yr,Age) %>% summarize(Births = sum(Births), Fpop = sum(Fpop) ) %>% mutate(Rate = Births/Fpop) #View(RaceYrAge)
RaceYear = RaceYrAge %>% group_by(Race, yr) %>% summarize(TFR = sum(Rate)*5) %>% ungroup()
RaceYear %>% ggplot(aes(x=yr,y=TFR,color = Race)) + geom_point()
