[R] labels in lattice

[David Winsemius]

On Dec 14, 2011, at 11:43 AM, matteo wrote:

> set.seed(3)
> mydata <- data.frame(var = rnorm(100,20,1),
>                     temp = sin(sort(rep(c(1:10),10))),
>                     subj = as.factor(rep(c(1:10),5)))
>
> and I need to make a scatter plot for each subj, not a problem, but...
> what i want is to replace the strips from the lattice and add a  
> label to
> each plot.
> I manage to do this with the following code, but I'm still not  
> happy...
>
> xyplot(var ~ temp | subj,
>       data = mydata,
>       strip=FALSE,
>       panel = function(x, y,...) {
>               panel.xyplot(x, y,...)
>               panel.text(1,21,labels=which.packet())

Instead use the packet numer a an index into `letters`

                panel.text(1,21,labels=letters[which.packet()])

>               })

David Winsemius, MD
Heritage Laboratories
West Hartford, CT