Nashville Area Fair Market by Zip Code

LocalRents <- read.csv("https://drkblake.com/wp-content/uploads/2024/01/SAFMRNash24.csv")
LocalRents$ZIP <- as.character(LocalRents$ZIP)
#View(LocalRents)
summary(LocalRents)

##      ZIP                Studio         One_BR         Two_BR        Three_BR   
##  Length:125         Min.   : 890   Min.   : 900   Min.   :1020   Min.   :1290  
##  Class :character   1st Qu.:1100   1st Qu.:1130   1st Qu.:1270   1st Qu.:1590  
##  Mode  :character   Median :1180   Median :1210   Median :1360   Median :1720  
##                     Mean   :1315   Mean   :1351   Mean   :1523   Mean   :1920  
##                     3rd Qu.:1430   3rd Qu.:1470   3rd Qu.:1650   3rd Qu.:2070  
##                     Max.   :2110   Max.   :2160   Max.   :2430   Max.   :3050  
##     Four_BR    
##  Min.   :1610  
##  1st Qu.:1960  
##  Median :2100  
##  Mean   :2345  
##  3rd Qu.:2530  
##  Max.   :3730

hist(LocalRents$Two_BR,
     main = "Fair Market Rent in Nashville-area ZIP codes",
     xlab = "2024 Two-bedroom monthly FMR")