setwd("D:/Desktop/all") ? ?#設置工作目錄，處理fold值數(shù)據(jù)

library("pheatmap") ? ?#加載pheatmap包

data = read.csv('a1.csv',row.name=1) ? ?#將文件a1.csv讀入到data中

data[data< -3]=-3 ? ?#對fold值進行處理，小于-3的均寫成-3

data[data>3]=3 ? ? #對fold值進行處理，大于3的均寫成3

pdf("a1.pdf") ? ? #將熱圖存入文件名為a1.pdf中，也可不先輸出，使用下一條語句查看熱圖情況

pheatmap(data) ? ? #繪制熱圖 #pheatmap(data,cluster_cols=F,cluster_rows=F,show_rownames = F,fontsize = 16) ? cluster_cols=F 行不聚類，cluster_rows=F列不聚類，show_rownames=F去掉行名，fontsize定義字體大??；pheatmat(data, color = c("white","lightcoral"))? #示例數(shù)據(jù)中只有0和1，0是白色，1是淺珊瑚色，非連續(xù)型；（查找顏色可以直接搜R顏色）

dev.off() ? ? #保存并關(guān)閉文件

#修改顏色后再繪制熱圖

color<-colorRampPalette(c('#436eee','white','#ee0000'))(100)? ?#顏色設置呈藍至紅漸變，要修改顏色的話，直接改變括號內(nèi)顏色

pheatmap(data,color = color, cluster_cols=F,cluster_rows=F,show_rownames = F,fontsize = 16)? ? #添加顏色項