r - ヒートマップへの単層ヒートマップの追加

Question

こんにちは、Rgplotsを使用してプロジェクトのヒートマップを作成しています。これまでのところ、このコードを書き、ヒートマップを正常に作成しました。

 library(gplots) 
    data<-read.csv("MATRIX_GAIN.txt",sep=','); 
    row.names(data) <- data$PARAMETERS
    data <- data[,2:18] 
    data_matrix<-data.matrix(data)     
    data_heatmap<-heatmap.2(t(data_matrix),
    col=redblue(256),dendrogram="none",density.info="none",scale="row",key=T,
    keysize=1.0,trace="none",cexRow=0.5, cexCol=0.6,symbreaks=T,margins=c(10, 8));

しかし今、別の配色を持つ既存のヒートマップにデータの別の列を追加したいと考えています。コメントしてください。

PARAMETERS  List_H  List_O  List_A  List_F  List_G  List_N  List_I
A   1.2973  1.5639  0.7184  0.533   0.6628  1.2973  1.5639
B   0.1307  0.1575  0.1301  0.3805  0.6862  0.1307  0.1575
C   0.5706  0.6878  0.6306  0.3054  0.1207  0.5706  0.6878
D   1.0153  1.2239  1.0166  0.9835  0.5128  1.0153  1.2239
E   1.6615  0.7051  0.2836  -0.1766 0.706   1.6615  0.6511
F   0   0   0   0.209   0.5348  0   0
G   0.5448  0.6568  0.8642  0.6374  -0.0512 0.5448  0.6568
H   0.0658  0.0793  0.1245  0.3191  0.611   0.0658  0.0793