US Census 📍

Maps that look at the US Census at the macro-perspective of all counties in the United States.

📽️ Videos
Map: Chestnut Woods State Forest

How many households made less then $20,000 in 2024?

The most recent Census data available in May 2026 is from 2024. $20,000 a year even two years was pretty darn poor for household to live on, though many households do especially in the south.

RankStateHouseholds Making Under $20,000
1Puerto Rico40.18%
2Mississippi18.08%
3Louisiana17.45%
4West Virginia16.26%
5New Mexico15.95%
6Kentucky15.41%
7Arkansas15.27%
8Alabama15.13%
9Oklahoma13.56%
10South Carolina13.21%
11District of Columbia12.91%
12New York12.78%
13Tennessee12.74%
14Ohio12.55%
15Michigan12.23%
16North Carolina12.20%
17Missouri12.08%
18Rhode Island12.08%
19Georgia11.94%
20Pennsylvania11.54%
21Florida11.48%
22Illinois11.46%
23Indiana11.38%
24Texas11.29%
25Maine11.29%
26North Dakota11.16%
27Montana11.12%
28Wyoming10.90%
29Oregon10.75%
30Nevada10.62%
31Nebraska10.54%
32Kansas10.52%
33South Dakota10.49%
34Massachusetts10.48%
35Iowa10.46%
36Arizona10.38%
37Connecticut10.11%
38Wisconsin9.96%
39Vermont9.94%
40California9.77%
41Virginia9.46%
42Delaware9.17%
43Idaho9.12%
44New Jersey9.04%
45Minnesota9.03%
46Hawaii8.97%
47Maryland8.96%
48Washington8.69%
49Alaska8.69%
50Colorado8.62%
51New Hampshire7.86%
52Utah6.97%

Here is the simple R code to make this table using tidycensus and gt:

library(tidyverse)
library(tidycensus)
library(gt)

income <- get_acs(
  geography = "state",
  table = "B19001",
  year = 2024,
  output = "wide",
  survey = "acs5",
  geometry = FALSE);

income  |>
  select(ends_with('E'), -ends_with('001E')) |>
  rowwise()|>
  mutate(total = sum(across(matches('\\dE')))) |>
  mutate(across(matches('\\dE'), \(x) x/total)) |>
  transmute(State=NAME, `Households Making Under $20,000` = sum(across(c(B19001_002E, B19001_003E, B19001_004E)))) |>
  ungroup() |>
  arrange(desc(`Households Making Under $20,000`)) |>
  mutate(Rank = row_number(), .before=1) |>
  gt() |>
  fmt_percent(3)
Thematic Map: Catskill Creek Stream Access
Terrain Map: Three Corners LIDAR in Rensselaerville State Forest