## Not run:
# r <- raster(system.file("external/test.grd", package="raster"))
# s <- stack(r, r*2)
# names(s) <- c('meuse', 'meuse x 2')
#
# library(ggplot2)
#
# theme_set(theme_bw())
# gplot(s) + geom_tile(aes(fill = value)) +
# facet_wrap(~ variable) +
# scale_fill_gradient(low = 'white', high = 'blue') +
# coord_equal()
# ## End(Not run)
Run the code above in your browser using DataLab