RG#63: Spartial grid plot

require(sp)

data(meuse.grid)

# gridd the data
gridded(meuse.grid)=~x+y

meuse.grid$g = factor(sample(letters[1:5], 3103, replace=TRUE),levels=letters[1:10])


meuse.grid$f = factor(sample(letters[6:10], 3103, replace=TRUE),levels=letters[1:10])

spplot(meuse.grid, c("f","g"))

spplot(meuse.grid, c("f","g"), col.regions=bpy.colors(10))