head(CIAdata())
Population <- CIAdata("pop")
nrow(Population)
head(Population)
PopArea <- CIAdata(c("pop","area")) %>% mutate(density = pop / area)
nrow(PopArea)
head(PopArea)
PopArea %>%
filter(!is.na(density)) %>%
arrange(density) %>%
tail
Run the code above in your browser using DataLab