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