Property Tax Fairness
From the Center for Municipal Finance
To generate the report, first download the data. This dataset is a raw public dataset we can use.
After downloading the dataset, please run the below R code, for example in RStudio. Remember to replace “your output directory” with the path where you want to save the generated report.
library(tidyverse)
library(data.table)
library(cmfproperty)
library(readxl)
files <- list.files(paste0(cmf_files, “/Cook County/”))
files <- files[4:17]
tmp <- data.frame()
for(file in files){
cur <- read_csv(paste0(cmf_files, “/Cook County/”, file))
tmp <- rbind(tmp, cur)}
good_classes <- c(202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 234, 278, 295, 299)
df <- tmp %>% filter(bor_class %in% good_classes)
df <- df %>% mutate(SALE_PRICE = NetConsideration, TAX_YEAR = taxyear, SALE_YEAR = joinyr, ASSESSED_VALUE = bor_CCAO_ass, TOTAL_AV = ASSESSED_VALUE / assessment_percentage)
df <- df[c(‘SALE_PRICE’, ‘SALE_YEAR’, ‘TAX_YEAR’, ASSESSED_VALUE’)]
ratios <- cmfproperty::reformat_data(df, sale_col = “SALE_PRICE”, assessment_col = “ASSESSED_VALUE”, sale_year_col = “SALE_YEAR”)
cmfproperty::make_report(ratios, jurisdiction_name = “Cook County”, output_dir = “your output directory”)