如何为布尔矩阵构建类似填字游戏的图

Marat Talipov 发表于 Dev

马拉特·塔利波夫（Marat Talipov）

我有一个布尔矩阵：

mm <- structure(c(TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, 
                  FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, 
                  FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
                  FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
                  FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
                  FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, TRUE), .Dim = c(10L, 10L), .Dimnames = list(NULL, 
                                                                          c("n1", "n2", "n3", "n4", "n5", "n1.1", "n2.1", "n3.1", "n4.1", 
                                                                            "n5.1")))

对于这个矩阵，我想绘制一个与此图相似的图：

填字游戏情节

（图片来自Matlab的类似问题：如何将2D二进制矩阵显示为黑白图？）

也许我遗漏了一些明显的东西，但是我没有看到一种简单的方法来在R中做到这一点。到目前为止，我的最佳尝试是基于barplot：

m1 <- matrix(TRUE,ncol=10,nrow=10)
barplot(m1,col=mm)

但这会使所有行具有相同的颜色。

欢迎任何想法

戴维·罗宾逊

您可以使用ggplot2geom_tile和reshape2来做到这一点melt：

library(ggplot2)
library(reshape2)

melted <- melt(mm)
ggplot(melted, aes(x = Var2, y = Var1, fill = value)) + geom_tile() +
    scale_fill_manual(values = c("white", "black"))

为了使其更整洁，可以通过对主题进行一些调整来删除图例和灰色边缘：

ggplot(melted, aes(x = Var2, y = Var1, fill = value)) + geom_tile() +
    scale_fill_manual(values = c("white", "black")) +
    theme_bw() +
    theme(legend.position = "none")

最终输出：

在此处输入图片说明