Wolfram Computation Meets Knowledge

Crop Production Forecasts and Groundwater Trends Based on the Predator–Prey Model

Crop Production Forecasts and Groundwater Trends Based on the Predator–Prey Model

Ever since Thomas Robert Malthus’s book An Essay on the Principle of Population, scientists have sought to determine the limit to the growth of human population due to finite resources. One such resource is groundwater. About 40% of global food production ultimately depends on irrigation and, increasingly, the source of irrigation water is groundwater aquifers. Groundwater irrigation allows farmers to increase crop yields, maintain them in dry spells and overcome temporal mismatches between growing seasons and seasonal rain. In many parts of the world, groundwater withdrawal (or pumping from wells) exceeds recharge, leading to groundwater depletion. In these regions, the “lifespan” of groundwater aquifers is limited, putting a bound on the amount of irrigation per year and the sustainability of groundwater-based agriculture. The goal of this study was to propose a dynamical systems framework capable of explaining past trends in groundwater-based irrigation and providing forecasts of food production.

Why the High Plains Aquifer?

Coauthors and I chose the US High Plains (HP) aquifer (also called the Ogallala aquifer) as a testbed for two reasons:

First, the HP aquifer extends from the Texas panhandle to South Dakota and underlies eight states, therefore representing differing levels of interaction among groundwater withdrawal, recharge, climate and yearly crop yield improvements.

The aquifer underlies hot and dry (south) to cold and wet (north) climates.

Conditions in Nebraska (representing the north) are amenable for high recharge rates while Texas (south) and Kansas (center) possess recharge rates of about four and eight times higher than Nebraska, respectively.

Second, there is a lot of data on crop production and groundwater withdrawal and use thanks to the U.S. Geological Survey (USGS) and the U.S. Department of Agriculture (USDA).

The HP aquifer underlies parts of eight US states and is the largest aquifer in the US, with an area of almost 176,000 square miles.

Using the Wolfram Language, we can get the HP aquifer’s outer polygon from the USGS and transform it with proper geoprojection:

Engage with the code in this post by downloading the Wolfram Notebook
ogallala = Module
&#10005

ogallala = 
  Module[{url = "https://water.usgs.gov/GIS/dsdl/ds543.zip", proj, 
    completePolygons},
   proj = 
    Import[url, 
      "Projection"] /. ("ReferenceModel" -> _) :> ("ReferenceModel" ->
         "NAD831986");
   completePolygons = 
    Query["Geometry", 1][First[Import[url, "Data"]]] /. 
     Line[pnts_] :> Line[GeoPosition@GeoGridPosition[pnts, proj]];
   completePolygons /. 
    FilledCurve[{{Line[GeoPosition[x_]]}, __}] :>  
     Polygon[GeoPosition[x]]
   ];
ogallala // GeoArea

We can then obtain the US states overlapping with the HP aquifer and geovisualize it:

Module
&#10005

