[R] xyplot

[Sundar Dorai-Raj]

Osman Al-Radi said the following on 10/5/2006 3:43 PM:
> Hi,
> 
> for the data below:
> time<-c(rep(1:10,5))
> y<-time+rnorm(50,5,2)
> subject<-c(rep('a',10),rep('b',10),rep('c',10),rep('d',10),rep('e',10))
> group<-c(rep('A',30),rep('B',20))
> df<-data.frame(subject,group,time,y)
> 
> I'd like to produce a plot with a single pannel with two loess curves one
> for each group. the code below does that but on two different pannels, I'd
> like to have both curves on the same pannel with different colors.
> 
> xyplot(y~time|group, groups=subject,
>     panel=function(...){
>         panel.loess(...)
>         }
>     ,data=df)
> 
> 

Simple:

xyplot(y ~ time | group, data = df, groups = subject,
        panel = function(...) {
          panel.superpose(...)
          panel.superpose(panel.groups = panel.loess, ...)
        })

HTH,

--sundar