Zoom in on Earthquakes

Interactively zoom into a plot of earthquakes that occurred in the past year.

In[1]:=

eq = EarthquakeData[All, 6, {Today - Quantity[1, "Years"], Today}, "Position"]["Values"];

In[2]:=

DynamicGeoGraphics[GeoListPlot[eq]]

Play Animation

Stop Animation