[R]圖形配置

#heatmap(output, scale="none", col=grcol, zlim=range(c(-1,1)))
加上 zlim=range(c(-1,1)) 可以固定色帶範圍

待續...
png( paste( paste("u133_Normaldrug_", eachname[i], sep=""), ".png" ,sep="") , width=4800, height=4800, res=288, pointsize=9)

par(mfcol=c(1,2), mfg=c(1,1), mai=rep(0,4), omi=rep(0,4), fig=c(0,1,0,1))
heatmap(GroupData, scale="none", col = c("green","black","red"))
par(mfcol=c(1,2), mfg=c(1,2), mai=rep(0,4), fig=c(0,1,0,1), omi=rep(0,4))
plot(0,0, type="n", xlim=c(0,100), ylim=c(0,100), xaxs="i", yaxs="i", axes=F, ann=F,
frame.plot=F) # xaxs="r" 留坐標軸邊, "i" 不留
legend(0, 90, paste("Group-", eachname[i], sep="") , bty="n")
dev.off();