r - 如何在 R 中以固定网格模式绘制 "matrix"

Question

我有一个大数据框。前 6 行的示例如下:

> temp
  M1 M2 M3 M4 M5 M6
1  1  1  1  1  1  1
2  1  1  1  1  1  1
3  0  1  0 -1  1  0
4  1  1  1  1  1  1
5  0  0  0 -1  0  1
6  0  0  0  0  0  0
> dput(temp)
structure(list(M1 = c(1, 1, 0, 1, 0, 0), M2 = c(1, 1, 1, 1, 0, 
0), M3 = c(1, 1, 0, 1, 0, 0), M4 = c(1, 1, -1, 1, -1, 0), M5 = c(1, 
1, 1, 1, 0, 0), M6 = c(1, 1, 0, 1, 1, 0)), .Names = c("M1", "M2", 
"M3", "M4", "M5", "M6"), row.names = c(NA, -6L), class = "data.frame")

数据框只有值 -1、0 和 1。总行数为 2,156。我想做的是绘制一个“网格”格式，其中每行由 6 个正方形(每列一个)组成。然后为这三个值中的每一个分配一种颜色(例如，红色、绿色、蓝色)。

我已尝试使用 heatmap.2 执行此操作(但我无法显示不同的方 block )。

我已经尝试使用 ggplot2 和 geom_points() 来做到这一点，但无法找到最好的方法。

任何有关如何有效执行此操作的帮助将不胜感激!

谢谢!

Answer 1

另一种选择:

library(lattice)
temp <- as.matrix(temp)
levelplot(temp, col.regions= colorRampPalette(c("red","green","blue")))

这将产生以下情节: