library(PBSmapping)
data(dsst)
# spatial re-scaling of the sst data for smoother isotherms
sst <- pixelate(dsst, extent = 0.2)
isotherms <- isolines(sst, levels = c(13, 17, 21))
plot(dsst, colbar = FALSE)
addLines(isotherms$PolySet, col = "black", lwd = 1.5)
Run the code above in your browser using DataLab