data(elec88, package = "ade4")
## mapping whithout data
g1 <- s.Spatial(elec88$Spatial)
if(require(sp, quiet = TRUE)) {
## mapping whith data
obj <- SpatialPolygonsDataFrame(Sr = elec88$Spatial, data = elec88$tab)
g2 <- s.Spatial(obj)
g3 <- s.Spatial(obj, nclass = 2, col = c("red", "blue"))
}Run the code above in your browser using DataLab