Как я могу добавить сетку широты и долготы на проецируемую карту?

РЕДАКТИРОВАТЬ: вопрос действительно относится к тому, как можно добавить линии сетки широты / долготы на проецируемую карту. Я изменил название на соответствие.

У меня есть несколько слоев в географических координатах. Я хочу построить их в проекции LCC, но иметь географическую (широту / долготу) сетку. Из mapproj я могу использовать map.grid() для добавления сетки с ограничениями, установленными аргументом lim. Требуется вектор или объект диапазона:

вектор из 4 чисел, определяющих пределы: c (долгое низкое, долгое высокое, латинское низкое, латинское высокое). lim также может быть списком с компонентом с именем range, например результатом map, из которого берутся пределы.

Я создаю свою карту, обрезая большой векторный слой с помощью многоугольника отсечения:

myPoly <- readOGR(dsn=".", layer="myPolygon")  # just a shapefile in geographic coords
library(raster)  # To convert an 'extent' object to a SpatialPolygons object
cp <- as(extent(146, 149, -39, -37.5), "SpatialPolygons")
proj4string(cp) <- CRS(proj4string(myPoly))  # copy from shapefile

# Transform and plot:
lcc <- CRS("+init=epsg:3111")
myPoly.proj <- spTransform(myPoly, lcc)
cp.proj <- spTransform(cp, lcc)  # transform the clip box
myPoly.proj.clip <- gIntersection(myPoly.proj, cp.proj, byid=TRUE)
plot(myPoly.proj.clip) 

# Then finally, add a lat/long grid:
map.grid(lim=as.vector(cp.proj@bbox), labels=TRUE)

Эта последняя строка неверна, поскольку возвращаемый @bbox - это xmin, ymin, xmax, ymax, но должен быть в xmin, xmax, ymin, ymax. У всего этого должно быть простое решение, но, как обычно, я потерялся в водовороте. Я мог бы вручную создать вектор ограничений, но правда?