Mapee los mares lunares 

Obtenga las coordenadas y tamaños de los mares lunares.

In[1]:=

X maria = EntityList[EntityClass["SolarSystemFeature", "MoonMare"]]; coords = EntityValue[maria, EntityProperty["SolarSystemFeature", "Position"]]; sizes = EntityValue[maria, EntityProperty["SolarSystemFeature", "Size"]]/2; data = Transpose[{coords, sizes, maria}];

Grafique los mares junto con sus nombres (como barras de herramientas visibles).

In[2]:=

X GeoGraphics[{GeoStyling[ Directive[Opacity[.6], RandomColor[], EdgeForm[Black]]], Tooltip[GeoDisk[#1, #2], CommonName[#3]]} & @@@ data, GeoModel -> Entity["PlanetaryMoon", "Moon"], GeoRange -> All, GeoProjection -> "Mollweide", GeoGridLines -> Quantity[15, "AngularDegrees"], GeoGridLinesStyle -> Directive[Thin, Blue, Opacity[0.4]], Background -> Black, PlotRangePadding -> 0.2, ImageSize -> Medium]

Out[2]=