交互式放大过去一年中发生的地震图.
eq = EarthquakeData[All, 6, {Today - Quantity[1, "Years"], Today}, "Position"]["Values"];
DynamicGeoGraphics[GeoListPlot[eq]]