Hi,
If you need to do something on a per panel basis, you have to include that in
the panel function. keys can be drawn (in any grid viewport) with the draw.key
function. For example (with your data),
key <- list(key1 = list(text = list(paste("myFrame1", 1:3))),
key2 = list(text = list(paste("myFrame2", 4:6))))
i <- 1
print(xyplot(a ~ b | which, myFrame, groups=c,
panel = function(...) {
panel.superpose(...)
draw.key(key[[i]], draw = TRUE, vp = viewport(.6, .9))
i <<- i + 1
},
t="l"))
(I'm using an indexing variable i because the panel function isn't
passed
information on which panel is being drawn. It wouldn't be necessary If your
key
can be defined just in terms of the data passed to the panel function)
Hope that helps.
Deepayan
--- "Bartz, Kevin" <Kevin.Bartz at FMR.COM>
wrote:> My xyplot has a number of panels, and I'd like a separate key for each
> rather than a single key for the entire set. However, I cannot find a way
to
> pass multiple key definitions to xyplot's "key" argument.
>
> Allow me to throw out a simple example:
>
> require(methods)
> require(lattice)
>
> ## define sample data
> myFrame1 <- data.frame(a=1:100, b=rep(1:10,10), c=unlist(lapply(1:10,
rep,
> 10)))
> myFrame2 <- data.frame(a=50:1, b=rep(1:10,5), c=unlist(lapply(1:5,
rep,
> 10)))
> myFrame <- cbind(rbind(myFrame1, myFrame2),
> which=c(rep("Display for myFrame1", 100),
> rep("Display for myFrame2", 50)))
>
> ## now send the data to a Trellis device
> trellis.device()
> print(xyplot(a ~ b | which, myFrame, groups=c,
> key=list(text=list(lab=paste("myFrame1 Line",
1:10))),
> panel="panel.superpose", t="l"))
>
> What I really want here is two separate keys, one for the plot on the first
> panel, representing the lines in myFrame1, and one for the plot on the
> second, representing the lines in myFrame2.
>
> Can anyone suggest a solution?
>
> Thanks,
>
> Kevin
>
> > R.version
> _
> platform sparc-sun-solaris2.6
> arch sparc
> os solaris2.6
> system sparc, solaris2.6
> status
> major 1
> minor 5.1
> year 2002
> month 06
> day 17
> language R
>
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-> r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
> Send "info", "help", or "[un]subscribe"
> (in the "body", not the subject !) To: r-help-request at
stat.math.ethz.ch
>
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
__________________________________________________
Yahoo! News - Today's headlines
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !) To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._