7093_HW4

Find the ACS variable for the Percent Vacant housing units for 2011 and 2019 for Harris County, TX

v11_Profile[grep(x = v11_Profile$label,
                 "VACANT HOUSING",
                 ignore.case = TRUE), 
            c("name", "label")]

v19_Profile[grep(x = v19_Profile$label,
                 "VACANT HOUSING",
                 ignore.case = TRUE), 
            c("name", "label")]

Create a map using quantile breaks of this variable for each year

Calculate the differences between the two years, including the test for significance of the differences

head(differences11to19)

table(differences11to19$result)

## 
## insignificant change significant decrease significant increase 
##                  393                  257                  101

## Compare to tidycensus

table(merged_vacant$signif)

## 
## FALSE  TRUE 
##   393   358

Create a map showing the differences by census tract