Cytotrace

library(reticulate)
use_python("ifs/scratch/c2b2/../biosoft/python/Python-3.7.8-installed-dir/bin/python3.7)
Sys.setenv(RETICULATE_PYTHON="/ifs/scratch/c2b2/../biosoft/python/Python-3.7.8-installed-dir/bin/python3.7")
library(CytoTRACE)

library(CytoTRACE)

pdf("cytotrace_out.pdf")
results <- CytoTRACE(marrow_10x_expr)
plotCytoTRACE(results, phenotype = marrow_10x_pheno, gene = "Kit")
plotCytoGenes(results, numOfGenes = 10)
dev.off()

https://cytotrace.stanford.edu/