# Coastline and 2 km isobath
data(topo2, package="ocedata")
lon <- seq(-179.5, 178.5, by=2)
lat <- seq(-89.5, 88.5, by=2)
contour(lon, lat, topo2, asp=1, drawlabels=FALSE,
level=c(0,-2000), col=c(1,2))
Run the code above in your browser using DataLab