Map the Locations of Shipwrecks 

Plot shipwrecks in the Mediterranean Sea.

Get a list of shipwrecks in the Mediterranean.

In[1]:=

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

In[2]:=

X Take[mediterraneanShipwrecks, 10]

Out[2]=

Get the locations of the shipwrecks.

In[3]:=

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

Make a boat icon to use as a map marker.

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]=