我使用过几个可以画heatmap的函数，包括stats 包的heatmap，
heatmp_2 in Heatplus package
，heatmap.2 in gplots package等，
其中
heatmap.2 in gplots package功能最为强大，可以解决搂住的问题。
代码如下：
<br />
library(gplots)<br />
<br />
require(graphics); require(grDevices)<br />
x <- as.matrix(mtcars)<br />
<br />
cellnote <- matrix("", ncol = ncol(x), nrow = nrow(x))<br />
<br />
which(rownames(x)=="Merc 230")->torow<br />
which(colnames(x)=="disp")->tocol<br />
<br />
cellnote[torow,tocol]<-"Merc 230@disp"<br />
<br />
heatmap.2(x,colsep=1:ncol(x),rowsep=1:nrow(x),key=F,trace="none",[b]cellnote=cellnote[/b])<br />
<br />
