pheatmap畫熱圖

bym_3w+4w_DEG.txt
f<-read.table("bym_3w+4w_DEG.txt",header = T,row.names = 1,sep = "\t")
anno_col=data.frame(sampleType=factor(c(rep("w3",5),rep("w4",4),rep("gk3",5),rep("gk4",5))))#設(shè)置注釋條，樣本的分組情況
ann_color=list(sampleType=c(gk3="red",gk4="blue",w3="tomato",w4="dodgerblue"))#注釋條的顏色
row.names(anno_col)=colnames(f)
#匹配
color<-colorRampPalette(c('#436eee','white','#EE0000'))(100)#設(shè)置右側(cè)條形圖顏色，這里是藍(lán)白紅
pheatmap(f,scale="row",color = color,annotation_col = anno_col,annotation_colors = ann_color,fondsize=8,fonsizerow=4,show_colnames=T,main="",show_rownames = F,cluster_cols = F)#這里不顯示列名，即樣本名
color<-colorRampPalette(c('#436eee','white','#EE0000'))(100)#設(shè)置右側(cè)條形圖顏色，這里是藍(lán)白紅
deg_heatmap.png
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

友情鏈接更多精彩內(nèi)容