Mapee las ubicaciones de naufragios 

Trace los naufragios en el Mar Mediterráneo.

Obtenga una lista de los naufragios en el Mediterráneo.

In[1]:=

X mediterraneanShipwrecks = GeoEntities[Entity["Ocean", "MediterraneanSea"], "Shipwreck"];

In[2]:=

X Take[mediterraneanShipwrecks, 10]

Out[2]=

Obtenga las ubicaciones de los naufragios.

In[3]:=

X mediterraneanShipwreckPositions = EntityValue[mediterraneanShipwrecks, "Position"];

Cree un ícono de barco para usar como marcador en el mapa.

In[4]:=

X boat = Graphics[{ FaceForm[{GrayLevel[1], Opacity[0.25]}], EdgeForm[GrayLevel[0.5]], Polygon[{{7, 18}, {0, 4}, {7, 4}, {7, 18}}], Polygon[{{8, 20}, {18, 4}, {8, 4}, {8, 20}}], FaceForm[{Opacity[0.75], RGBColor[0.6, 0.4, 0.2]}], Polygon[{{1, 3}, {16, 3}, {14, 0}, {4, 0}, {1, 3}}] }]

Out[4]=

In[5]:=

X GeoGraphics[ GeoMarker[mediterraneanShipwreckPositions, boat, "Scale" -> 1], GeoProjection -> "Mercator"]

Out[5]=