data(col3x2)
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)
Run the code above in your browser using DataCamp Workspace