Module[{outer, usPoly, usStatesHP},
 outer = ogallala /. Polygon[GeoPosition[x_]] :>  Polygon[x];
 usPoly = 
  EntityValue[
    EntityClass["AdministrativeDivision", "AllUSStatesPlusDC"], 
    "Polygon", "EntityAssociation"] /. 
   Polygon[GeoPosition[x_]] :> Polygon[x];
 usStatesHP = Keys@Select[RegionDisjoint[#, outer] & /@ usPoly, ! # &];
 GeoGraphics[{EdgeForm[Black], 
   Tooltip[#["Polygon"], #["Name"]] & /@ usStatesHP, FaceForm[Blue], 
   EdgeForm[Blue], ogallala}, GeoProjection -> "Mercator", 
  GeoRange -> Entity["Country", "UnitedStates"], 
  PlotLabel -> 
   "High Plains Aquifer (blue) and overlapping US states"]]

Texas High Plains Agriculture

In this blog post, I will focus on the case of Texas High Plains agriculture. We found it most interesting because it offered a surprise during analysis. For an analysis of Kansas and Nebraska, please refer to the published paper.

Here is a map showing the HP aquifer and the different USDA agricultural districts of Texas:

Show
&#10005

Show[
 GeoListPlot[Values@Association["Northern High Plains" -> {
Entity["AdministrativeDivision", {
       "ArmstrongCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BriscoeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CarsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CastroCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DallamCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DeafSmithCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FloydCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GrayCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HaleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HansfordCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HartleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HemphillCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HutchinsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LipscombCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MooreCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "OchiltreeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "OldhamCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ParmerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "PotterCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RandallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RobertsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ShermanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SwisherCounty", "Texas", "UnitedStates"}]}, 
    "Southern High Plains" -> {
Entity["AdministrativeDivision", {
       "AndrewsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BaileyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CochranCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CrosbyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DawsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GainesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GlasscockCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HockleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HowardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LambCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LubbockCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LynnCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MartinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MidlandCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "TerryCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "YoakumCounty", "Texas", "UnitedStates"}]}, 
    "Northern Low Plains" -> {
Entity["AdministrativeDivision", {
       "BordenCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ChildressCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CollingsworthCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CottleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DickensCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DonleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FoardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GarzaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HardemanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KentCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KingCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MotleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WheelerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WichitaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WilbargerCounty", "Texas", "UnitedStates"}]}, 
    "Southern Low Plains" -> {
Entity["AdministrativeDivision", {
       "BaylorCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ColemanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FisherCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HaskellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "JonesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KnoxCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MitchellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "NolanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RunnelsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ScurryCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "StonewallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "TaylorCounty", "Texas", "UnitedStates"}]}, 
    "Cross Timbers" -> {
Entity["AdministrativeDivision", {
       "ArcherCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BrownCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CallahanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ClayCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ComancheCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "EastlandCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ErathCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HoodCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "JackCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MillsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MontagueCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "PaloPintoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ParkerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ShackelfordCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SomervellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "StephensCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ThrockmortonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WiseCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "YoungCounty", "Texas", "UnitedStates"}]}, "Blacklands" -> {
Entity["AdministrativeDivision", {
       "BellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BosqueCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CollinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CookeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CoryellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DallasCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DeltaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DentonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "EllisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FallsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FanninCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GraysonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HamiltonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HillCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HuntCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "JohnsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KaufmanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LamarCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LimestoneCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "McLennanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MilamCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "NavarroCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RockwallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "TarrantCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WilliamsonCounty", "Texas", "UnitedStates"}]}, 
    "North East Texas" -> {
Entity["AdministrativeDivision", {
       "AndersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BowieCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CampCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CassCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CherokeeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FranklinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GreggCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HarrisonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HendersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HopkinsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HoustonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MarionCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MorrisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "NacogdochesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "PanolaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RainsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RedRiverCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RuskCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ShelbyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SmithCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "TitusCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "UpshurCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "VanZandtCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WoodCounty", "Texas", "UnitedStates"}]}, 
    "South East Texas" -> {
Entity["AdministrativeDivision", {
       "AngelinaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BrazosCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FreestoneCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GrimesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HardinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "JasperCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LeonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MadisonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MontgomeryCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "NewtonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "PolkCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RobertsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SabineCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SanAugustineCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SanJacintoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "TrinityCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "TylerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WalkerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WallerCounty", "Texas", "UnitedStates"}]}, "Trans-Pecos" -> {
Entity["AdministrativeDivision", {
       "BrewsterCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CraneCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CulbersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "EctorCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ElPasoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HudspethCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "JeffDavisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LovingCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "PecosCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "PresidioCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ReevesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "TerrellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WinklerCounty", "Texas", "UnitedStates"}]}, 
    "Edwards Plateau" -> {
Entity["AdministrativeDivision", {
       "BanderaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BlancoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BurnetCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CokeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ConchoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CrockettCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "EdwardsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GillespieCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "IrionCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KendallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KerrCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KimbleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KinneyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LampasasCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LlanoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "McCullochCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MasonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MenardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ReaganCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RealCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SanSabaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SchleicherCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SterlingCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SuttonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "TomGreenCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "UptonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "UvaldeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ValVerdeCounty", "Texas", "UnitedStates"}]}, 
    "South Central" -> {
Entity["AdministrativeDivision", {
       "AustinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BastropCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BeeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BexarCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BurlesonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CaldwellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ColoradoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ComalCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DeWittCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FayetteCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GoliadCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GonzalesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GuadalupeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HaysCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KarnesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LavacaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LeeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MedinaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "TravisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WashingtonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WilsonCounty", "Texas", "UnitedStates"}]}, 
    "Coastal Bend" -> {
Entity["AdministrativeDivision", {
       "AransasCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KlebergCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "NuecesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "RefugioCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "SanPatricioCounty", "Texas", "UnitedStates"}]}, 
    "Upper Coast" -> {
Entity["AdministrativeDivision", {
       "BrazoriaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "CalhounCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ChambersCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FortBendCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "GalvestonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HarrisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "JacksonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "JeffersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LibertyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MatagordaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "OrangeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "VictoriaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WhartonCounty", "Texas", "UnitedStates"}]}, 
    "South Texas" -> {
Entity["AdministrativeDivision", {
       "AtascosaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "BrooksCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DimmitCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "DuvalCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "FrioCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "JimHoggCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "JimWellsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "KenedyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LaSalleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "LiveOakCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "McMullenCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "MaverickCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WebbCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ZapataCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "ZavalaCounty", "Texas", "UnitedStates"}]}, 
    "Lower Valley" -> {
Entity["AdministrativeDivision", {
       "CameronCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "HidalgoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "StarrCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
       "WillacyCounty", "Texas", "UnitedStates"}]}], 
  PlotLegends -> Keys[
Association["Northern High Plains" -> {
Entity["AdministrativeDivision", {
        "ArmstrongCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BriscoeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CarsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CastroCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DallamCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DeafSmithCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FloydCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GrayCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HaleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HansfordCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HartleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HemphillCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HutchinsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LipscombCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MooreCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "OchiltreeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "OldhamCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ParmerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "PotterCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RandallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RobertsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ShermanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SwisherCounty", "Texas", "UnitedStates"}]}, 
     "Southern High Plains" -> {
Entity["AdministrativeDivision", {
        "AndrewsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BaileyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CochranCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CrosbyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DawsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GainesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GlasscockCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HockleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HowardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LambCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LubbockCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LynnCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MartinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MidlandCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "TerryCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "YoakumCounty", "Texas", "UnitedStates"}]}, 
     "Northern Low Plains" -> {
Entity["AdministrativeDivision", {
        "BordenCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ChildressCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CollingsworthCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CottleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DickensCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DonleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FoardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GarzaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HardemanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KentCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KingCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MotleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WheelerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WichitaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WilbargerCounty", "Texas", "UnitedStates"}]}, 
     "Southern Low Plains" -> {
Entity["AdministrativeDivision", {
        "BaylorCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ColemanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FisherCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HaskellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "JonesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KnoxCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MitchellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "NolanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RunnelsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ScurryCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "StonewallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "TaylorCounty", "Texas", "UnitedStates"}]}, 
     "Cross Timbers" -> {
Entity["AdministrativeDivision", {
        "ArcherCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BrownCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CallahanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ClayCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ComancheCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "EastlandCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ErathCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HoodCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "JackCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MillsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MontagueCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "PaloPintoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ParkerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ShackelfordCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SomervellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "StephensCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ThrockmortonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WiseCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "YoungCounty", "Texas", "UnitedStates"}]}, "Blacklands" -> {
Entity["AdministrativeDivision", {
        "BellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BosqueCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CollinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CookeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CoryellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DallasCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DeltaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DentonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "EllisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FallsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FanninCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GraysonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HamiltonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HillCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HuntCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "JohnsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KaufmanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LamarCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LimestoneCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "McLennanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MilamCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "NavarroCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RockwallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "TarrantCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WilliamsonCounty", "Texas", "UnitedStates"}]}, 
     "North East Texas" -> {
Entity["AdministrativeDivision", {
        "AndersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BowieCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CampCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CassCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CherokeeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FranklinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GreggCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HarrisonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HendersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HopkinsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HoustonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MarionCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MorrisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "NacogdochesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "PanolaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RainsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RedRiverCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RuskCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ShelbyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SmithCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "TitusCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "UpshurCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "VanZandtCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WoodCounty", "Texas", "UnitedStates"}]}, 
     "South East Texas" -> {
Entity["AdministrativeDivision", {
        "AngelinaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BrazosCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FreestoneCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GrimesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HardinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "JasperCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LeonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MadisonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MontgomeryCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "NewtonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "PolkCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RobertsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SabineCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SanAugustineCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SanJacintoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "TrinityCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "TylerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WalkerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WallerCounty", "Texas", "UnitedStates"}]}, 
     "Trans-Pecos" -> {
Entity["AdministrativeDivision", {
        "BrewsterCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CraneCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CulbersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "EctorCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ElPasoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HudspethCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "JeffDavisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LovingCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "PecosCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "PresidioCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ReevesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "TerrellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WinklerCounty", "Texas", "UnitedStates"}]}, 
     "Edwards Plateau" -> {
Entity["AdministrativeDivision", {
        "BanderaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BlancoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BurnetCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CokeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ConchoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CrockettCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "EdwardsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GillespieCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "IrionCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KendallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KerrCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KimbleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KinneyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LampasasCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LlanoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "McCullochCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MasonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MenardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ReaganCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RealCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SanSabaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SchleicherCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SterlingCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SuttonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "TomGreenCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "UptonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "UvaldeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ValVerdeCounty", "Texas", "UnitedStates"}]}, 
     "South Central" -> {
Entity["AdministrativeDivision", {
        "AustinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BastropCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BeeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BexarCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BurlesonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CaldwellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ColoradoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ComalCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DeWittCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FayetteCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GoliadCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GonzalesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GuadalupeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HaysCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KarnesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LavacaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LeeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MedinaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "TravisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WashingtonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WilsonCounty", "Texas", "UnitedStates"}]}, 
     "Coastal Bend" -> {
Entity["AdministrativeDivision", {
        "AransasCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KlebergCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "NuecesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "RefugioCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "SanPatricioCounty", "Texas", "UnitedStates"}]}, 
     "Upper Coast" -> {
Entity["AdministrativeDivision", {
        "BrazoriaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "CalhounCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ChambersCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FortBendCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "GalvestonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HarrisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "JacksonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "JeffersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LibertyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MatagordaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "OrangeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "VictoriaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WhartonCounty", "Texas", "UnitedStates"}]}, 
     "South Texas" -> {
Entity["AdministrativeDivision", {
        "AtascosaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "BrooksCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DimmitCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "DuvalCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "FrioCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "JimHoggCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "JimWellsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "KenedyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LaSalleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "LiveOakCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "McMullenCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "MaverickCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WebbCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ZapataCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "ZavalaCounty", "Texas", "UnitedStates"}]}, 
     "Lower Valley" -> {
Entity["AdministrativeDivision", {
        "CameronCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "HidalgoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "StarrCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
        "WillacyCounty", "Texas", "UnitedStates"}]}]], 
  PlotStyle -> RandomColor[Length[
Association["Northern High Plains" -> {
Entity["AdministrativeDivision", {
         "ArmstrongCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BriscoeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CarsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CastroCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DallamCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DeafSmithCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FloydCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GrayCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HaleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HansfordCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HartleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HemphillCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HutchinsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LipscombCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MooreCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "OchiltreeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "OldhamCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ParmerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "PotterCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RandallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RobertsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ShermanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SwisherCounty", "Texas", "UnitedStates"}]}, 
      "Southern High Plains" -> {
Entity["AdministrativeDivision", {
         "AndrewsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BaileyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CochranCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CrosbyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DawsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GainesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GlasscockCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HockleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HowardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LambCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LubbockCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LynnCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MartinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MidlandCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "TerryCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "YoakumCounty", "Texas", "UnitedStates"}]}, 
      "Northern Low Plains" -> {
Entity["AdministrativeDivision", {
         "BordenCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ChildressCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CollingsworthCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CottleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DickensCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DonleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FoardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GarzaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HardemanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KentCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KingCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MotleyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WheelerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WichitaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WilbargerCounty", "Texas", "UnitedStates"}]}, 
      "Southern Low Plains" -> {
Entity["AdministrativeDivision", {
         "BaylorCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ColemanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FisherCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HaskellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "JonesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KnoxCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MitchellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "NolanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RunnelsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ScurryCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "StonewallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "TaylorCounty", "Texas", "UnitedStates"}]}, 
      "Cross Timbers" -> {
Entity["AdministrativeDivision", {
         "ArcherCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BrownCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CallahanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ClayCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ComancheCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "EastlandCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ErathCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HoodCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "JackCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MillsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MontagueCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "PaloPintoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ParkerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ShackelfordCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SomervellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "StephensCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ThrockmortonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WiseCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "YoungCounty", "Texas", "UnitedStates"}]}, "Blacklands" -> {
Entity["AdministrativeDivision", {
         "BellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BosqueCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CollinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CookeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CoryellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DallasCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DeltaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DentonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "EllisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FallsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FanninCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GraysonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HamiltonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HillCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HuntCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "JohnsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KaufmanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LamarCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LimestoneCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "McLennanCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MilamCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "NavarroCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RockwallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "TarrantCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WilliamsonCounty", "Texas", "UnitedStates"}]}, 
      "North East Texas" -> {
Entity["AdministrativeDivision", {
         "AndersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BowieCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CampCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CassCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CherokeeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FranklinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GreggCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HarrisonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HendersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HopkinsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HoustonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MarionCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MorrisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "NacogdochesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "PanolaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RainsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RedRiverCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RuskCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ShelbyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SmithCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "TitusCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "UpshurCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "VanZandtCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WoodCounty", "Texas", "UnitedStates"}]}, 
      "South East Texas" -> {
Entity["AdministrativeDivision", {
         "AngelinaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BrazosCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FreestoneCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GrimesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HardinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "JasperCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LeonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MadisonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MontgomeryCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "NewtonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "PolkCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RobertsonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SabineCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SanAugustineCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SanJacintoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "TrinityCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "TylerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WalkerCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WallerCounty", "Texas", "UnitedStates"}]}, 
      "Trans-Pecos" -> {
Entity["AdministrativeDivision", {
         "BrewsterCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CraneCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CulbersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "EctorCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ElPasoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HudspethCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "JeffDavisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LovingCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "PecosCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "PresidioCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ReevesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "TerrellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WinklerCounty", "Texas", "UnitedStates"}]}, 
      "Edwards Plateau" -> {
Entity["AdministrativeDivision", {
         "BanderaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BlancoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BurnetCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CokeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ConchoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CrockettCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "EdwardsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GillespieCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "IrionCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KendallCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KerrCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KimbleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KinneyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LampasasCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LlanoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "McCullochCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MasonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MenardCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ReaganCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RealCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SanSabaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SchleicherCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SterlingCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SuttonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "TomGreenCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "UptonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "UvaldeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ValVerdeCounty", "Texas", "UnitedStates"}]}, 
      "South Central" -> {
Entity["AdministrativeDivision", {
         "AustinCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BastropCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BeeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BexarCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BurlesonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CaldwellCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ColoradoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ComalCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DeWittCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FayetteCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GoliadCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GonzalesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GuadalupeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HaysCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KarnesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LavacaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LeeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MedinaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "TravisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WashingtonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WilsonCounty", "Texas", "UnitedStates"}]}, 
      "Coastal Bend" -> {
Entity["AdministrativeDivision", {
         "AransasCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KlebergCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "NuecesCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "RefugioCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "SanPatricioCounty", "Texas", "UnitedStates"}]}, 
      "Upper Coast" -> {
Entity["AdministrativeDivision", {
         "BrazoriaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "CalhounCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ChambersCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FortBendCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "GalvestonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HarrisCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "JacksonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "JeffersonCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LibertyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MatagordaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "OrangeCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "VictoriaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WhartonCounty", "Texas", "UnitedStates"}]}, 
      "South Texas" -> {
Entity["AdministrativeDivision", {
         "AtascosaCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "BrooksCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DimmitCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "DuvalCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "FrioCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "JimHoggCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "JimWellsCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "KenedyCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LaSalleCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "LiveOakCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "McMullenCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "MaverickCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WebbCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ZapataCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "ZavalaCounty", "Texas", "UnitedStates"}]}, 
      "Lower Valley" -> {
Entity["AdministrativeDivision", {
         "CameronCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "HidalgoCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "StarrCounty", "Texas", "UnitedStates"}], 
Entity["AdministrativeDivision", {
         "WillacyCounty", "Texas", "UnitedStates"}]}]]], 
  PlotMarkers -> Automatic], 
 GeoGraphics[{EdgeForm[Black], ogallala}, 
  GeoProjection -> "Mercator"], 
 PlotLabel -> "TX agricultural districts and High Plains Aquifer"
 ]

In the two districts that overlie the aquifer (the northern and southern High Plains), the four most irrigated crops are corn, cotton, sorghum and winter wheat. Plotting the rate of groundwater extraction and crop production, we get:

CloudGet
&#10005

CloudGet["https://wolfr.am/REKQP23t"]

Looking at the data, we notice three prominent features:

  • Groundwater withdrawal and crop production tend to rise, peak and then decline.
  • Trends and peaks in crop production lag behind those for groundwater withdrawal.
  • There are two “boom–bust” cycles before and after 1987.

Using Predator–Prey Equations

Having been trained as an environmental scientist in my Ph.D. and as a mechanical engineer in undergrad, I realize that the first two prominent features arise in predator–prey dynamics. So, we will use modified predator–prey equations (or Lotka–Volterra equations) to model the nexus of groundwater withdrawal and crop production:

Modified predator–prey equation

… where W and C represent the volume of accessible groundwater and the rate of crop production, respectively. In the equations shown, r represents the recharge rate per unit surface area, a value determined from the literature, and represents the surface area of the HP aquifer underlying Texas. Groundwater recharge occurs because of percolating rainfall and surface water expressions like streams and playas.

The first terms in equations 1 and 2 encode the interaction between prey (groundwater) and predator (crops). The more predators there are (larger C), the faster the “population” of prey will dwindle (decreasing W). When W falls, physically it means that the groundwater table is deeper. This means that farmers will have to spend more energy to extract it. This reduces the withdrawal (represented by ) and crop production.

This second term in equation 2 encodes the “competition” among predators for the same prey. In other words, there is diminishing value in having more crop production such that, at some point, increasing the density of crops planted will hurt the total weight of grain produced because they will compete with each other.

Fitting the Data to Models

We fit the data such that represents groundwater withdrawal and C represents the rate of crop production. This is to find the values of parameters . We apply the fit before and after the rebound in groundwater withdrawal and crop production (1987):

Show
&#10005

Show[CloudGet["https://wolfr.am/REKSJ7tm"], PlotLabel -> "\!\(\*
StyleBox[\"Model\",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\
\nFrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"fitted\",\nStripOnInput->False,\n\
LineColor->GrayLevel[0.5],\nFrontFaceColor->GrayLevel[0.5],\n\
BackFaceColor->GrayLevel[0.5],\nGraphicsColor->GrayLevel[0.5],\n\
FontSize->15,\nFontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"to\",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"the\",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"data\",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"before\",\nStripOnInput->False,\n\
LineColor->GrayLevel[0.5],\nFrontFaceColor->GrayLevel[0.5],\n\
BackFaceColor->GrayLevel[0.5],\nGraphicsColor->GrayLevel[0.5],\n\
FontSize->15,\nFontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"and\",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"after\",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\
\nFrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"the\",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",\nStripOnInput->False,\nLineColor->GrayLevel[0.5],\n\
FrontFaceColor->GrayLevel[0.5],\nBackFaceColor->GrayLevel[0.5],\n\
GraphicsColor->GrayLevel[0.5],\nFontSize->15,\n\
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"rebounds\",\nStripOnInput->False,\n\
LineColor->GrayLevel[0.5],\nFrontFaceColor->GrayLevel[0.5],\n\
BackFaceColor->GrayLevel[0.5],\nGraphicsColor->GrayLevel[0.5],\n\
FontSize->15,\nFontColor->GrayLevel[0.5]]\)"]

The model is able to capture the peaks in groundwater withdrawal and crop production as well as the lags between withdrawal and production. Peak non-renewable resource use is a known phenomenon exemplified by Hubbert’s 1956 prediction of a peak in US crude oil production. The projection from the second model fit says that groundwater-based crop production is expected to decline from an average of about five million tons per year today to two million per year in 2050.

It seems ad hoc that we performed two model fits to the data, so how can we trust the projection? There is a good reason for having fits before and after the rebound. Notice how after the rebound, crop production per unit groundwater withdrawal is higher than before 1987. This strongly points to an increase in efficiency. This is true:

% area with sprinklers

Around the same time when the rebound happened, sprinkler adoption in the Texas High Plains increased significantly. The improvements in efficiency increased farmer economic returns, thus making tapping into deeper groundwater profitable, driving the rebound. In general, relatively fast adoption of technologies is hard to predict. Therefore, we can trust the model forecasts, given that no disruptive technologies are adopted for irrigation-based agriculture.

Why is there a lag between peak groundwater withdrawal and peak crop production? There is a multitude of reasons. Crop yields keep improving steadily as fertilizers are used more efficiently and conditions are optimized. A more nuanced reason is crop shifting. Over the past decades, farmers have reduced sorghum irrigation in favor of corn:

Proportion of irrigated area (%)

Since irrigated corn has a higher yield than irrigated sorghum, crop production by weight has improved per unit water volume applied. Luckily, the predator–prey framework encodes gradual yield improvements , increasing with decreasing W) but not disruptive ones (e.g. technology).

Application to Field Sustainability

In conclusion, this is one of the first steps in a computational approach to the field of sustainability. For more info about the underlying codes, please refer to the corresponding post on Wolfram Community.

While previous forecasts on crop production simply fit data to logistic curves without explanation, this conceptual dynamical systems approach is based on mechanistic understanding of the tight link between groundwater use and crop production. The simplicity of the equations means that one can apply a similar approach to areas facing different challenges, such as groundwater quality in India or different dynamics, e.g. government incentive programs, like in Saudi Arabia. One would need to include feedback terms into equations 1 and 2 to capture these effects. This is how we hope this work will fertilize the fields of agriculture, water and sustainability.

Acknowledgments

I’d like to thank Mads Bahrami for his help with preparation of this post. Also, my special thanks to the Wolfram Blog team of Wolfram Research for their invitation.


Guest author Dr. Assaad Mrad earned his Ph.D. from the Nicholas School of the Environment at Duke University and will be a postdoctoral fellow at the Samueli School of Engineering at the University of California, Irvine starting in January 2021. This post is based on a recent open-access publication that utilizes the Wolfram Language in the Proceedings of the National Academy of Sciences.

Read the research on this topic and join the conversation on Wolfram Community.

Comments

Join the discussion

!Please enter your comment (at least 5 characters).

!Please enter your name.

!Please enter a valid email address.