Cómo cambiar la escala del eje en celosía :: xyplot - r, plot, lattice

Soy relativamente nuevo en R y estoy tratando de hacer una figura utilizando una trama xy de celosía.

Aquí está la figura actual y el marco de datos:

Plot9Pn <- c(46, 33, 28)
Plot11Pn <- c(20, 18, 10)
Plot14Pn <- c(34, 28, 26)
Plot15Pn <- c(57, 33, 12)
Plot9Pr <- c(30, 46, 95)
Plot11Pr <- c(8, 11, 14)
Plot14Pr <- c(10, 46, 46)
Plot15Pr <- c(15, 37, 110)

Pn.vs.Pr.dat <- data.frame (x=rep (2009:2011, 8), y=c(Plot9Pr, Plot9Pn, Plot11Pr, Plot11Pn, Plot14Pr, Plot14Pn, Plot15Pr, Plot15Pn),
var=factor(rep(c("Pram","Pnem"), each=3)),
graph=factor (rep (c(" A. Plot 9", "B. Plot 11", "C. Plot 14", "D. Plot 15"), each=6)))

require(lattice)  # no need to install but loading is required.

xyplot (y ~ x | graph, groups=var, data=Pn.vs.Pr.dat, type="o", pch=my.pch, lty=1,
main="Changes in P. nemorosa vs. P. ramorum occurence", layout=c(1, 4), as.table=T,      xlab="Year", ylab="No. Positive",
strip.left=T, strip=F,
key=list (columns=2, text=list (my.text), points=list (pch=my.pch, col=my.col),
lines=list (lty=1, col=my.col)))

Me gustaría que el eje X se muestre con solo tres tics al año y que cambie la escala del eje Y para que se ajuste a cada gráfico.

Respuestas

Solo agrega esto a los argumentos xyplot:

   ... , scales=list(x=list(at=c(2009,2010,2011), labels=c(2009,2010,2011))),

Los principios generales son que los argumentos se pasan como listas, que cualquiera o ambos de los primeros argumentos pueden ser "x" o "y", y que se encuentran los argumentos disponibles en ?xyplot.