R中的双聚类

我想通过对R中的二进制矩阵进行聚类来应用。有一个很好的包叫做“biclust”,但它确实如此,而且并没有显示我想要的所有内容。

我有一个二进制矩阵,如下所示:

1 0 0 1 0 1 0
0 0 0 0 0 0 0
0 0 1 0 1 0 0
1 0 0 1 0 1 0
0 0 1 0 1 0 0
1 0 0 1 0 1 0
0 0 0 0 0 0 0

我的目标是将其分簇(并显示)如下(可能是彩色的):

1 1 1 0 0 0 0
1 1 1 0 0 0 0
1 1 1 0 0 0 0
0 0 0 1 1 0 0
0 0 0 1 1 0 0
0 0 0 0 0 0 0
0 0 0 0 0 0 0

# install.packages("biclust") (if necessary)
library("biclust")

testMatrix <- matrix(c(1,0,0,1,0,1,0,
                       0,0,0,0,0,0,0,
                       0,0,1,0,1,0,0,
                       1,0,0,1,0,1,0,
                       0,0,1,0,1,0,0,
                       1,0,0,1,0,1,0,
                       0,0,0,0,0,0,0),
                     nrow = 7,
                     ncol = 7,
                     byrow = TRUE)

testCluster <- biclust(x = testMatrix, method=BCBimax())

实际上,我得到了预期的两个集群:

An object of class Biclust 
call:
biclust(x = testMatrix, method = BCBimax())
Number of Clusters found:  2 
First  2  Cluster sizes:
                      BC 1  BC 2
Number of Rows:       3     2
Number of Columns:    3     2

我可以通过以下方式分别显示簇:

drawHeatmap(x = testMatrix, bicResult = testCluster, number = 1) # shown in picture below
drawHeatmap(x = testMatrix, bicResult = testCluster, number = 2)

我可以通过以下方式显示整个聚类矩阵(左上角的一个聚类):

drawHeatmap2(x = testMatrix, bicResult = testCluster, number = 1) # shown in picture below
drawHeatmap2(x = testMatrix, bicResult = testCluster, number = 2)

到目前为止还不错,但我想:

1. 显示器颜色已切换。现在,1是红色的,0是绿色的。
2. 我想看看原始矩阵的行和列。现在只显示了特定集群的行号和列号(使用drawHeatMap),而在整个集群矩阵(drawHeat Map2)中没有显示行号和列号。

这些更改是否可行(使用“biclust”包)?还是用另一种方法用R更好?