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

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）文本着色

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

我的直觉告诉我，最好生成一个long 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))

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

至于＆＃34; Jitter＆＃34;在每一点上，我都很难理解这究竟是指什么。