Commit ce20676a authored by Gervaise H. Henry's avatar Gervaise H. Henry 🤠

Update muPrUr diy

parent 433f0000
......@@ -172,7 +172,7 @@ dev.off()
singler.epi@listData$scores <- singler.epi@listData$scores[,c(1,3,2)]
cor.epi <- as.matrix(singler.epi@listData$scores)
cor.epi <- cor.epi[c(3,2,1,4,6,5),]
cor.epi <- cor.epi[c(2,3,1,4,6,5),]
cor.epi.ann <- columnAnnotation(Cell.Type=factor(c("BE","Ur","VP LE","DLP LE","AP LE","ED"),levels=c("BE","Ur","VP LE","DLP LE","AP LE","ED")),col=list(ID=c("BE"="brown3","Ur"="brown2","LE"="brown1"),Cell.Type=c("BE"=brewer.pal(n=6,name="Dark2")[1],"Ur"=brewer.pal(n=6,name="Dark2")[2],"VP LE"=brewer.pal(n=6,name="Dark2")[3],"DLP LE"=brewer.pal(n=6,name="Dark2")[4],"AP LE"=brewer.pal(n=6,name="Dark2")[5],"ED"=brewer.pal(n=6,name="Dark2")[6])))
postscript(paste0("./analysis/vis/diy/CorrCustom_epi.eps"))
Heatmap(scale(t(cor.epi)),name="Correlation Z-Score",cluster_rows=FALSE,cluster_columns=FALSE,col=rev(heat.colors(2)),top_annotation=cor.epi.ann,row_title="Human Cell Types",column_title_side="bottom",column_title="Mouse Epi Clusters")
......@@ -190,6 +190,10 @@ postscript(paste0("./analysis/vis/diy/Dot_epi.sc.eps"))
DotPlot(sc10x.epi,features=rev(c("Svs2","Krt8","Cd24a","Dpp4","Pbsn","Msmb","Sbp","Tgm4","Trp63","Krt5","Krt19","Krt4","Ly6d","Psca","Tacstd2","Ly6e","Ly6a","Prom1")),dot.scale=10,cols=rev(heat.colors(2)))+theme(axis.text.x=element_text(angle=45,hjust=1))
dev.off()
postscript(paste0("./analysis/vis/diy/Dot_epi.sc_SUB.eps"))
DotPlot(sc10x.epi,features=rev(c("Krt4","Tacstd2","Nkx3-1","Dpp4")),dot.scale=10,cols=rev(heat.colors(2)))+theme(axis.text.x=element_text(angle=45,hjust=1))
dev.off()
sc10x.epi$`Cell.ID` <- factor(sc10x.epi$hu_pops,levels=c("BE","Ur","LE"))
Idents(sc10x.epi) <- "Cell.ID"
postscript(paste0("./analysis/vis/diy/UMAP_epi_hupop.eps"))
......
Markdown is supported
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