Question

我对R相对较新，并尝试使用格子xy图来制作一个数字。

这是当前的数字和数据框：

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中找到可用的参数。

如何在lattice :: xyplot中更改轴刻度

1 个答案: