library(oce)
data(coastlineWorld)
longitude <- coastlineWorld[['longitude']]
latitude <- coastlineWorld[['latitude']]
mapPlot(longitude, latitude, type='l',
latitudelim=c(30,60), longitudelim=c(-130,-50),
proj="polyconic", orientation=c(90, -90, 0))
mapMeridians()
Run the code above in your browser using DataLab