HeatmapAnnotation函数添加注释 ,颜色自定义;Heatmap函数自定义颜色,大小,legend等。 代码语言:javascript 复制 #注释信息 celltypecolnames(exp_mat)cluster_anno<-c("Epi","Myeloid","Fibroblast","T","Endo","un")column_ha<-HeatmapAnnotation(cluster_anno=cluster_anno,col=list(cluster_anno=setNames(brewe...
load("sce.anno.RData") head(sce2,2) 二Seurat 调整,美化 1,计算marker 基因 首先计算marker基因,然后使用seurat的DotPlot函数绘制初始的点图 all_markers <- FindAllMarkers(object = sce2) save(all_markers,file = "all_markers.RData") top5 <- all_markers %>% group_by(cluster) %>% top_n(...
HeatmapAnnotation函数添加注释 ,颜色自定义;Heatmap函数自定义颜色,大小,legend等。 #注释信息 celltypecolnames(exp_mat)cluster_anno<- c("Epi","Myeloid","Fibroblast","T","Endo","un") column_ha<- HeatmapAnnotation(cluster_anno = cluster_anno,col =list(cluster_anno = setNames(brewer.pal(6,"...
library(Seurat)library(tidyverse)library(scCustomize) # 需要Seurat版本4.3.0library(viridis)library(RColorBrewer)library(gridExtra)load("sce.anno.RData")head(sce2,2) 二Seurat 调整,美化 1,计算marker 基因 首先计算marker基因,然后使用seurat的DotPlot函数绘制初始的点图 all_markers <- FindAllMarkers(ob...
library(Seurat)library(tidyverse)library(scCustomize) # 需要Seurat版本4.3.0library(viridis)library(RColorBrewer)library(gridExtra)load("sce.anno.RData")head(sce2,2) 二Seurat 调整,美化 1,计算marker 基因 首先计算marker基因,然后使用seurat的DotPlot函数绘制初始的点图 all_markers <- FindAllMarkers(ob...