Census Data Handler

CensusDataHandler.r

library(PL94171)
library(tigris)
library(rgdal)
library(dplyr)

# Simplifed Rename function
renameColums <- function(dat){
  a <- rename_with(dat, ~gsub(".x", "_2020", .x))
  a <- rename_with(a, ~gsub(".y", "_2010", .x))
}

#2010 and 2020 Census Data
raw2010 <- pl_subset(pl_read(pl_url("MD", 2010)), sumlev="140")
data2010 <- pl_select_standard(raw2010)

vraw2020 <- pl_subset(pl_read(pl_url("MD", 2020)), sumlev="140")
data2020 <- pl_select_standard(raw2020)

va_merge <- merge(data2020, data2010, by="GEOID")

merge_final <- renameColums(merge)
merge_final <- mutate(merge_final, PopChange = pop_2020 - pop_2010)

write.csv(va_merge_final, "md.csv")

#Get Newest Census Tracts
tracts_2020 <- tracts("MD", year=2020, progress_bar=FALSE, class="sp")
writeOGR(va_tracts_2020, dsn = "md.shp", layer = "map", driver = "ESRI Shapefile" )