Try this...
xyplot(y~x,data=data.frame(x=1:10,y=1:10))
keyArgs <- list()
keyArgs <- list(points=list(pch=c(NA,rep(17,5)),lwd=2,col=c(NA,c("red",
"chartreuse3", "black", "cyan", "blue"))),
text=list(lab=c("S-R Mapping",
"Color","Shape","Letter","Compatible","Incompatible"),cex=c(1.2,1,1,1,1,1)),
text=list(lab=c(expression(R^2),as.character(rep(0.999,5))),cex=c(1.2,1,1,1,
1,1)))
keyArgs$between <- c(1,0,5)
keyArgs$columns <- 1
keyArgs$column.between <- 1
keyArgs$border <- TRUE
drawKeyArgs <- list(key=keyArgs,draw=FALSE)
keyArgs$draw <- FALSE
key <- do.call("draw.key",drawKeyArgs)
vp1<-viewport(x=1,y=1,height=unit(1,"grobheight",key),width=unit(1,"grobwidt
h",key),just=c("right","top"))
pushViewport(vp1)
grid.draw(key)
popViewport()
Steve
-----Original Message-----
From: Deepayan Sarkar [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 05, 2006 11:53 PM
To: Steven Lacey
Cc: [email protected]
Subject: Re: [R] skipping rows in trellis key
On 4/5/06, Steven Lacey <[EMAIL PROTECTED]> wrote:
> Yes, that works! Thanks!
>
> On a related note... When I draw my key there is not sufficient
> padding between the last line of the key and the border line. For
> instance, the vertical line in "p" often drops below the border. Is
> there an easy way to add padding between the last row of the key and
> the border?
Example please.
Deepayan
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
