Lab 1 & HW 2

The following are maps of Bexar County in the year of 2019 observing poverty and median household income. This is done using the American Community Survey (ACS) using 5 year estimates.

acs<-read.csv("C:/Users/BTP/Documents/GIS CLASS/GIS Lab 1/ACSDP5Y2019.DP03_2023-01-25T194203/BEXALLTRACTS/ACSDP5Y2019.DP03-Data.csv",
 header=T,
 na.strings=c("N", "(X)", "-", "**"))

acs$pop<-acs$DP03_0001E
acs$pov_r<-acs$DP03_0119PE
acs$tractid<-substr(acs$GEO_ID, start=10, stop = 20)
acs$medhhincome<-acs$DP03_0062E

acs<-acs[, c("tractid", "pov_r", "pop", "medhhincome")]

library(foreign)

write.dbf(acs,file = "C:/Users/BTP/Documents/GIS CLASS/GIS Lab 1/ACSDP5Y2019.DP03_2023-01-25T194203/BEXALLTRACTS/ACSDP5Y2019.DP03-Data1.dbf")