Housing units added, new permits

seattle-units-added-new-permits.md

library(tidyverse)
library(httr)
library(jsonlite)

# downloaded data from: https://data.seattle.gov/Permitting/Building-Permits/76t5-zqzr
data_permits <- read_csv("Building_Permits.csv")

data_permits %>% 
  filter(PermitTypeDesc == "New") %>% 
  filter(PermitClassMapped == "Residential",
         PermitClass == "Multifamily") %>% 
  mutate(applied_date_ceiling = lubridate::ceiling_date(AppliedDate, "quarters")) %>% 
  filter(AppliedDate < ymd(20230701), AppliedDate >= ymd(20180101)) %>% 
  group_by(applied_date_ceiling) %>% 
  summarise(new_units = sum(HousingUnitsAdded - HousingUnitsRemoved, na.rm = TRUE)) %>% 
  ggplot(aes(x = applied_date_ceiling, y = new_units))+
  geom_line()+
  ylim(0, NA)+
  theme_bw()+
  labs(
    x = "Applied Date (Quarter)",
    y = "New Residential Multifamily Units Added",
    title = "Seattle building permits issued or in progress"
  )

See related gist I made on permits issued: https://gist.github.com/brshallo/80401859d428a55967ce0d8bcfe16aee
(though used the .xlsx data source on SPD's website... and did not check closely that exactly mirrored approach as formats of files were different...)