Merge pull request #71 from nbpeterson3/main

Fix for do_VolcanoPlot when order_tags_by = "both"
enblacar · Jul 19, 2024 · 50551ee · 50551ee
2 parents af2828d + 7234410
commit 50551ee
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/do_VolcanoPlot.R b/R/do_VolcanoPlot.R
@@ -173,12 +173,12 @@ do_VolcanoPlot <- function(sample,
 
   if (isTRUE(add_gene_tags)){
     if (order_tags_by == "both"){
-      data.label <- genes %>%
+      data.label <- data %>%
                     dplyr::mutate("abs_avg_log2FC" = abs(.data$avg_log2FC)) %>% 
                     dplyr::arrange(dplyr::desc(.data$log_p),
                                    dplyr::desc(.data$abs_avg_log2FC)) %>%
                     as.data.frame() %>%
-                    utils::head(number.tags * 2)
+                    utils::head(n_genes * 2)
     } else if (order_tags_by == "pvalue"){
       data.up <- data %>%
                  dplyr::filter(.data$avg_log2FC > 0) %>%
@@ -192,6 +192,8 @@ do_VolcanoPlot <- function(sample,
                    dplyr::arrange(dplyr::desc(.data$log_p)) %>%
                    as.data.frame() %>%
                    utils::head(n_genes)
+
+      data.label <- dplyr::bind_rows(data.up, data.down)
     } else if (order_tags_by == "logfc"){
       data.up <- data %>%
                  dplyr::arrange(dplyr::desc(.data$avg_log2FC)) %>%
@@ -202,6 +204,8 @@ do_VolcanoPlot <- function(sample,
                    dplyr::arrange(.data$avg_log2FC) %>%
                    as.data.frame() %>%
                    utils::head(n_genes)
+
+      data.label <- dplyr::bind_rows(data.up, data.down)
     }
 
     if (add_tag_side == "positive") {