单细胞数据怎么表现genes mRNA表达的热图？

愿武艺晴小朋友一定得每天都开心 

#热图
library("ComplexHeatmap")
exp <- AverageExpression(subset(fasting_memory, Celltype %in% c("Pre-B")),
                         layer = "data", #即CPM值
                         features = c("Flt3","Il7r","Ebf1","Pax5","Mycn","GFP-Mycn",
 "Cd19","Cd79a","Cd79b","Nanog","Bach1","Bcl11a","Foxp1","Foxo1","Hoxb5","Nfatc1","Tcf12","Lmo2","Neat1","Nelfe", "Ighg3","Igha","Ighg2b","Ighg1",

"Ighv7-1","Ighv4-2","Ighm","Ighd","Igha","Jchain", "Igkv16-104",

"Igkv19-93","Rag1","Rag2","Dntt","Vpreb1","Vpreb2","Igll1","Igkc","Iglc1","Iglc3","Iglv1","Ig