【一键函数】单细胞marker基因平均表达量热图函数

这是一个集成的函数,很多小伙伴被一些美图”迷了眼“,需要这样、那样的形式。单独做又很麻烦,且容易出错。要求既要这样展示,又要那样展示。所以我们直接做了一个集成的函数,完成一些美丽的可视化,尽力满足需求。这里要展示的单细胞marker基因平均表达量热图,按理来说有很多教程,可是有些小伙伴在热图注释、顺序调整、热图美化上面晕头转向,所以我们熬点夜解决这个问题。

[图片上传中...(image-96eed5-1734509619995)]

参考:
https://www.bilibili.com/video/BV1w5mMYpE7B/?spm_id_from=333.999.0.0&vd_source=05b5479545ba945a8f5d7b2e7160ea34


ks_Singcellmean_heatmap(object = sce_cca,
                        marker_cluster = df_markers,
                        group.by = "celltype",
                        cellOrder = c("Myonuclei","NPCs","SMC","Tenocytes",
                                      "Adipocytes","Endothelial","Macrophages",
                                      "Mesenchymal","MuSCs","Myoblasts"),
                        cell_cols = c("#edc951","#8AAD05","#cc2a36","#4f372d","#00a0b0","#7A989A",
                                      "#849271","#CF9546","#C67052","#C1AE8D"),
                        text_size=9,
                        gene_anno = F)
image.png

ks_Singcellmean_heatmap(object = sce_cca,
                        marker_cluster = df_markers,
                        group.by = "celltype",
                        cellOrder = c("Myonuclei","NPCs","SMC","Tenocytes",
                                      "Adipocytes","Endothelial","Macrophages",
                                      "Mesenchymal","MuSCs","Myoblasts"),
                        cell_cols = c("#edc951","#8AAD05","#cc2a36","#4f372d","#00a0b0","#7A989A",
                                      "#849271","#CF9546","#C67052","#C1AE8D"),
                        text_size=9,
                        gene_anno = T)
image.png

ks_Singcellmean_heatmap(object = sce_cca,
                        marker_cluster = df_markers,
                        group.by = "celltype",
                        cellOrder = c("Myonuclei","NPCs","SMC","Tenocytes",
                                      "Adipocytes","Endothelial","Macrophages",
                                      "Mesenchymal","MuSCs","Myoblasts"),
                        cell_cols = c("#edc951","#8AAD05","#cc2a36","#4f372d","#00a0b0","#7A989A",
                                      "#849271","#CF9546","#C67052","#C1AE8D"),
                        text_size=9,
                        direction="vertical",
                        gene_anno=F)
image.png
ks_Singcellmean_heatmap(object = sce_cca,
                        marker_cluster = df_markers,
                        group.by = "celltype",
                        cellOrder = c("Myonuclei","NPCs","SMC","Tenocytes",
                                      "Adipocytes","Endothelial","Macrophages",
                                      "Mesenchymal","MuSCs","Myoblasts"),
                        cell_cols = c("#edc951","#8AAD05","#cc2a36","#4f372d","#00a0b0","#7A989A",
                                      "#849271","#CF9546","#C67052","#C1AE8D"),
                        text_size=9,
                        direction="vertical",
                        gene_anno=T)
image.png
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容