library(oce)
data(coastlineWorld)
data(endeavour)
par(mar=rep(1, 4))
mapPlot(coastlineWorld, type='l', proj='mollweide', orientation=c(90, -100, 0))
mapPoints(endeavour$longitude, endeavour$latitude, pch=20, col='red')
Run the code above in your browser using DataLab