From e1c3458c54bc6f8de25a391c54da0154e5546caf Mon Sep 17 00:00:00 2001 From: pcastellanoescuder Date: Thu, 14 Dec 2023 13:01:25 -0500 Subject: [PATCH] fix and clean proteins --- R/plots.R | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/R/plots.R b/R/plots.R index 3d2cce3..f253963 100644 --- a/R/plots.R +++ b/R/plots.R @@ -839,7 +839,7 @@ make_umap_plot <- function(input = list(), show_subset = FALSE, labels = FALSE) { make_umap_plot_raw <- function() { - gene_cluster_position <- get_content("gene_cluster_position", dataset = TRUE) + gene_signature_clusters <- get_content("gene_signature_clusters", dataset = TRUE) data_gene_signature_clusters <- get_data_object(object_names = input$content, @@ -857,9 +857,9 @@ make_umap_plot <- function(input = list(), # UMAP PLOT plot_complete <- ggplot2::ggplot() + - ggplot2::geom_point(data = gene_cluster_position, + ggplot2::geom_point(data = gene_signature_clusters, ggplot2::aes(X1, X2), size = 0.8, color = "grey90") + - {if(show_subset)ggplot2::geom_point(data = gene_cluster_position %>% + {if(show_subset)ggplot2::geom_point(data = gene_signature_clusters %>% dplyr::filter(clust %in% query_clust), ggplot2::aes(X1, X2, color = clust), size = 0.8)} + {if(!show_subset)ggplot2::geom_point(data = data_gene_signature_clusters, @@ -876,7 +876,8 @@ make_umap_plot <- function(input = list(), y = "UMAP 2") + ggplot2::scale_color_manual( values = rep(colors, length.out = - nrow(gene_cluster_position %>% dplyr::filter(clust %in% query_clust))) + nrow(gene_signature_clusters %>% + dplyr::filter(clust %in% query_clust))) ) + ggplot2::guides(color = ggplot2::guide_legend(override.aes = list(size = 3))) + ## theme changes