[BioC] How can I put color scale & legend on Heatmap

[Saurin Jani]

Hi,

On my heatmap, I am doing: 

> rbg <- maPalette(low="blue", high="red",
mid="white")

> Feature_GeneNames <- mget(unique(myFeatureGenes),env

   = moe430aGENENAME);

> row.names(esetFeatureX) <- Feature_GeneNames;
> colnames(esetFeatureX) <- samples;

> heatmap(esetFeatureX,Rowv= NA ,Colv= 
  NA,col=rbg,margins=c(10,30));

I can see nice heat map, but how should I put legend
on heatmap image because legend() does seem to work in
combination of heatmap. May be I am doing something
wrong. 

How can I put legend & color scale below heatmap
image.

Any heatmap suggestion would be great..!

Thank you,
Saurin