#读取文件
p1<-read.table("1.txt",sep="\t",header = T,row.names = 1)
p2<-t(p1)
#install.packages("pheatmap")
library(pheatmap)
p3<-pheatmap(p2)
library(ggplot2)
#ggsave("p2.pdf",p3,width=15,height=4)
#ggsave("p2.png",p3,width=60,height=8)
ggsave("p3.png",p3, width = 40, height = 12, units = "cm")
#?ggsave
暂无评论