Loading R/plot_dot.R +6 −2 Original line number Diff line number Diff line Loading @@ -26,12 +26,16 @@ complex_dotplot_single <- function( do.scale=T, scale.by='radius' ){ seu_obj@meta.data[,groupby]<-gsub("_","-",seu_obj@meta.data[,groupby]) groupby_level<-levels(seu_obj@meta.data[,groupby]) if (is.null(groupby_level)){ seu_obj@meta.data[,groupby] <-factor(seu_obj@meta.data[,groupby], levels = names(table(seu_obj@meta.data[,groupby]))) } groupby_level<-levels(seu_obj@meta.data[,groupby]) if (sum(grepl("_", groupby_level))>0){ seu_obj@meta.data[,groupby]<-gsub("_","-",seu_obj@meta.data[,groupby]) groupby_level<-gsub("_","-",groupby_level) seu_obj@meta.data[,groupby] <-factor(seu_obj@meta.data[,groupby], levels = groupby_level) } levels(seu_obj)<-rev(levels(seu_obj)) if(is.null(celltypes)){ celltypes<-levels(seu_obj) Loading Loading
R/plot_dot.R +6 −2 Original line number Diff line number Diff line Loading @@ -26,12 +26,16 @@ complex_dotplot_single <- function( do.scale=T, scale.by='radius' ){ seu_obj@meta.data[,groupby]<-gsub("_","-",seu_obj@meta.data[,groupby]) groupby_level<-levels(seu_obj@meta.data[,groupby]) if (is.null(groupby_level)){ seu_obj@meta.data[,groupby] <-factor(seu_obj@meta.data[,groupby], levels = names(table(seu_obj@meta.data[,groupby]))) } groupby_level<-levels(seu_obj@meta.data[,groupby]) if (sum(grepl("_", groupby_level))>0){ seu_obj@meta.data[,groupby]<-gsub("_","-",seu_obj@meta.data[,groupby]) groupby_level<-gsub("_","-",groupby_level) seu_obj@meta.data[,groupby] <-factor(seu_obj@meta.data[,groupby], levels = groupby_level) } levels(seu_obj)<-rev(levels(seu_obj)) if(is.null(celltypes)){ celltypes<-levels(seu_obj) Loading
