Nantes Université

Skip to content
Extraits de code Groupes Projets
Valider 7aba6446 rédigé par Simon CHEVOLLEAU's avatar Simon CHEVOLLEAU :computer:
Parcourir les fichiers

Update

parent 83b96f73
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
Masquer les modifications d'espaces
En ligne Côte à côte
Affichage de
avec 2 ajouts et 2 suppressions
functions.R
+ 2
− 2
Voir le fichier @ 7aba6446
...@@ -237,7 +237,7 @@ umapAllKit <- function(umapAll, merged_cell_annotation, annot, colorScale = FALS ...@@ -237,7 +237,7 @@ umapAllKit <- function(umapAll, merged_cell_annotation, annot, colorScale = FALS
return(plot) return(plot)
} }
umapExpr <- function(umapAll, gene, correctedAll, annot, dataset="Dataset", sampleAnnot, main, violin_plot = FALSE, pointSize = 3, colorScale = c("white","yellow","red","purple")){ umapExpr <- function(umapAll, gene, correctedAll, annot, dataset="Dataset", sampleAnnot, main, violin_plot = FALSE, pointSize = 3, ...){
#' Plot UMAP with numeric variable #' Plot UMAP with numeric variable
#' #'
#' @description WRAPPER #' @description WRAPPER
...@@ -390,7 +390,7 @@ getColors <- function() { ...@@ -390,7 +390,7 @@ getColors <- function() {
return(colors_list) return(colors_list)
} }
plotCompressedUmapExpr <- function(dir_path, pdf_path, names_list, correctedAll, umapAll, merged_cell_annotation, annot = "res.0.75", dataset = "Dataset", pointSize=2, nrow = 3, ncol = 3, colorScale = colorScale=c("white","yellow","red","purple")) { plotCompressedUmapExpr <- function(dir_path, pdf_path, names_list, correctedAll, umapAll, merged_cell_annotation, annot = "res.0.75", dataset = "Dataset", pointSize=2, nrow = 3, ncol = 3, ...) {
plot_list_compressed <- list() plot_list_compressed <- list()
plot_list <- list() plot_list <- list()
for (marker in names_list){ for (marker in names_list){
......
0% ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter