world()
# add the US
US( add=TRUE,col="blue")
world( fill=TRUE) # land filled in dark grey
## Western Europe (*which* big islands are missing?)
## with a coordinate grid:
world(xlim=c(-10,18),ylim=c(36,60),
xaxt = "s", yaxt = "s", fill=TRUE, col.land="darkgreen")
box() # add back in the box that was obscured by the ocean fill.
# add back in outline of land.
world( add=TRUE,lwd=1.5, col="green")
grid()
grid.list<- list( x= seq(-160,-60,,200), y= seq( 25, 55,,100))
look<- in.land.grid( grid.list)
world()
# mask for land in grid
image( grid.list$x, grid.list$y, look, add=TRUE)
Run the code above in your browser using DataLab