Thank you Rich, it looks very nice and seems to be the better solution.
Udo Quoting "Richard M. Heiberger" <r...@temple.edu>:
I would do this as a lattice plot. Continuing with your data: tmp <- data.frame(sapply(data, tapply, data[1:2], mean)) tmp$time <- factor(tmp$time) xyplot(thanaa+thalcho+thalino+ponaa+pocho+poino ~ time, group=BMIakt, data=tmp, type="l", scales=list(relation="free"), auto.key=list(title="BMIakt", border=TRUE)) Rich
______________________________________________ R-help@r-project.org 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.