R:来自矩阵的多个晶格水平图

Question

我的目标是(从点阵封装中)构建一个水平图，其中包含4个或更多共享相同colorkey的单独图。尽管使用函数似乎相对简单，但我无法使用数据矩阵找到解决方案。仅具有一个矩阵的工作水平图的示例:

d <- replicate(10,rnorm(10))
levelplot(d)

我发现使用打印和拆分的部分解决方案可以在同一屏幕上显示所有4个水平图，但是这些要求我要么关闭色键，要么在每个图上都显示它。两种解决方案都不是完全令人满意的。

如果我在levelplot中使用layout-option，如下所示:

levelplot(d, layout=c(2,2))

，我得到了所需的布局，使用了一个大的colorkey，main和xlab/ylab，但只打印了一张levelplot。

我一直在尝试构建一个可以产生预期结果的公式，但是我对数据帧，数组和矩阵的理解还不够深入。如果有人知道一个可行的解决方案，我将不胜感激。我想象的是类似的东西(不是工作代码):

d1 <- replicate(10,rnorm(10))
d2 <- replicate(10,rnorm(10))
d3 <- replicate(10,rnorm(10))
d4 <- replicate(10,rnorm(10))

d <- list(d1,d2,d3,d4)
di <- c(1,2,3,4)

levelplot(x ~ y | di, data = d, layout=c(2,2))

注意!避免矩阵不是一种选择。其中一些是从原始文本文件获得的。

先感谢您，

-J.P

Answer 1

结合使用ggplot和reshape和列表d:

require(reshape)
require(ggplot2)

ggplot(melt(d), aes(x=X1, y=X2)) +
  facet_wrap(~ L1, ncol=2) +
  geom_tile(aes(fill=value)) +
  coord_equal()

这使: