All Earth's Impact Craters At 10x Geo-Magnification, Largest % in North America​
​by Vitaliy Kaurov
Among all continents North America has the largest number of craters even so it ranks 3rd in total land area:
SOURCE: https://en.wikipedia.org/wiki/List_of_impact_craters_on_Earth#Craters_by_continent
The Wolfram Language has the data for Earth’s impact craters as the part of its Entity framework. Here is the properties that can be extracted
In[]:=
Acraman Crater
EARTH IMPACT CRATER
["Properties"]
Out[]=

administrative division
,
age
,
alternate names
,
coordinates
,
location
,
diameter
,
excavation status
,
entity classes
,
exposure
,
latitude
,
longitude
,
name
,
position
,
radius
,
rock type

Total number of the craters:
In[]:=
EarthImpactData[]//Length
Out[]=
183
Get in-language access to the data for {“Name”,”Position”,”Radius”} data:
In[]:=
craters=ReverseSortBy[EntityValue["EarthImpact",{"Name","Position","Radius"}],Last];
The craters radii span several orders of magnitude:
In[]:=
ListLogPlot[Sort@UnitConvert[craters[[All,-1]],"Meters"],PlotTheme"Detailed",ImageSize600]
Out[]=
Build the plot of all craters at 10x geo-magnification
In[]:=
p1=GeoGraphics[{GeoStyling[Directive[EdgeForm[Red],Opacity[.3],Red]],GeoDisk@@@MapAt[10#&,craters[[All,2;;]],{All,2}]},GeoBackground->"Coastlines",GeoProjection->"WinkelTripel",ImageSize1000,GeoRange{{-50,85},{-170,190}}];
Build labels for the 10 largest craters:
In[]:=
p2=GeoListPlot[Labeled[#2,StringDelete[#1," Crater"]<>" "<>ToString[Round[QuantityMagnitude[UnitConvert[#3,"Kilometers"]]]]]&@@@craters[[;;10]],PlotStyleBlack,LabelStyleDirective[13,GrayLevel[0.33]],GeoBackground->None,GeoProjection->"WinkelTripel",ImageSize1000,GeoRange{{-50,85},{-170,190}}];
Combine plots:
In[]:=
p3=Show@@(First/@{p1,p2});
Build the final graphics:
In[]:=
t1="All Earth's Impact Craters At 10x Geo-Magnification";​​t2="Data and tools: Wolfram Language. Made by Vitaliy Kaurov. Details: wolfr.am/craters10x";​​t3=
;​​​​Column[{​​Style[t1,25,Gray,FontFamily"Arial"],​​p3,​​Style[t2,17,Gray,FontFamily"Arial"],​​Show[t3,ImageSize->1000]​​},AlignmentCenter]