# NOT RUN {
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)
# }
Run the code above in your browser using DataLab