[R] xyplot: trouble changing graphics settings

[Richard M. Heiberger]

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()