here is the solution:
col<-c("#cc0000", "#330099", "#66cc00","#ff6600" ,"#ff00cc", "#00000",
"#bo7080", "#7080bo")
lty<-c(1,1,1,1,1,1,1,1)
lwd<-c(1,1,1,1,1,1,1,1)
mylines<-list(col=col,lty=lty,lwd=lwd)
filename<- "c:\\temp\\test.png"
trellis.device(png,filename = filename, width = 940, height = 600, pointsize
= 10, bg = "white")
trellis.par.set("superpose.line",mylines)
xyplot(HITS+FREQ~TIME |SERVER*LOCAL, data=subset(myd,
TYPE=="xxx"),allow.multiple = TRUE, scales = "same",
type="l",xlim=range(myd$TIME), ylim=c(0,80000),layout=c(3,2),
key = list(lines = Rows(trellis.par.get("superpose.line"),
c(1:2)),
text = list(lab=c("total hits", "hits per day")),
columns = 2),
dev.off()
Thanks to Andy Liaw and Federico C.F. Calboli
Marc Mamin
______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
