Skip to content
Snippets Groups Projects
Commit 72d56204 authored by Gervaise Henry's avatar Gervaise Henry :cowboy:
Browse files

Fix print umap only

parent 40b5287d
Branches phg_workflow_ps
2 merge requests!6Develop,!5Refactor
Hide whitespace changes
Inline Side-by-side
r.scripts/sc-TissueMapper_functions.R
+ 2
− 2
View file @ 72d56204
...@@ -615,11 +615,11 @@ scCluster <- function(sc10x,res=0.1,red="pca",dim,print="umap",folder=FALSE,assa ...@@ -615,11 +615,11 @@ scCluster <- function(sc10x,res=0.1,red="pca",dim,print="umap",folder=FALSE,assa
if (print=="tsne"){ if (print=="tsne"){
postscript(paste0("./analysis/vis/",sub,"tSNE_",i,".eps")) postscript(paste0("./analysis/vis/",sub,"tSNE_",i,".eps"))
print(print2) print(plot2)
dev.off() dev.off()
} else if (print=="umap"){ } else if (print=="umap"){
postscript(paste0("./analysis/vis/",sub,"UMAP_",i,".eps")) postscript(paste0("./analysis/vis/",sub,"UMAP_",i,".eps"))
print(print3) print(plot3)
dev.off() dev.off()
} else if (print=="2"){ } else if (print=="2"){
plot2 <- plot2+theme(legend.position="none") plot2 <- plot2+theme(legend.position="none")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment