r - 如何将热图列标签更改为 R 中的符号

Question

如上面的标题所示，我想将 heatmap.2 生成的热图图中的列标签从 R 中的包 gplots 更改为符号而不是文本。我可以知道这是否可能，如果可以，该怎么做？

这是使用 heatmap.2 生成热图的示例代码：

library(gplots)
data<-sample(1:100,size=80)
M<-matrix(data,nrow=10,ncol=8)
colnames(M)<-c("W1_1","W1_2","W1_3","W1_4","B1_1","B1_2","B1_3","B1_4")
heatmap.2(M, trace="none", dendrogram="none")

这是热图结果：

在这种情况下，列标签为“W1_1”、“W1_2”、“W1_3”、“W1_4”、“B1_1”、“B1_2”、“B1_3”、“B1_4”。请问是否可以用两个符号分别代表W1和B1组并显示在最终图中。

我在下面附上了一个示例（通过 Photoshop 更改）：

提前感谢所有帮助！

Answer 1

image这是标准功能的另一种可能性：

op <- par(mar=c(4,2,2,4))
image(seq(nrow(M)), seq(ncol(M)), M, axes=F, xlab="", ylab="")
axis(side=4, at=seq(ncol(M)))
par(xpd=TRUE)
points(seq(nrow(M)), rep(0, nrow(M)), 
  pch=c(16, 15), col=c("cyan", "pink"), cex=2
)
par(op)