Remove ridge plot for cell cycle anchors

r.scripts/sc-TissueMapper_functions.R

@@ -213,10 +213,6 @@ scCellCycle <- function(sc10x,sub=FALSE){
   
   #plot cell cycle specific genes
   genes=c("PCNA","TOP2A","MCM6","MKI67")
-  postscript(paste0(folder,"Ridge_cc.Raw.eps"))
-  plot <- RidgePlot(object=sc10x,features=genes,log=TRUE,ncol=2)
-  plot(plot)
-  dev.off()
   postscript(paste0(folder,"Violin_cc.Raw.eps"))
   plot <- VlnPlot(object=sc10x,features=genes,ncol=2,pt.size=1)
   plot(plot)