ヒートマップ列ラベルをシンボルに変更する方法

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グループを表すために2つのシンボルを使用することができ、最終的な図に示すことができます。助けすべてを事前に

ありがとう：

私は（フォトショップで変更）以下のサンプルを添付しました！

Answer 1

ここでは、標準image機能を持つ別の可能性はあります：あなたは本当に[ `heatmap.2`からである、とあなたがそれをタグ付け、なぜ私はわからないんだけど何のパッケージタグを指定する必要があり

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)