The table shows estimated typical rents for various rental unit sizes in key Rutherford County ZIP codes. The data come from the U.S. Department of Housing and Urban Development’s Small-Area Fair Market Rent program. Each estimate reflects the 40th percentile of all rents, including utilities, in a ZIP code for a standard-quality, recently rented home of the indicated size.
In practical terms, a renter with a housing budget equal to a ZIP code’s small-area fair market rent for, let’s say, a two-bedroom rental home could expect to afford any one of the least-expensive 40 percent of typical rental homes available in the ZIP code. The other 60 percent of such rental homes in the ZIP code would be too expensive for the renter’s budget. HUD uses these estimates to determine the size of federal housing subsidies.
| Rutherford FMR, by size and ZIP | |||||
| ZIP | Studio | BR1 | BR2 | BR3 | BR4 |
|---|---|---|---|---|---|
| 37037 | 1900 | 1990 | 2180 | 2790 | 3400 |
| 37085 | 1320 | 1380 | 1520 | 1940 | 2360 |
| 37086 | 1730 | 1820 | 1990 | 2540 | 3100 |
| 37118 | 1150 | 1170 | 1320 | 1660 | 2020 |
| 37127 | 1360 | 1420 | 1560 | 1990 | 2430 |
| 37128 | 1570 | 1640 | 1800 | 2300 | 2800 |
| 37129 | 1570 | 1640 | 1800 | 2300 | 2800 |
| 37130 | 1280 | 1340 | 1470 | 1880 | 2290 |
| 37132 | 1280 | 1340 | 1470 | 1880 | 2290 |
| 37149 | 1150 | 1180 | 1320 | 1660 | 2020 |
| 37153 | 1670 | 1750 | 1920 | 2450 | 2990 |
| 37167 | 1430 | 1500 | 1640 | 2100 | 2560 |
# ----------------------------------------------------------
# Install & load required packages
# ----------------------------------------------------------
if (!require("tidyverse"))
install.packages("tidyverse")
if (!require("gt"))
install.packages("gt")
library(tidyverse)
library(readxl)
library(gt)
# ----------------------------------------------------------
# Download HUD SAFMR Excel file
# ----------------------------------------------------------
download.file(
"https://www.huduser.gov/portal/datasets/fmr/fmr2026/fy2026_safmrs.xlsx",
"rent.xlsx",
mode = "wb"
)
# ----------------------------------------------------------
# Read Excel data
# ----------------------------------------------------------
FMR <- read_xlsx(path = "rent.xlsx", .name_repair = "universal")
# ----------------------------------------------------------
# Rutherford County ZIP Codes
# ----------------------------------------------------------
ZIPList <- c(
"37127", "37128", "37129", "37130", "37132",
"37085", "37118", "37149", "37037", "37153",
"37167", "37086"
)
# ----------------------------------------------------------
# Filter, select columns, and rename
# ----------------------------------------------------------
FMR_RuCo <- FMR %>%
filter(ZIP.Code %in% ZIPList) %>%
select(
ZIP.Code,
SAFMR.0BR,
SAFMR.1BR,
SAFMR.2BR,
SAFMR.3BR,
SAFMR.4BR
) %>%
distinct()
colnames(FMR_RuCo) <- c("ZIP", "Studio", "BR1", "BR2", "BR3", "BR4")
# ----------------------------------------------------------
# Basic GT table
# ----------------------------------------------------------
FMR_RuCo_table <- gt(FMR_RuCo) %>%
tab_header(title = "Rutherford FMR, by size and ZIP") %>%
cols_align(align = "left")
FMR_RuCo_table