单细胞过滤
2021-03-10 本文已影响0人
佳名
library(ggplot2)
p1<-ggplot(pbmc[[]],aes(nFeature_RNA,percent.mt))+
geom_point(aes(color=nCount_RNA))+
xlab("nFeature")+ylab("Mitochondrial transcript percent")+
geom_hline(yintercept=20,linetype="dashed",size=0.2)+
geom_vline(xintercept=7500,linetype=4,size=0.2)+
geom_vline(xintercept=200,linetype=4,size=0.2)+
scale_colour_gradient(low="#FFFF33",high="#3A0088")+
facet_wrap(~orig.ident)
p1
Rplot.png