Die Erdbebenhäufigkeit nach Ländern darstellen  

Finden Sie heraus, wo 2010 weltweit die meisten heftigen Erdbeben stattgefunden haben.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[1]:=

X locations = EarthquakeData[All, 6, { DateObject[{2010, 1, 1}], DateObject[{2010, 12, 31}] }, "Position"]["Values"];

In[2]:=

X list = Rule @@@ Tally[Flatten[GeoIdentify["Country", #] & /@ locations]];

In[3]:=

X GeoRegionValuePlot[list]

Out[3]=