Commit 4b0b5d50 authored by Gervaise H. Henry's avatar Gervaise H. Henry 🤠

Add Krt19 to muPrUr diy

parent a4d82de1
......@@ -187,7 +187,7 @@ VlnPlot(sc10x.epi,features=c("Krt5","Krt4","Sbp","Msmb","Tgm4","Svs2"),pt.size=0
dev.off()
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","Krt4","Ly6d","Psca","Tacstd2","Ly6e","Ly6a","Prom1")),dot.scale=10,cols=rev(heat.colors(2)))
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()
sc10x.epi$`Cell ID` <- factor(sc10x.epi$hu_pops,levels=c("BE","Ur","LE"))
......
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