[R] Lattice Legend/Key by row instead of by column

[Duncan Mackay]

Hi Richard

If you cannot get a better suggestion this example from Deepayan Sarkar may
help. 
It is way back in the archives and I do not have a reference for it.

I have used it about a year ago as a template to do a complicated key

fl <- grid.layout(nrow = 2, ncol = 6, 
                  heights = unit(rep(1, 2), "lines"),
                  widths = unit(c(2, 1, 2, 1, 2, 1), 
 
c("cm","strwidth","cm","strwidth","cm","strwidth"), 
                  data = list(NULL,"John",NULL,"George",NULL,"The
Beatles"))) 

foo <- frameGrob(layout = fl)
foo <- placeGrob(foo, 
                 pointsGrob(.5, .5, pch=19, 
                            gp = gpar(col="red", cex=0.5)), 
                 row = 1, col = 1) 
foo <- placeGrob(foo, 
                 linesGrob(c(0.2, 0.8), c(.5, .5), 
                           gp = gpar(col="blue")), 
                 row = 2, col = 1) 
foo <- placeGrob(foo, 
                 linesGrob(c(0.2, 0.8), c(.5, .5), 
                           gp = gpar(col="green")), 
                 row = 1, col = 3) 
foo <- placeGrob(foo, 
                 linesGrob(c(0.2, 0.8), c(.5, .5), 
                           gp = gpar(col="orange")), 
                 row = 2, col = 3) 
foo <- placeGrob(foo, 
                 rectGrob(width = 0.6, 
                          gp = gpar(col="#FFFFCC", 
                          fill = "#FFFFCC")), 
                 row = 1, col = 5) 
foo <- placeGrob(foo, 
                 textGrob(lab = "John"), 
                 row = 1, col = 2) 
foo <- placeGrob(foo, 
                 textGrob(lab = "Paul"), 
                 row = 2, col = 2) 
foo <- placeGrob(foo, 
                 textGrob(lab = "George"), 
                 row = 1, col = 4) 
foo <- placeGrob(foo, 
                 textGrob(lab = "Ringo"), 
                 row = 2, col = 4) 
foo <- placeGrob(foo, 
                 textGrob(lab = "The Beatles"), 
                 row = 1, col = 6) 

xyplot(1 ~ 1, legend = list(top = list(fun = foo)))

In my case I changed  "strwidth" to "cm" for the text as I was cramped for
space

HTH

Duncan

Duncan Mackay
Department of Agronomy and Soil Science
University of New England
Armidale NSW 2351
Email: home: mackay at northnet.com.au

-----Original Message-----
From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org] On
Behalf Of Richard Kwock
Sent: Friday, 1 November 2013 06:42
To: R help
Subject: [R] Lattice Legend/Key by row instead of by column

Hi All,

I am having some trouble getting lattice to display the legend names by row
instead of by column (default).

Example:

library(lattice)
set.seed(456846)
data <- matrix(c(1:10) + runif(50), ncol = 5, nrow = 10) dataset <-
data.frame(data = as.vector(data), group = rep(1:5, each = 10), time = 1:10)

xyplot(data ~ time, group = group, dataset, t = "l",
  key = list(text = list(paste("group", unique(dataset$group)) ),
    lines = list(col = trellis.par.get()$superpose.symbol$col[1:5]),
    columns = 4
  )
)

What I'm hoping for are 4 columns in the legend, like this:
Legend row 1: "group 1", "group 2", "group 3", "group 4"
Legend row 2: "group 5"

However, I'm getting:
Legend row 1: "group 1", "group 3", "group 5"
Legend row 2: "group 2", "group 4"

I can see how this might work if I include blanks/NULLs in the legend as
placeholders, but that might get messy in data sets with many groups.

Any ideas on how to get around this?

Thanks,
Richard

	[[alternative HTML version deleted]]

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.