library(tidyverse)
library(ggplot2)
library(ggthemes)
library(socviz)
library(maps)
library(mapproj)
library(questionr)
library(viridis)
library(leaflet)
library(tidycensus)
options(scipen=999) Lab 7.1
Whataburger and Texas Population Overlay
TEXAS POPULATION DATA
library(tidycensus)
library(sf)
library(stringr)
census_api_key("756c3ee74c167648a1238f286b6a2c6f47938544")
tx_pop <-
get_acs(geography = "county",
variables = "B01003_001",
state = "TX",
geometry = TRUE)
|
| | 0%
|
| | 1%
|
|= | 1%
|
|= | 2%
|
|== | 2%
|
|== | 3%
|
|=== | 4%
|
|=== | 5%
|
|==== | 5%
|
|==== | 6%
|
|===== | 6%
|
|===== | 7%
|
|===== | 8%
|
|====== | 8%
|
|====== | 9%
|
|======= | 9%
|
|======= | 10%
|
|========== | 14%
|
|========== | 15%
|
|=========== | 15%
|
|=========== | 16%
|
|============ | 17%
|
|============ | 18%
|
|============= | 18%
|
|============= | 19%
|
|============== | 19%
|
|============== | 20%
|
|============== | 21%
|
|=============== | 21%
|
|=============== | 22%
|
|================ | 22%
|
|================ | 23%
|
|================ | 24%
|
|================= | 24%
|
|================= | 25%
|
|================== | 25%
|
|================== | 26%
|
|=================== | 26%
|
|=================== | 27%
|
|=================== | 28%
|
|==================== | 28%
|
|==================== | 29%
|
|===================== | 29%
|
|===================== | 30%
|
|===================== | 31%
|
|====================== | 31%
|
|====================== | 32%
|
|======================= | 32%
|
|======================= | 33%
|
|======================= | 34%
|
|======================== | 34%
|
|======================== | 35%
|
|========================= | 35%
|
|========================= | 36%
|
|========================== | 36%
|
|========================== | 37%
|
|========================== | 38%
|
|=========================== | 38%
|
|=========================== | 39%
|
|============================ | 39%
|
|============================ | 40%
|
|============================ | 41%
|
|============================= | 41%
|
|=============================== | 44%
|
|=============================== | 45%
|
|================================ | 45%
|
|================================ | 46%
|
|================================= | 46%
|
|================================= | 47%
|
|================================= | 48%
|
|================================== | 48%
|
|================================== | 49%
|
|=================================== | 49%
|
|=================================== | 50%
|
|=================================== | 51%
|
|==================================== | 51%
|
|==================================== | 52%
|
|===================================== | 52%
|
|===================================== | 53%
|
|===================================== | 54%
|
|====================================== | 54%
|
|====================================== | 55%
|
|======================================= | 55%
|
|======================================= | 56%
|
|======================================== | 57%
|
|======================================== | 58%
|
|========================================= | 58%
|
|========================================= | 59%
|
|========================================== | 59%
|
|========================================== | 60%
|
|========================================== | 61%
|
|=========================================== | 61%
|
|=========================================== | 62%
|
|============================================ | 62%
|
|============================================ | 63%
|
|============================================ | 64%
|
|============================================= | 64%
|
|============================================= | 65%
|
|============================================== | 65%
|
|============================================== | 66%
|
|=============================================== | 66%
|
|=============================================== | 67%
|
|=============================================== | 68%
|
|================================================ | 68%
|
|================================================ | 69%
|
|================================================= | 69%
|
|================================================= | 70%
|
|================================================= | 71%
|
|================================================== | 71%
|
|================================================== | 72%
|
|=================================================== | 72%
|
|=================================================== | 73%
|
|==================================================== | 74%
|
|==================================================== | 75%
|
|===================================================== | 75%
|
|===================================================== | 76%
|
|====================================================== | 77%
|
|====================================================== | 78%
|
|======================================================= | 78%
|
|======================================================= | 79%
|
|======================================================== | 79%
|
|======================================================== | 80%
|
|======================================================== | 81%
|
|========================================================= | 81%
|
|========================================================= | 82%
|
|========================================================== | 82%
|
|========================================================== | 83%
|
|========================================================== | 84%
|
|=========================================================== | 84%
|
|=========================================================== | 85%
|
|============================================================ | 85%
|
|============================================================ | 86%
|
|============================================================= | 87%
|
|=============================================================== | 90%
|
|=============================================================== | 91%
|
|================================================================ | 91%
|
|================================================================ | 92%
|
|================================================================= | 92%
|
|================================================================= | 93%
|
|================================================================== | 94%
|
|================================================================== | 95%
|
|=================================================================== | 95%
|
|=================================================================== | 96%
|
|==================================================================== | 96%
|
|==================================================================== | 97%
|
|==================================================================== | 98%
|
|===================================================================== | 98%
|
|===================================================================== | 99%
|
|======================================================================| 99%
|
|======================================================================| 100%as_tibble(tx_pop) # A tibble: 254 × 6
GEOID NAME variable estimate moe geometry
<chr> <chr> <chr> <dbl> <dbl> <MULTIPOLYGON [°]>
1 48273 Kleberg County, Texas B01003_… 30860 NA (((-97.3178 27.49456, -9…
2 48391 Refugio County, Texas B01003_… 6718 NA (((-97.54085 28.16496, -…
3 48201 Harris County, Texas B01003_… 4726177 NA (((-94.97839 29.68365, -…
4 48443 Terrell County, Texas B01003_… 862 252 (((-102.5669 30.28327, -…
5 48229 Hudspeth County, Tex… B01003_… 3329 NA (((-105.998 32.00233, -1…
6 48205 Hartley County, Texas B01003_… 5369 NA (((-103.0422 35.82522, -…
7 48351 Newton County, Texas B01003_… 12333 NA (((-93.91113 31.15807, -…
8 48373 Polk County, Texas B01003_… 50536 NA (((-95.20018 30.82457, -…
9 48139 Ellis County, Texas B01003_… 195509 NA (((-97.08703 32.39219, -…
10 48491 Williamson County, T… B01003_… 617396 NA (((-98.04989 30.62415, -…
# ℹ 244 more rowsTEXAS POPULATION DATA CHOROPLETH
INSIGHTS
As clearly indicated by the choropleth, the cities that hold highest percentage of the population of Texas are Dallas, Houston, and Austin.
A significantly strong majority of the population lives on the eastern side of Texas. But one city in the west, Ciudad Juarez, holds a high population.
whataburgerUS <- read.csv("https://query.data.world/s/2at5gztiuyuvisdsoq5o44tjaq7hlr?dws=00000", header=TRUE, stringsAsFactors=FALSE)WHATABURGUR RESTAURAUNT LOCATIONS OVERLAYED ON CHOROPLETH
MapPalette <- colorQuantile(palette = "viridis", domain = tx_pop$estimate, n = 20)
tx_pop %>%
st_transform(crs = "+proj=longlat +datum=WGS84") %>%
leaflet(width = "100%", height = 500) %>%
addProviderTiles(provider = "OpenStreetMap") %>%
addPolygons(popup = ~NAME,
stroke = FALSE,
smoothFactor = 0,
fillOpacity = 0.5,
color = ~ MapPalette(estimate)) %>%
addLegend("bottomright",
pal = MapPalette,
values = ~ estimate,
title = "Population Percentiles",
opacity = 5) %>%
addCircleMarkers(data = whataburgerUS,
lat = whataburgerUS$latitude,
lng = whataburgerUS$longitude,
popup = whataburgerUS$name,
weight = 3,
radius=3,
color = "orangered",
opacity = 1)INSIGHTS
As expected, most of the whataburger locations reside in Dallas, Houston, and San Antonio.
The more separated from the East you get, the amount of locations drops down significantly.