如何将热图列标签更改为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)