Final Project 1

grid.arrange(p1, p2, p3, p4, top = "Average pollutant levels (2000 - 2016)")

unnamed-chunk-2

so2state

unnamed-chunk-4

grid.arrange(drought.map1, poverty.map1, top = "")

unnamed-chunk-7

i

unnamed-chunk-9