这是我的图:
而这是我理想的图
求助各位大佬,我的程序是:
rt=read.table("riskCliExp.txt",sep="\t",header=T,row.names=1,check.names=F)
rt=t(rt)
outpdf="heatmap.pdf"
library(pheatmap)
Type=read.table("riskCliGroup.sig.txt",sep="\t",header=T,row.names=1,check.names=F)
Type=Type[order(Type$Risk),]
rt=rt[,row.names(Type)]
pdf(outpdf,height=7.7,width=10)
pheatmap(rt, annotation=Type,
color = colorRampPalette(c("blue", "white", "red"))(50),
cluster_cols =F,
fontsize=8.5,
fontsize_row=8,
scale="row",
show_colnames=F,
fontsize_col=3)
dev.off()
求助哇!!!
,感激不尽!

雷达卡





京公网安备 11010802022788号







