R 格子 : How to add empty plots with border to fill the gaps of defined layout

Question

我想在 2x3 布局中创建一系列包含 6 个或更少绘图的图形。如果有少于 6 个图的图形，我希望有边框来查看布局的结构。

例如这段代码给出了下图:

n <- 3
data0 <- expand.grid(g = LETTERS[1:3], x=1:10)
data0$y <- data0$x + rnorm(nrow(data0))
xyplot(y~x|g, data=data0, layout=c(2,3), as.table=TRUE)

我想创建这样的东西:



知道如何做到这一点吗？

Answer 1

我刚刚添加了另外 3 个组 NA值(value)观:

data0 <- expand.grid(g = LETTERS[1:6], x=1:10)
data0$y <- data0$x + rnorm(nrow(data0))
data0[data0$g %in% LETTERS[4:6],c('x', 'y')] <- NA
xyplot(y~x|g, data=data0, layout=c(2,3), as.table=TRUE)