library(oce)
data(coastlineWorld)
mapPlot(coastlineWorld, type='l',
latitudelim=c(40,50), longitudelim=c(-70,-50),
proj="polyconic", orientation=c(90, -90,0), grid=TRUE)
data(topoMaritimes)
look <- seq(1, 600, 10)
tlon <- topoMaritimes[['longitude']][look]
tlat <- topoMaritimes[['latitude']][look]
z <- topoMaritimes[['z']][look, look]
mapImage(tlon, tlat, z)
mapMeridians(10, lty='dotted', col='darkgray')
mapZones(10, lty='dotted', col='darkgray')
mapLines(coastlineWorld)
Run the code above in your browser using DataLab