fix volcano

antosalerno · Sep 25, 2024 · 5f3a40c · 5f3a40c
1 parent 9e10b35
commit 5f3a40c
Show file tree

Hide file tree

Showing 5 changed files with 1 addition and 2 deletions.
diff --git a/N01_GeoMx_Enrich.R b/N01_GeoMx_Enrich.R
diff --git a/S08_CopperJoint.R b/S08_CopperJoint.R
@@ -164,4 +164,3 @@ dev.off()
 
 
 
-
diff --git a/S10_Neutrophils.R b/S10_Neutrophils.R
diff --git a/session_info.txt b/session_info.txt
diff --git a/supportFunctions.R b/supportFunctions.R
@@ -104,7 +104,7 @@ plotVolcano <- function(clusters, res=NULL, type = "condition", file= NULL,
                          drawConnectors = TRUE,
                          widthConnectors = 0.3,colConnectors = 'gray51', maxoverlapsConnectors = Inf,
                          caption = paste0('Upregulated = ', nrow(res[res$avg_log2FC > log2FC&res$p_val_adj<= 0.05,]), ' genes',
-                                          "\n",'Downregulated = ', nrow(res[res$avg_log2FC < -log2FC &res$p_val_adj<= 0.05,]), ' genes'))+ theme(plot.title = element_text(hjust = 0.5)) + coord_flip()
+                                          "\n",'Downregulated = ', nrow(res[res$avg_log2FC < -log2FC &res$p_val_adj<= 0.05,]), ' genes'))+ theme(plot.title = element_text(hjust = 0.5))
       ggsave(p, file=paste0("TEPA_plots/",save, "DEA_",sub(" ", "_", cluster),".png"), width = 30, height = 25, units = "cm")
     })
   }