热图添加行标签

library(pheatmap)
data_ori <- "Grp_1;Grp_2;Grp_3;Grp_4;Grp_5
 a;6.6;20.9;100.1;600.0;5.2
 b;20.8;99.8;700.0;3.7;19.2
 c;100.0;800.0;6.2;21.4;98.6
 d;900;3.3;20.3;101.1;10000"
 
 data <- read.table(text=data_ori, header=T, row.names=1, sep=";", quote="")
 row_anno = data.frame(type=c("TF","Enzyme","Enzyme","TF"), class=c("clu1","clu1","clu2","clu2"), row.names=rownames(data))
 row_anno
 
 pheatmap::pheatmap(data, scale="row", 
                    cluster_rows=FALSE, 
                 #   annotation_col=col_anno,
                    annotation_row=row_anno,
                    filename="pheatmap_1.pdf")

ref:(1条消息) 绘制注释行名和列名的热图_2020-02-17_孤星夜神的博客-CSDN博客