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
______________________________________________
[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
and provide commented, minimal, self-contained, reproducible code.
