Some examples of legend positioning in R lattice. There is nearly infinite flexibility if there is strong desire for customization. This illustrates some of the options available.
A lot of times I like to avoid legends entirely and use the direct.labels package to label the graphics directly.
| require(lattice) | |
| #should have just used r dataset but did this instead | |
| df <- data.frame( | |
| x = rep(1:20,5) | |
| ,y = runif(100) | |
| ,label = as.vector(sapply( | |
| 1:5 | |
| ,function(x){ | |
| return(rep(paste(LETTERS[runif(4,1,26)],sep="",collapse=""),20)) | |
| } | |
| )) | |
| ) | |
| xyplot( | |
| y ~ x | |
| ,groups = label | |
| ,data = df | |
| ,type = "b" | |
| #,auto.key = list( | |
| # space = "bottom" # top, bottom, right, left | |
| # ,title = "RandomGroup" | |
| # ,columns = 5 | |
| # ,just = 0.1 | |
| #) | |
| #very manual way | |
| ,auto.key = list( | |
| title="RandomGroup" | |
| #, columns = 5 | |
| , corner = c(1, 0) | |
| , x = 0.95 | |
| , y = 0.1 | |
| ) | |
| , par.settings = list( | |
| #layout.heights = list(top.padding = 10), | |
| layout.widths = list(right.padding = 25) | |
| ) | |
| ,lattice.options = list(legend.bbox="full") #could also be panel | |
| ) |