setwd("D:/Desktop/all") ? ?#設(shè)置工作目錄顽照,處理fold值數(shù)據(jù)
library("pheatmap") ? ?#加載pheatmap包
data = read.csv('a1.csv',row.name=1) ? ?#將文件a1.csv讀入到data中
pdf("a1.pdf") ? ? #將熱圖存入文件名為a1.pdf中,也可不先輸出臼氨,使用下一條語句查看熱圖情況
pheatmap(data, scale="row") ? ? #繪制熱圖志群,按行歸一化蕊蝗,可添加pheatmap內(nèi)的參數(shù)
dev.off() ? ? #保存并關(guān)閉文件