Skip to content

removing key from spplot with a factor variable

2 messages · Heather Carmichael, Edzer Pebesma

1 day later
#
Heather kindly provided me a reproducable example of this bug off-list,
it is found below.

I corrected it, in cvs, it will be in the next sp version (to be
released soon).

Thanks!
--
Edzer


library(sp)
library(maptools)

nc <- readShapePoly(system.file("shapes/sids.shp", package="maptools")[1],
proj4string=CRS("+proj=longlat +datum=NAD27"))
names(nc)
# create two dummy factor variables, with equal labels:
set.seed(31)
nc$f = factor(sample(1:5,100,replace=T),labels=letters[3:7])
nc$f = factor(nc$f, levels = letters[1:7])

library(RColorBrewer)
## Two (dummy) factor variables shown with qualitative colour ramp;

key <- spplot(nc, c("f"), col.regions=brewer.pal(7, "Set3"),
scales=list(draw = TRUE))
nokey <- spplot(nc, c("f"), col.regions=brewer.pal(7, "Set3"),
scales=list(draw = TRUE), colorkey=F)

print(key, split= c(1,1,1,2), more=TRUE)
print(nokey, split = c(1,2,1,2))
On 06/21/2010 10:44 PM, Heather Carmichael wrote: