R/differiential_expression.R: reoder level of gene states ns -> down -> up (for figures only)

R/differiential_expression.R

@@ -52,6 +52,7 @@ create_de_figures <- function(df, output_folder, condition, lfct) {
                     ifelse(padj <= 0.05 & log2FoldChange > 0, "up", "ns")
                 )
         ) %>%
+        mutate(genes = factor(genes, levels = c("ns", "down", "up"))) %>%
         arrange(desc(abs(log2FoldChange))) %>%
         filter(!is.na(padj))
     cat_gene <- sort(unique(dfn$genes))