# Re: [R] Simple lattice question

From: Rubén Roa <rroa_at_azti.es>
Date: Fri, 01 Apr 2011 08:28:54 +0200

> -----Mensaje original-----
> De: Peter Ehlers [mailto:ehlers_at_ucalgary.ca]
> Enviado el: jueves, 31 de marzo de 2011 18:09
> Para: Rubén Roa
> CC: r-help_at_r-project.org
> Asunto: Re: [R] Simple lattice question
>
> On 2011-03-31 06:58, Rubén Roa wrote:
> > Thanks Peters!
> >
> > Just a few minor glitches now:
> >
> > require(lattice)
> > data<-
> data.frame(SP=sort(rep(as.factor(c('A','B','C','D','E')),12)),
> > x=rpois(60,10),
> > y=rep(c(rep(0,4),rep(10,4),rep(20,4)),5),
> > z=rep(1:4,15))
> >
> xyplot(x~y|SP,data=data,groups=z,layout=c(2,3),pch=1:4,lty=1:4
,col='black',type='b',
> > key=list(x = .65, y = .75, corner = c(0, 0), points=TRUE,
> > lines=TRUE, pch=1:4, lty=1:4, type='b',
> > text=list(lab = as.character(unique(data\$z)))))
> >
> > I have an extra column of symbols on the legend,
> >
> > and,
> >
> > would like to add a title to the legend. Such as 'main' for plots.
> >
> > Any suggestions?
>
> for key(), make 'lines' into a list:
>
> xyplot(x~y|SP,data=data,groups=z,layout=c(2,3),
> pch=1:4,lty=1:4,col='black',type='b',
> key=list(x = .65, y = .75, corner = c(0, 0),
> title="title here", cex.title=.9, lines.title=3,
> lines=list(pch=1:4, lty=1:4, type='b'),
> text=list(lab = as.character(unique(data\$z)))))
>
> Peter Ehlers

... that works. Thanks Peter (sorry I misspelled your name b4). The clean code is now:

require(lattice)

```data <- data.frame(SP=sort(rep(as.factor(c('A','B','C','D','E')),12)),
x=rpois(60,10),
y=rep(c(rep(0,4),rep(10,4),rep(20,4)),5),
z=rep(1:4,15))
xyplot(x~y|SP,data=data,groups=z,layout=c(2,3),pch=1:4,lty=1:4,col='black',type='b',
key=list(x = .65, y = .75, corner = c(0, 0),
lines=list(pch=1:4, lty=1:4, type='b'),
title=expression(CO^2),
text=list(lab = as.character(unique(data\$z)))))

```

David's code works too (thanks to you too!) and is somewhat shorter

xyplot(x~y|SP, data=data,groups=z, layout=c(2,3), par.settings=simpleTheme(pch=1:4,lty=1:4,col='black'), type="b",

auto.key = list(x = .6, y = .7, lines=TRUE, corner = c(0, 0)))

but the lines and symbols are on different columns, and the line types look as if they were in bold.

Rubén

Dr. Rubén Roa-Ureta
AZTI - Tecnalia / Marine Research Unit
Txatxarramendi Ugartea z/g
48395 Sukarrieta (Bizkaia)
SPAIN

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. Received on Fri 01 Apr 2011 - 06:35:29 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Fri 01 Apr 2011 - 13:00:25 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.