Mercurial > repos > proteore > proteore_clusterprofiler

diff GO-enrich.R @ 41:3fd1ccc57a6a draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit c9d70181a2b587e53dcc4b5885b74b625def6b8c-dirty
author proteore
date Fri, 06 Dec 2019 08:27:03 +0000
parents 25222be4a88b
children 3a990910e7f4
line wrap: on
line diff
--- a/GO-enrich.R	Thu Dec 05 13:35:24 2019 +0000
+++ b/GO-enrich.R	Fri Dec 06 08:27:03 2019 +0000
@@ -60,7 +60,7 @@
     #width = width_by_max_char(nb_max_char)
     name <- paste("GGO_", ontology, "_bar-plot", sep = "")
     png(name,height = 720, width = 600)
-    p <- barplot(ggo, showCategory=10)
+    p <- barplot(ggo, showCategory=20)
     print(p)
     dev.off()
     ggo <- as.data.frame(ggo)
@@ -90,7 +90,7 @@
     if ("dotplot" %in% plot ){
     dot_name <- paste("EGO_", ontology, "_dot-plot", sep = "")
     png(dot_name,height = 720, width = 600)
-    p <- dotplot(ego, showCategory=10)
+    p <- dotplot(ego, showCategory=20)
     print(p)
     dev.off()
     }
@@ -98,7 +98,7 @@
     if ("barplot" %in% plot ){
     bar_name <- paste("EGO_", ontology, "_bar-plot", sep = "")
     png(bar_name,height = 720, width = 600)
-    p <- barplot(ego, showCategory=10)
+    p <- barplot(ego, showCategory=20)
     print(p)
     dev.off()