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))))#设置注释条,样本的分组情况
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)#设置右侧条形图颜色,这里是蓝白红
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)#设置右侧条形图颜色,这里是蓝白红
pheatmap画热图
最后编辑于 :
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
- 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...