To summarize this table, the DP02_0018P variable gives you the estimate median age of all households in eahc county. Starting at the top, we have Cumberland County with the estimatimate median age at 53.5 and coming in at the lowest, we have Montgomery County with the estimate median age at 31.9.

As for the margin of error, that is there because each county’s median age estimate is based on surveys collected from a relatively small, but random, sample of the county’s households rather than from every household in the county.

This data shown was collected from the Census Data API Service shows around seven pages of questions to each person in the household and another four pages of questions to the “head” of the household.

County	Variable	Estimate	Margin of Error
Cumberland County, Tennessee	DP05_0018	53.5	0.4
Pickett County, Tennessee	DP05_0018	51.6	0.7
Loudon County, Tennessee	DP05_0018	48.8	0.4
Clay County, Tennessee	DP05_0018	48.5	1.3
Benton County, Tennessee	DP05_0018	47.8	0.7
Fayette County, Tennessee	DP05_0018	47.4	0.3
Grainger County, Tennessee	DP05_0018	47.4	0.7
Roane County, Tennessee	DP05_0018	47.3	0.3
Van Buren County, Tennessee	DP05_0018	47.2	0.5
Fentress County, Tennessee	DP05_0018	46.9	0.4
Jackson County, Tennessee	DP05_0018	46.9	1.2
Polk County, Tennessee	DP05_0018	46.9	0.6
Unicoi County, Tennessee	DP05_0018	46.9	1.0
Johnson County, Tennessee	DP05_0018	46.7	0.7
Moore County, Tennessee	DP05_0018	46.2	0.4
Hawkins County, Tennessee	DP05_0018	46.0	0.4
Carter County, Tennessee	DP05_0018	45.9	0.3
Decatur County, Tennessee	DP05_0018	45.8	0.3
Henry County, Tennessee	DP05_0018	45.8	0.6
Bledsoe County, Tennessee	DP05_0018	45.5	0.7
Meigs County, Tennessee	DP05_0018	45.4	0.6
Cocke County, Tennessee	DP05_0018	45.3	0.2
Monroe County, Tennessee	DP05_0018	45.2	0.3
Hardin County, Tennessee	DP05_0018	45.1	0.5
Sullivan County, Tennessee	DP05_0018	45.0	0.2
Sequatchie County, Tennessee	DP05_0018	44.9	0.6
Greene County, Tennessee	DP05_0018	44.7	0.2
Wayne County, Tennessee	DP05_0018	44.4	0.7
Jefferson County, Tennessee	DP05_0018	44.3	0.5
Stewart County, Tennessee	DP05_0018	44.3	0.8
Campbell County, Tennessee	DP05_0018	44.2	0.4
Marion County, Tennessee	DP05_0018	43.8	0.4
Blount County, Tennessee	DP05_0018	43.7	0.3
Overton County, Tennessee	DP05_0018	43.7	0.5
Giles County, Tennessee	DP05_0018	43.5	0.3
Sevier County, Tennessee	DP05_0018	43.5	0.6
White County, Tennessee	DP05_0018	43.5	0.6
Humphreys County, Tennessee	DP05_0018	43.3	0.8
Perry County, Tennessee	DP05_0018	43.3	1.6
Haywood County, Tennessee	DP05_0018	43.2	0.5
Hancock County, Tennessee	DP05_0018	43.1	1.1
Houston County, Tennessee	DP05_0018	43.0	1.0
Lincoln County, Tennessee	DP05_0018	42.9	0.6
McNairy County, Tennessee	DP05_0018	42.9	0.6
Lake County, Tennessee	DP05_0018	42.8	1.8
Grundy County, Tennessee	DP05_0018	42.7	0.4
Union County, Tennessee	DP05_0018	42.7	0.7
Claiborne County, Tennessee	DP05_0018	42.5	0.9
McMinn County, Tennessee	DP05_0018	42.4	0.3
Hickman County, Tennessee	DP05_0018	42.3	0.7
Morgan County, Tennessee	DP05_0018	42.3	0.8
Franklin County, Tennessee	DP05_0018	42.2	0.8
Rhea County, Tennessee	DP05_0018	42.0	0.9
DeKalb County, Tennessee	DP05_0018	41.9	1.1
Lewis County, Tennessee	DP05_0018	41.9	1.7
Obion County, Tennessee	DP05_0018	41.8	0.4
Anderson County, Tennessee	DP05_0018	41.5	0.4
Cheatham County, Tennessee	DP05_0018	41.5	0.5
Carroll County, Tennessee	DP05_0018	41.3	0.9
Scott County, Tennessee	DP05_0018	40.7	0.9
Smith County, Tennessee	DP05_0018	40.6	0.4
Henderson County, Tennessee	DP05_0018	40.4	0.9
Williamson County, Tennessee	DP05_0018	40.4	0.3
Dyer County, Tennessee	DP05_0018	40.2	0.6
Washington County, Tennessee	DP05_0018	40.2	0.5
Hamblen County, Tennessee	DP05_0018	40.1	0.5
Hardeman County, Tennessee	DP05_0018	40.1	0.8
Cannon County, Tennessee	DP05_0018	40.0	1.1
Sumner County, Tennessee	DP05_0018	39.8	0.4
Warren County, Tennessee	DP05_0018	39.8	0.7
Wilson County, Tennessee	DP05_0018	39.8	0.4
Crockett County, Tennessee	DP05_0018	39.7	1.9
Gibson County, Tennessee	DP05_0018	39.6	0.4
Bradley County, Tennessee	DP05_0018	39.5	0.5
Hamilton County, Tennessee	DP05_0018	39.5	0.3
Marshall County, Tennessee	DP05_0018	39.5	0.6
Lawrence County, Tennessee	DP05_0018	39.3	0.5
Lauderdale County, Tennessee	DP05_0018	39.2	0.8
Macon County, Tennessee	DP05_0018	39.2	0.6
Dickson County, Tennessee	DP05_0018	39.1	0.6
Maury County, Tennessee	DP05_0018	39.1	0.5
Coffee County, Tennessee	DP05_0018	39.0	0.6
Tipton County, Tennessee	DP05_0018	39.0	0.7
Robertson County, Tennessee	DP05_0018	38.7	0.6
Madison County, Tennessee	DP05_0018	38.3	0.5
Bedford County, Tennessee	DP05_0018	37.6	0.7
Chester County, Tennessee	DP05_0018	37.6	0.9
Knox County, Tennessee	DP05_0018	37.4	0.2
Weakley County, Tennessee	DP05_0018	37.3	0.8
Putnam County, Tennessee	DP05_0018	36.0	0.4
Shelby County, Tennessee	DP05_0018	35.9	0.1
Trousdale County, Tennessee	DP05_0018	35.0	1.0
Davidson County, Tennessee	DP05_0018	34.6	0.1
Rutherford County, Tennessee	DP05_0018	34.2	0.1
Montgomery County, Tennessee	DP05_0018	31.9	0.2

