如何更改 lattice::xyplot 中的轴比例

Question

我对 R 比较陌生，并试图使用 lattice xy plot 制作一个图形。

这是当前的图和数据框：

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

我希望 X 轴一年只显示三个刻度，并更改 Y 轴的比例以适合每个图。

Answer 1

只需将其添加到 xyplot 参数中：

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

一般原则是将参数作为列表传递，第一个参数中的一个或两个可以是“x”或“y”，并且您可以在 ?xyplot 中找到可用的参数。