Что-то туплю...
Код: Выделить всё
library(maps)
library(mapproj)
ylim = c(75,90)
orientation=c(90, -90, 0)
x11()
par(mar=c(1,1,1,1))
m <- map("world", plot=FALSE)
map("world",project="azequalarea", orientation=orientation, ylim=ylim, col = "transparent")
map("world",project="azequalarea", orientation=orientation, ylim=ylim + c(-5, 5), add = TRUE)
map.grid(m, nx=18,ny=18, col=8)
box()