data(col3x2)
## Not run:
# library(RColorBrewer)
# library(grid)
# library(lattice)
# col3x2 <- c(brewer.pal(n=3, "Dark2"), brewer.pal(n=3, "Set2"))
# save(col3x2, file="col3x2.rda")
# ##
# grid.newpage()
# draw.key(list(text=list(c("Dark2", "Set2")),
# rectangles=list(col=col3x2[c(1,4,2,5,3,6)],
# cex=1.5, size=8, height=.7, border=FALSE),
# columns=3,
# between=1,
# padding.text=8),
# draw=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab