Localize no mapa as aterrissagens na Lua 

Obtenha uma lista das missões Apollo e de onde elas pousaram.

In[1]:=

X data = Sort@DeleteCases[MannedSpaceMissionData[ EntityClass["MannedSpaceMission", "ApolloMannedMission"], {"Entity", "LandingPosition"}], {_, _Missing}]

Out[1]=

Faça o mapa das aterrissagens.

In[2]:=

X GeoGraphics[{Red, PointSize[.02], ({Point[#1[[2]]], Text[Framed[#1[[1]], Background -> LightYellow, RoundingRadius -> 5], #1[[2]], {0.3, -1.5}]} &) /@ Reverse[data]}, GeoModel -> Entity["PlanetaryMoon", "Moon"], GeoRange -> All, GeoProjection -> "Orthographic", Background -> Black, ImageSize -> Medium]

Out[2]=