A explicação do script a seguir está no artigo R na Prática – Parte 28.
require(grDevices); require(graphics)
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_18.jpeg",width=5,height=5,
#units="in",res=300)
contour(volcano, method = "edge",
vfont = c("sans serif", "plain"),labcex=1.25,
lwd=2,col="blue",nlevels=30,xlab="Leste",
ylab="Norte")
#dev.off()