Map the States with the Highest Magnitude Earthquakes

Use

to get the magnitudes of earthquakes that occurred in the United States in a given week:

In[1]:=

date=DateObject[{2011,8,26}];data=Lookup[#1,{"Position","Magnitude"}]&/@ValuesEarthquakeData

United States

COUNTRY

,2,{date-

1

wk

,date};data//Short

Out[1]//Short=

{{GeoPosition[{35.2212,-120.722}],2.1},118,{GeoPosition[{18,-19}],19}}

Gather the data by state:

In[2]:=

states=GeoIdentify["USState",data〚All,1〛];

Generate a list of states and magnitude of earthquakes in each state:

In[3]:=

statesWithMagnitude=GatherBy[Transpose[{states,data〚All,2〛}],First];

Map where the earthquakes have occurred and color based on the highest magnitude earthquake:

In[4]:=

GeoRegionValuePlot[Rule[#〚1,1,1〛,Max[#〚All,2〛]]&/@statesWithMagnitude]

Out[4]=

Wolfram Language Example Repository