Skip to content
Prev 18397 / 29559 Next

gplot error in rasterVis

Here a simple alternative approach:

library(dismo)

r <- raster(ncol=10, nrow=10)
values(r) <- 1:ncell(r)
extent(r)<-c(-113.5732, -112.4852, 43.04848, 43.81728)

# get map
g <- gmap(r, lonlat=TRUE)
gg <- crop(g, r)

# simple, no legend
plot(gg)
image(r, col=terrain.colors(25, alpha=.25), add=TRUE)

# with some tricks to get legend:
plot(r, col=terrain.colors(25, alpha=.25))
plot(gg, add=TRUE)
image(r, col=terrain.colors(25, alpha=.25), add=TRUE)



On Thu, May 30, 2013 at 2:51 PM, Natalie Wagenbrenner
<nwagenbrenner at gmail.com> wrote: