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()