Code:

############################################################
# STEP 1: Load Packages
############################################################

if (!require("tidycensus")) install.packages("tidycensus")
if (!require("tidyverse")) install.packages("tidyverse")
if (!require("kableExtra")) install.packages("kableExtra")

library(tidycensus)
library(tidyverse)
library(kableExtra)

############################################################
# STEP 2: Verify Census API Key
############################################################

if (!nzchar(Sys.getenv("CENSUS_API_KEY"))) {
  
  stop(
    paste(
      "\nNo Census API key was found.",
      "\n\nTo obtain a free Census API key, visit:",
      "\nhttps://api.census.gov/data/key_signup.html",
      "\n\nThen run the one-time setup code at the",
      "\ntop of this script to store your key.",
      "\n"
    )
  )
  
}

############################################################
# STEP 3: Explore 2024 Codebooks and Choose an ACS Variable
############################################################

ProfileTables  <- load_variables(2024, "acs5/profile")
# DetailedTables <- load_variables(2024, "acs5")
# SubjectTables  <- load_variables(2024, "acs5/subject")


# Replace the variable code below with the ACS variable
# you want to download.

my_variable <- "DP05_0018" # <<< CAN CHANGE THE VARIABLE CODE

# Example variables:
#
# DP05_0001  = Total population
# DP03_0062  = Median Household Income
# DP03_0128P = Poverty Rate
# DP02_0068P = Bachelor's Degree or Higher Rate
# DP05_0018  = Median Age
# DP04_0046P = Homeownership Rate
# DP04_0134  = Median Gross Rent
# DP04_0142P = Pct. renters paying 35%+ HH income in rent (GRAPI)
# DP05_0090P = Hispanic or Latino Population Percentage
# DP02_0094P = Foreign-Born Percentage
# DP03_0009P = Unemployment Rate
# DP03_0025  = Average Commute Time

############################################################
# STEP 4: Download Tennessee County Data
############################################################

mydata <- get_acs(
  geography = "county",
  state = "TN",  # <<< CAN CHANGE THE STATE
  year = 2024,
  survey = "acs5",
  variables = my_variable
)

############################################################
# STEP 5: Keep Needed Variables
############################################################

mydata <- mydata |>
  select(
    County = NAME,
    Variable = variable,
    Estimate = estimate,
    Margin_of_Error = moe
  )

############################################################
# STEP 6: Sort Results from Highest to Lowest
############################################################

mydata <- mydata |>
  arrange(desc(Estimate))

############################################################
# STEP 7: Display Results as a Table
############################################################

ResultsTable <- mydata |>
  kbl(
    col.names = c(
      "County",
      "Variable",
      "Estimate",
      "Margin of Error"
    ),
    format.args = list(big.mark = ",")
  ) |>
  kable_styling(
    bootstrap_options = c("striped", "hover"),
    full_width = FALSE
  )

ResultsTable

############################################################

report 4

Maya Johnson

2026-09-18

Code: