r - 格子:一个窗口中的多个图？

Question

我试图通过设置 par(mfrow=c(2,1)) 使用 levelplot 在一个窗口中放置多个格子图，但它似乎忽略了这个。

是否有一个特定的函数可以在lattice中设置多个绘图？

Answer 1

“lattice”包构建在 grid 包的基础上，并在加载“lattice”时附加其 namespace 。但是，为了使用grid.layout函数，您需要显式load() pkg::grid。另一种选择可能更简单，是 pkg::gridExtra 中的 grid.arrange 函数:

 install.packages("gridExtra")
 require(gridExtra) # also loads grid
 require(lattice)
 x <- seq(pi/4, 5 * pi, length.out = 100)
 y <- seq(pi/4, 5 * pi, length.out = 100)
 r <- as.vector(sqrt(outer(x^2, y^2, "+")))

 grid <- expand.grid(x=x, y=y)
 grid$z <- cos(r^2) * exp(-r/(pi^3))
 plot1 <- levelplot(z~x*y, grid, cuts = 50, scales=list(log="e"), xlab="",
           ylab="", main="Weird Function", sub="with log scales",
           colorkey = FALSE, region = TRUE)

 plot2 <- levelplot(z~x*y, grid, cuts = 50, scales=list(log="e"), xlab="",
           ylab="", main="Weird Function", sub="with log scales",
           colorkey = FALSE, region = TRUE)
 grid.arrange(plot1,plot2, ncol=2)