spplot со слоями не выровнены

Question

Я пытаюсь наложить карту границы Италии на ggmap. Я использую spplot, но слои не выровнены.

Это мой код:

library(raster) 
library(ggmap) 
library(RColorBrewer) 
library(latticeExtra) 

setwd("c:\\temp") 
gadm<-getData('GADM', country='Italy', level=2) 
bbPoints <- bbox(gadm) 
gmap <- get_map(c(bbPoints), maptype='watercolor', source='stamen', crop=FALSE) 

bbMap <- attr(gmap, 'bb') 

height <- with(bbMap, ur.lat - ll.lat) 
width <- with(bbMap, ur.lon - ll.lon) 
latCenter <- with(bbMap, ll.lat + ur.lat)/2 
lonCenter <- with(bbMap, ll.lon + ur.lon)/2 

spplot(gadm, "PID",border="green",col=NA)+ 
layer(grid.raster(gmap,x=lonCenter, y=latCenter, 
width=width, height=height, 
default.units='native'), under = TRUE) 

Для центрирования слоев Я после этого учебника: http://www.r-bloggers.com/stamen-maps-with-spplot/

Я не понимаю, почему автоматическое центрирование не работает

Answer 1

Это проблема, связанная с проекцией (или отсутствием ее) объектов, возвращаемых ggmap , Существует интересное обсуждение об этом в this thread и a tutorial вместо dismo::gmap. Я должен обновить сообщение в блоге, чтобы включить эту проблему.