Commit 9549e1d9 authored by Simon CHEVOLLEAU's avatar Simon CHEVOLLEAU 💻
Browse files

Update

parent f7fe107c
......@@ -395,7 +395,7 @@ plotCompressedUmapExpr <- function(dir_path, pdf_path, names_list, correctedAll,
plot_list <- list()
for (marker in names_list){
if (marker %in% rownames(correctedAll)){
plot_list[[marker]] <- umapExpr(umapAll=umapAll, gene=marker, correctedAll=correctedAll, annot= annot, dataset= dataset, sampleAnnot=merged_cell_annotation, main=paste0(marker, " : "), pointSize = pointSize, colorScale)
plot_list[[marker]] <- umapExpr(umapAll=umapAll, gene=marker, correctedAll=correctedAll, annot= annot, dataset= dataset, sampleAnnot=merged_cell_annotation, main=paste0(marker, " : "), pointSize = pointSize, colorScale = colorScale)
plot_list_compressed[[marker]] <- plot_list[[marker]] + theme_void() + theme(plot.title = element_text(size=10))
}
}
......
Supports Markdown
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