I installed R and RStudio this week, ran a script that produces a data frame showing county-level population data for the Nashville area, and used RMarkdown to produce this report. The “CurrentPop” estimates came from the U.S. Census Bureau’s American Community Survey, show population estimates from the 2024 five-year ACS survey. The “EarlierPop” estimates came from the 2019 five-year ACS survey.
For more about the American Community Survey, see the ACS website.
Here’s a look at the data frame’s content:
## County CurrentPop EarlierPop Region
## 1 Cannon 14818 13958 Non-doughnut
## 2 Cheatham 41829 39087 Doughnut
## 3 Davidson 715388 598184 Davidson
## 4 Dickson 55983 51608 Non-doughnut
## 5 Hickman 25436 24561 Non-doughnut
## 6 Macon 26240 23261 Non-doughnut
## 7 Maury 107791 88738 Non-doughnut
## 8 Robertson 75539 67517 Doughnut
## 9 Rutherford 360646 292425 Doughnut
## 10 Smith 20389 19389 Non-doughnut
## 11 Sumner 204424 174773 Doughnut
## 12 Trousdale 11957 10131 Non-doughnut
## 13 Williamson 260351 208242 Doughnut
## 14 Wilson 158805 129918 Doughnut
County <- c("Cannon", "Cheatham", "Davidson", "Dickson", "Hickman", "Macon",
"Maury", "Robertson", "Rutherford", "Smith", "Sumner", "Trousdale",
"Williamson", "Wilson")
CurrentPop <- c(14818, 41829, 715388, 55983, 25436, 26240, 107791, 75539, 360646,
20389, 204424, 11957, 260351, 158805)
EarlierPop <- c(13958, 39087, 598184, 51608, 24561, 23261, 88738, 67517, 292425,
19389, 174773, 10131, 208242, 129918)
Region <- c("Non-doughnut", "Doughnut", "Davidson", "Non-doughnut", "Non-doughnut",
"Non-doughnut", "Non-doughnut", "Doughnut", "Doughnut", "Non-doughnut",
"Doughnut", "Non-doughnut", "Doughnut", "Doughnut")
Population <- data.frame(
County,
CurrentPop,
EarlierPop,
Region
)
Population