Age Pyramids

Age Pyramids

#read in data from CDC wonder
library(ggplot2)
NM<-read.csv("C:/Users/rlutt/Downloads/New Mexico.csv", header=FALSE)
Minn<-read.csv("C:/Users/rlutt/Downloads/Minnesota.csv", header=FALSE)
Minn5<-read.csv("C:/Users/rlutt/Downloads/Minnesota 5.csv", header=FALSE)
NM5<-read.csv("C:/Users/rlutt/Downloads/New Mexico 5.csv", header=FALSE)

Minnesota- 1 year pyramid

ggplot(Minn, aes(x = V1, fill = V2,
                 y = ifelse(test = V2 == "Male",
                            yes = -V3, no = V3))) + 
  geom_bar(stat = "identity") +
  scale_y_continuous(labels = abs, limits = max(Minn$V3) * c(-1,1)) +
  coord_flip() +
labs(title = "Population Pyramid for Minnesota (1yr)", x = "Age", y = "Population Size") 

Si

Minnesota- 5 year groupings pyramid

ggplot(Minn5, aes(x = V1, fill = V2,
                 y = ifelse(test = V2 == "Male",
                            yes = -V6, no = V6))) + 
  geom_bar(stat = "identity") +
  scale_y_continuous(labels = abs, limits = max(Minn5$V6) * c(-1,1)) +
  coord_flip() +
labs(title = "Population Pyramid for Minnesota (5yr)", x = "Age", y = "Population Size") 

New Mexico- 1 year pyramid

ggplot(NM, aes(x = V1, fill = V2,
                 y = ifelse(test = V2 == "Male",
                            yes = -V3, no = V3))) + 
  geom_bar(stat = "identity") +
  scale_y_continuous(labels = abs, limits = max(NM$V3) * c(-1,1)) +
  coord_flip()+
labs(title = "Population Pyramid for New Mexico (1yr)", x = "Age", y = "Population Size") 

New Mexico- 5 year groupings pyramid

ggplot(NM5, aes(x = V1, fill = V2,
                 y = ifelse(test = V2 == "Male",
                            yes = -V3, no = V3))) + 
  geom_bar(stat = "identity") +
  scale_y_continuous(labels = abs, limits = max(NM5$V3) * c(-1,1)) +
  coord_flip()+
labs(title = "Population Pyramid for New Mexico (5yr)", x = "Age", y = "Population Size")