Property Tax Fairness
From the Center for Municipal Finance
To generate the report, first Download 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(readstata13)
library(cmfproperty)
require(lubridate)
df_full <- fread(“final_merged.csv”)
df_11 <- fread(“2011.csv”)
df_12 <- fread(“2012.csv”)
df_13 <- fread(“2013.csv”)
df_14 <- fread(“2014.csv”)
small_11 <- df_11 %>% select(PARCEL, LYTOTAL) %>% mutate(SALEYEAR = 2011)
small_12 <- df_12 %>% select(PARCEL, LYTOTAL) %>% mutate(SALEYEAR = 2012)
small_13 <- df_13 %>% select(PARCEL, LYTOTAL) %>% mutate(SALEYEAR = 2013)
small_14 <- df_14 %>% select(PARCEL, LYTOTAL) %>% mutate(SALEYEAR = 2014)
small_joined <- rbind(small_11, small_12, small_13, small_14)
df_mini <- df_full %>% filter(SALEYEAR == sale_year, SALEYEAR >= 2011, SALEYEAR <=2014)
df_other <- df_full %>% filter(SALEYEAR == sale_year, SALEYEAR < 2011 | SALEYEAR > 2014)
df_mini <- df_mini %>% left_join(small_joined, by=c(“PARCEL”, “SALEYEAR”))
df_mini <- df_mini %>% mutate(TOTVAL = LYTOTAL) %>% select(-LYTOTAL)
df_final <- rbind(df_other, df_mini)
fwrite(df_final,”final_merged_corrected.csv”)
df <- fread(“final_merged_corrected.csv”)
df <- df %>% mutate(SALE_YEAR = SALEYEAR, SALE_PRICE = SALEPRICE, ASSESSED_VALUE = TOTVAL, TAX_YEAR = SALE_YEAR)
df <- df %>% filter(ASSESSED_VALUE > 100, SALE_PRICE > 100)
ratios <- cmfproperty::reformat_data(df, sale_col = “SALE_PRICE”, assessment_col = “ASSESSED_VALUE”, sale_year_col = “SALE_YEAR”)
cmfproperty::make_report(ratios, jurisdiction_name = “Las Vegas City”, output_dir = “your output directory”)
Below is a pre-generated example report: