这里分享一种单细胞数据可视化的图形修饰。

先加载一个seurat公共的单细胞数据集

InstallData("pbmc3k")
data("pbmc3k")
PBMC <- pbmc3k.final
PBMC = UpdateSeuratObject(object = PBMC)

一般展示marker基因用这种点图:

Markers <- c('AGER','SCGB3A2','TPPP3','CD68','FCN1','CD1C','CD14','MARCO',
             'CXCR2','IL3RA','CD3D','CD8A','KLRF1','CD79A','MS4A1','S100A8')
DotPlot(PBMC, features = Markers)

图片

额,很普通!

所以修饰修饰,让它看起来更舒服,也对得起测序花的钱。

所幸,发现了一个新的包,可以让他更好:

图片

快用起来吧

文章字数虽少,但不敷衍,东西是实实在在的好东西!

Logo

魔乐社区(Modelers.cn) 是一个中立、公益的人工智能社区,提供人工智能工具、模型、数据的托管、展示与应用协同服务,为人工智能开发及爱好者搭建开放的学习交流平台。社区通过理事会方式运作,由全产业链共同建设、共同运营、共同享有,推动国产AI生态繁荣发展。

更多推荐