2019-06-14
阅读量:
603
基于pheatmap包的绘制
library(pheatmap)
library(RColorBrewer)
setwd("D:/example/")
data1<-read.csv('a4.csv',header = TRUE)
pheatmap(data1)
p3<-pheatmap(data1,
color=brewer.pal(11,"PRGn"),
cellwidth = 20,
cellheight = 10,
cluster_rows = FALSE,
cluster_cols = FALSE,
labels_row=c('P.Jun','P.Jul','P.Aug','P.Sep','P.Oct','P.Nov','P.Dec','C.Jan','C.Feb','C.Mar','C.Apr','C.May','C.Jun','C.Jul','C.Aug','C.Sep','C.Oct'),
fontsize = 12,
#display_numbers = TRUE,
number_color = "black",
)
28.9848
1
2
关注作者
收藏
评论(0)
发表评论
暂无数据
