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

Fix lin subset if unknown present and re-tSNE St

parent 361eae03
2 merge requests!2Merge develop into master,!1Merge FACS into Develop
...@@ -187,6 +187,7 @@ results.clust.Lin.id <- results[[3]] ...@@ -187,6 +187,7 @@ results.clust.Lin.id <- results[[3]]
rm(results) rm(results)
rm(gene.set) rm(gene.set)
sc10x <- SetAllIdent(object=sc10x,id="Lin")
sc10x.Epi <- scSubset(sc10x,i="Lin",g="Epi") sc10x.Epi <- scSubset(sc10x,i="Lin",g="Epi")
if (any(levels(sc10x@ident)=="Unknown")){ if (any(levels(sc10x@ident)=="Unknown")){
sc10x.St <- scSubset(sc10x,i="Lin",g=c("St","Unknown")) sc10x.St <- scSubset(sc10x,i="Lin",g=c("St","Unknown"))
...@@ -215,6 +216,21 @@ plot(plot) ...@@ -215,6 +216,21 @@ plot(plot)
dev.off() dev.off()
rm(plot) rm(plot)
sc10x.St <- RunTSNE(object=sc10x.St,reduction.use="pca",dims.use=1:pc.use.poststress,do.fast=TRUE)
postscript(paste0("./analysis/tSNE/st/tSNE_Sample.eps"))
plot <- TSNEPlot(object=sc10x.St,group.by="samples",pt.size=2.5,do.return=TRUE,vector.friendly=FALSE)
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)
dev.off()
postscript(paste0("./analysis/tSNE/st/tSNE_res",opt$res.poststress,".eps"))
plot <- TSNEPlot(object=sc10x.St,pt.size=5,do.label=TRUE,label.size=10,do.return=TRUE,vector.friendly=FALSE)
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)
dev.off()
rm(plot)
gene.set1 <- read_delim("./genesets/genes.deg.BE.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE) gene.set1 <- read_delim("./genesets/genes.deg.BE.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
gene.set1 <- gene.set1[1] gene.set1 <- gene.set1[1]
gene.set1 <- as.list(gene.set1) gene.set1 <- as.list(gene.set1)
......
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