bug <- read.table("tmp.dat", header=TRUE)
tpgs <- trellis.par.get("superpose.symbol")
xyplot(dnaconc ~ size | site,
data=bug,
groups=prey,
pch=c(19,24),
between=list(x=1, y=1),
key=list(
text=list(c("0","1"), col=tpgs$col[1:2]),
points=list(pch=c(19,24), col=tpgs$col[1:2])))
trellis.device(postscript, file="tmp.ps")
xyplot(dnaconc ~ size | site,
data=bug,
groups=prey,
pch=c(19,24),
between=list(x=1, y=1),
key=list(
text=list(c("0","1")),
points=list(pch=c(19,24))))
dev.off()
______________________________________________
[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
