knitr::opts_chunk$set(
error = FALSE,
message = FALSE,
warning = FALSE
)
library(tidyverse)
library(sf)
library(janitor)
library(lubridate)
library(tidycensus)
Part 1: Identifying Potential Illegal Basement Units
boroughs <-
read_sf("../Data/borough_boundaries") %>%
st_transform(crs = 2263)
tracts <-
read_sf("../Data/ct_2010") %>%
st_transform(crs = 2263) %>%
mutate(
ct2010 = as.numeric(ct2010) / 100 #converting to MAPPLUTO format
)
blocks <-
read_sf("../Data/cb_2010") %>%
st_transform(crs = 2263) %>%
mutate(
ct2010 = as.numeric(ct2010) / 100 #converting to MAPPLUTO format
)
boroughs %>%
ggplot() +
geom_sf() +
geom_sf(data = blocks, color = "darkred", size = 0.2) +
theme_void()