生成矩阵数据和结构的图形对象

Question

我希望通过生成表示矩阵原始结构的图形对象来为视觉感知实验创建数百个刺激。

对于这个例子，考虑由以下定义的矩阵：

set.seed(123)
a5 <- matrix(nrow = 5, ncol = 5)  # Empty 5x5 matrix
a5l <- length(a5)  # Number of cells in array
ind <- sample(x = length(a5), replace = F, size = a5l)
a5[ind[1:12]] <- "X"
a5[ind[13:24]] <- "O"
a5[ind[25]] <- "T"

打印如下：

     [,1] [,2] [,3] [,4] [,5]
[1,] "X"  "O"  "X"  "T"  "O" 
[2,] "O"  "X"  "O"  "X"  "X" 
[3,] "O"  "X"  "O"  "O"  "X" 
[4,] "O"  "O"  "O"  "X"  "O" 
[5,] "O"  "X"  "X"  "X"  "X" 

我希望生成的是一个可视化上述结构和数据定位的对象：

a) 每个点的抖动 b) 文本着色

我对如何生成这样的东西有点迷茫。如果有人有任何经验，我希望能在正确的方向上得到一个想法。

我的直觉告诉我，最好生成一个长 data.frame，其中有一个因子变量定义 X 上的位置，另一个定义 Y 上的位置，值如下。

提前谢谢你！！

Answer 1

将字母转换为数字并制作热图会更容易吗？

a5[ind[1:12]] <- 1
a5[ind[13:24]] <- 2
a5[ind[25]] <- 3

heatmap(a5, Rowv = NA, Colv = NA, col = heat.colors(5), margins = c(5,5))

这可能与定义每个字母的图例相关联。

至于每一点的“抖动”，我很难理解这到底指的是什么。