Skip to content
Snippets Groups Projects
Commit 516d149b authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Fix sc_QuSAGE_Epi/SubSubClust.R tSNE output filenames

parent 30d61dc4
No related merge requests found
Hide whitespace changes
Inline Side-by-side
r.scripts/sc_QuSAGE_EpiSubClust.R
+ 1
− 1
View file @ 516d149b
...@@ -425,7 +425,7 @@ for (i in sets){ ...@@ -425,7 +425,7 @@ for (i in sets){
plot <- plot+guides(colour=guide_legend(override.aes=list(size=10))) plot <- plot+guides(colour=guide_legend(override.aes=list(size=10)))
plot(plot) plot(plot)
dev.off() dev.off()
postscript(paste0("./analysis/",opt$g,"/global",sub.folder,"/tSNE_SubClust.Epi.",i,".eps")) postscript(paste0("./analysis/",opt$g,"/global",sub.folder,"/tSNE_SubClust.Epi.sub.",i,".eps"))
plot <- TSNEPlot(object=sc10x.Group.Epi,pt.size=5,do.label=TRUE,label.size=10,do.return=TRUE) plot <- TSNEPlot(object=sc10x.Group.Epi,pt.size=5,do.label=TRUE,label.size=10,do.return=TRUE)
plot <- plot+theme(axis.text.x=element_text(size=20),axis.text.y=element_text(size=20),axis.title.x=element_text(size=20),axis.title.y=element_text(size=20),legend.text=element_text(size=20)) plot <- plot+theme(axis.text.x=element_text(size=20),axis.text.y=element_text(size=20),axis.title.x=element_text(size=20),axis.title.y=element_text(size=20),legend.text=element_text(size=20))
plot <- plot+guides(colour=guide_legend(override.aes=list(size=10))) plot <- plot+guides(colour=guide_legend(override.aes=list(size=10)))
......
r.scripts/sc_QuSAGE_StSubClust.R 100644 → 100755
+ 2
− 2
View file @ 516d149b
...@@ -277,7 +277,7 @@ for (i in sets){ ...@@ -277,7 +277,7 @@ for (i in sets){
plot <- plot+guides(colour=guide_legend(override.aes=list(size=10))) plot <- plot+guides(colour=guide_legend(override.aes=list(size=10)))
plot(plot) plot(plot)
dev.off() dev.off()
postscript(paste0("./analysis/",opt$g,"/global",sub.folder,"/tSNE_SubPop.St.",i,".eps")) postscript(paste0("./analysis/",opt$g,"/global",sub.folder,"/tSNE_SubClust.St.",i,".eps"))
plot <- TSNEPlot(object=sc10x.Group.St,pt.size=5,do.label=TRUE,label.size=10,do.return=TRUE) plot <- TSNEPlot(object=sc10x.Group.St,pt.size=5,do.label=TRUE,label.size=10,do.return=TRUE)
plot <- plot+theme(axis.text.x=element_text(size=20),axis.text.y=element_text(size=20),axis.title.x=element_text(size=20),axis.title.y=element_text(size=20),legend.text=element_text(size=20)) plot <- plot+theme(axis.text.x=element_text(size=20),axis.text.y=element_text(size=20),axis.title.x=element_text(size=20),axis.title.y=element_text(size=20),legend.text=element_text(size=20))
plot <- plot+guides(colour=guide_legend(override.aes=list(size=10))) plot <- plot+guides(colour=guide_legend(override.aes=list(size=10)))
...@@ -510,7 +510,7 @@ for (i in sets){ ...@@ -510,7 +510,7 @@ for (i in sets){
plot <- plot+guides(colour=guide_legend(override.aes=list(size=10))) plot <- plot+guides(colour=guide_legend(override.aes=list(size=10)))
plot(plot) plot(plot)
dev.off() dev.off()
postscript(paste0("./analysis/",opt$g,"/global",sub.folder,"/tSNE_SubClust.St.",i,".eps")) postscript(paste0("./analysis/",opt$g,"/global",sub.folder,"/tSNE_SubClust.St.sub.",i,".eps"))
plot <- TSNEPlot(object=sc10x.Group.St,pt.size=5,do.label=TRUE,label.size=10,do.return=TRUE) plot <- TSNEPlot(object=sc10x.Group.St,pt.size=5,do.label=TRUE,label.size=10,do.return=TRUE)
plot <- plot+theme(axis.text.x=element_text(size=20),axis.text.y=element_text(size=20),axis.title.x=element_text(size=20),axis.title.y=element_text(size=20),legend.text=element_text(size=20)) plot <- plot+theme(axis.text.x=element_text(size=20),axis.text.y=element_text(size=20),axis.title.x=element_text(size=20),axis.title.y=element_text(size=20),legend.text=element_text(size=20))
plot <- plot+guides(colour=guide_legend(override.aes=list(size=10))) plot <- plot+guides(colour=guide_legend(override.aes=list(size=10)))
......
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