Rectangle height in lattice xyplot key

On Sun, Jan 9, 2011 at 9:31 AM, Duncan Mackay <mackay at northnet.com.au> wrote:

Dear All

I have a problem with the height of the boxes in the key in the following.
(The text is over 2 lines to ? accentuate the problem of no space 

between the

rectangles.)
Is there an easy way to put a space between the rectangles; size controls
the width but there appears to be nothing for the height?

There is now (in the last update of lattice, released last week). So
the following should work:

xyplot(1~1,
       key = list(corner = c(0.8,0.8),
                  cex   = 0.6,
                  title = "Functional Groups",
                  cex.title = 0.7,
                  columns = 1,
                  padding.text = 4,
                  text  = list(label =
c("Tree","Shrub\n(low)","Herb","Grass","Shrub\n(small)")),
                  points = list(pch = c(1,3,4,20,16),
                                col = c(2,3,4,5,6)),
                  lines = list(col = c(2,3,4,5,6),
                               size = 2),
                  rectangles = list(col = c(2,3,4,5,6),
                                    size = 1,
                                    height = 0.7, ## newly added
                                    border = FALSE)) )

Of course 'height' is just a multiplier, so the heights are still not
all the same because of differing row heights, but I assume that's not
going to be a problem in your real example.

-Deepayan

?  ?  ?  ? xyplot(1~1,
?  ?  ?  ?  ?  key = list(corner = c(0.8,0.8),
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? cex ?  = 0.6,
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? title = "Functional Groups",
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? cex.title = 0.7,
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? columns = 1,
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? padding.text = 4,
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? text ? = list(label =
c("Tree","Shrub\n(low)","Herb","Grass","Shrub\n(small)")),
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? points = list(pch = c(1,3,4,20,16),
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? col = c(2,3,4,5,6)),
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? lines = list(col = c(2,3,4,5,6),
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? size = 2),),
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? rectangles = list(col = c(2,3,4,5,6),
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? size = 1,
?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? border = 

FALSE)) )

I could get things to work when the legend was on top using
? http://finzi.psych.upenn.edu/R/Rhelp02/archive/46654.html on something
similar
but could not get it to work in the last panel of a multipanel plot.

Regards

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

R version 2.12.1 (2010-12-16)
Platform: i386-pc-mingw32/i386 (32-bit)

locale:
[1] LC_COLLATE=English_Australia.1252 ? LC_CTYPE=English_Australia.1252
LC_MONETARY=English_Australia.1252
[4] LC_NUMERIC=C 

?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  LC_TIME=English_Australia.1252

attached base packages:
[1] splines ?  datasets ? utils ?  ?  stats ?  ?  graphics ? grDevices grid
? methods ?  base

other attached packages:
? [1] locfit_1.5-6 ?  ?  ?  ? akima_0.5-4 ?  ?  ?  ?  lme4_0.999375-37
Matrix_0.999375-46 ? mgcv_1.7-2
? [6] geepack_1.0-17 ?  ?  ? doBy_4.1.2 ?  ?  ?  ?  ? contrast_0.13 

Design_2.3-0

?  ? Hmisc_3.8-3
[11] survival_2.36-2 ?  ?  gee_4.13-16 ?  ?  ?  ?  R2HTML_2.2 

?  ?  ?  ?  ? zoo_1.6-4

?  ?  ?  ?  gsubfn_0.5-5
[16] proto_0.3-8 ?  ?  ?  ?  RODBC_1.3-2 ?  ?  ?  ?  gtools_2.6.2 

xtable_1.5-6

? R.oo_1.7.4
[21] R.methodsS3_1.2.1 ?  foreign_0.8-41 ?  ?  ? chron_2.3-39 MASS_7.3-9
? latticeExtra_0.6-14
[26] RColorBrewer_1.0-2 ? lattice_0.19-13

loaded via a namespace (and not attached):
[1] cluster_1.13.2 nlme_3.1-97 ?  ? stats4_2.12.1 ? tools_2.12.1