Commit 31707c07 authored by HaojiaWu's avatar HaojiaWu
Browse files

updates

parent bda08849

R/plot_dot.R

+1 −1
Original line number Diff line number Diff line
@@ -29,8 +29,8 @@ complex_dotplot_single <- function( 
  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)

R/plot_heatmap.R

+2 −2
Original line number Diff line number Diff line
@@ -30,8 +30,8 @@ cell1<-SetIdent(cell1, value = group) 
group_levels<-levels(seu_obj@meta.data[,group])

if (is.null(group_levels)){

  seu_obj@meta.data[,group] <-factor(seu_obj@meta.data[,group], levels = names(table(seu_obj@meta.data[,group])))

}

  group_levels<-levels(seu_obj@meta.data[,group])

  }

levels(cell1)<-group_levels

cell1_avg<-AverageExpression(cell1, verbose = F, return.seurat = F, assays = "RNA")

cell1_avg<-cell1_avg$RNA

CRA Git | Maintained and supported by SUSTech CRA and CCSE