Compare Median Income and Fair Market Rent

Find and visualize the Illinois counties where the rent is a higher proportion of income by combining Wolfram Knowledgebase data with public data

Information for 2019 median income by Illinois county is built into the Wolfram system:

In[1]:=

illinois2019income=EntityValue

US counties in Illinois

ADMINISTRATIVE DIVISIONS

,Dated

median household income

,2019,"Association";Take[illinois2019income,UpTo[5]]

Out[1]=



Adams County, Illinois, United States



52993

per year

Alexander County, Illinois, United States



36806

per year

Bond County, Illinois, United States



57289

per year

Boone County, Illinois, United States



69272

per year

Brown County, Illinois, United States



61655

per year



Information for 2019 fair market rent can be imported from this public URL:

In[2]:=

rent2019=Import["https://www.huduser.gov/portal/datasets/fmr/fmr2019/FY2019_4050_FMRs_rev2.xlsx","Tabular"]〚1〛

Out[2]=

Combine only the relevant data from the two sources:

In[3]:=

illinoisCombined2019=ConstructColumns[Select[rent2019,#"state_alpha"==="IL"&],{"County"Function[Interpreter["AdministrativeDivision"][#countyname<>", IL"]],"Studio"Function[Quantity[#"fmr_0","USDollars"/"Months"]],"1BR"Function[Quantity[#"fmr_1","USDollars"/"Months"]],"2BR"Function[Quantity[#"fmr_2","USDollars"/"Months"]],"3BR"Function[Quantity[#"fmr_3","USDollars"/"Months"]],"4BR"Function[Quantity[#"fmr_4","USDollars"/"Months"]],"HouseholdIncome"Function[illinois2019income@Interpreter["AdministrativeDivision"][#countyname<>", IL"]]}]//Select[!FailureQ[#County]&]

Out[3]=

Compute the ratio of fair market rent to median household income for each county in the dataset:

In[4]:=

ratioCalculator=QuantityMagnitude[#1]/QuantityMagnitude[UnitConvert[#2,"USDollars"/"Months"]]&;illinoisRatios2019=ConstructColumns[illinoisCombined2019,{"County","Studio"Function[ratioCalculator[#Studio,#HouseholdIncome]],"1BR"Function[ratioCalculator[#"1BR",#HouseholdIncome]],"2BR"Function[ratioCalculator[#"2BR",#HouseholdIncome]],"3BR"Function[ratioCalculator[#"3BR",#HouseholdIncome]],"4BR"Function[ratioCalculator[#"4BR",#HouseholdIncome]]}]

Out[4]=

Plot the data for a two-bedroom apartment:

In[5]:=

GeoRegionValuePlot[(#County#"2BR"&)/@Normal[illinoisRatios2019],PlotLabel"2019 2BR Rent / Median Income",GeoLabels(Tooltip[#1,(CommonName[#2]<>": ")<>ToString[#4]]&)]

Out[5]=

Plot the data for all apartment sizes:

In[6]:=

TabView[Table[sizeGeoRegionValuePlot[(#County#[size]&)/@Normal[illinoisRatios2019],PlotLabel"2019 "<>size<>" Rent / Median Income",GeoLabels(Tooltip[#1,(CommonName[#2]<>": ")<>ToString[#4]]&)],{size,{"Studio","1BR","2BR","3BR","4BR"}}]]

Out[6]=

Studio

1BR

2BR

3BR

4BR

Source Metadata

Citation: U.S. Department of Housing and Urban Development, Fair Market Rents

Publisher Information

Contributed by: John McNally

Compare Median Income and Fair Market Rent

Source Metadata

Related Symbols

Publisher Information