I have the following example data:
sel = structure(c(1.29955, 2.52295, 1.11021, 2.52008, 8.20255, 8.50118,
5.82189, 5.8108, 1.55928, 8.255
col = c("#FF0000", "#FF0000", "#FF0000")
par(mar=c(7,4,4,2)+0.1)
png(filename='test.png', width=800, height=750)
heatmap.2(sel, col=redgreen(75), scale="row", ColSideColors=col,
key=TRUE, symkey=FALSE, density.info="none",cexRow=1,cexCol=1,margins=c(12,8),trace="none",srtCol=45)
graphics.off()