# HG changeset patch # User iuc # Date 1552832837 14400 # Node ID 67c29afac85fe0f1a6f9642f7da1436426e1aeec # Parent 07f6832bdd4d1b5a27e6fbd437e6843a1c9cf421 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/goseq commit 8e60c1cecc4561d61624799b0999e89687677ab1 diff -r 07f6832bdd4d -r 67c29afac85f goseq.r --- a/goseq.r Sat Feb 09 09:07:48 2019 -0500 +++ b/goseq.r Sun Mar 17 10:27:17 2019 -0400 @@ -159,12 +159,12 @@ top_n(10, wt=-over_represented_pvalue) %>% mutate(hitsPerc=numDEInCat*100/numInCat) %>% ggplot(aes(x=hitsPerc, - y=substr(term, 1, 40), # only use 1st 40 chars of terms otherwise squashes plot - colour=over_represented_pvalue, + y=reorder(substr(term, 1, 40), -over_represented_pvalue), # only use 1st 40 chars of terms otherwise squashes plot + colour=p.adjust.over_represented, size=numDEInCat)) + geom_point() + expand_limits(x=0) + - labs(x="% DE in category", y="Category", colour="P value", size="Count", title=paste("Top over-represented categories in", cats_title), subtitle=paste(m, " method")) + + labs(x="% DE in category", y="Category", colour="Adj P value", size="Count", title=paste("Top over-represented categories in", cats_title), subtitle=paste(m, " method")) + theme(plot.title = element_text(hjust = 0.5), plot.subtitle = element_text(hjust = 0.5)) print(p) } diff -r 07f6832bdd4d -r 67c29afac85f goseq.xml --- a/goseq.xml Sat Feb 09 09:07:48 2019 -0500 +++ b/goseq.xml Sun Mar 17 10:27:17 2019 -0400 @@ -1,4 +1,4 @@ - + tests for overrepresented gene categories bioconductor-goseq