单细胞过滤

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