[R-sig-Geo] Google Static Map tile as underlay

[Manuel Schneider]

You could try

library(dismo)
library(rgdal)

data(meuse)
coordinates(meuse) <- ~x+y
proj4string(meuse) = CRS("+init=epsg:28992")
gproj <- CRS("+proj=merc +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0
+y_0=0 +k=1.0 +units=m +nadgrids=@null +no_defs")
e <- extent(bbox(spTransform(meuse,gproj)))
r = gmap(e, type='terrain',exp=1.2)
plot(r, interpolate=F)
points(spTransform(meuse,gproj),pch=16,col=2)

Hth

Manuel