diff --git a/tools/volcanoplot/.shed.yml b/tools/volcanoplot/.shed.yml index 41d637c9fad..60bc17b70ae 100644 --- a/tools/volcanoplot/.shed.yml +++ b/tools/volcanoplot/.shed.yml @@ -8,4 +8,5 @@ long_description: | name: volcanoplot owner: iuc remote_repository_url: https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot +homepage_url: https://ggplot2.tidyverse.org/ type: unrestricted diff --git a/tools/volcanoplot/volcanoplot.xml b/tools/volcanoplot/volcanoplot.xml index 1487d7392a9..0ec71adc6f4 100644 --- a/tools/volcanoplot/volcanoplot.xml +++ b/tools/volcanoplot/volcanoplot.xml @@ -1,4 +1,4 @@ - + create a volcano plot topic_0092 @@ -145,29 +145,29 @@ p <- p + geom_text_repel(data = filter(results, labels != ""), aes(label = label #end if #end if -#if not '$plot_options.title' +#if $plot_options.title: p <- p + ggtitle('$plot_options.title') #end if -#if not '$plot_options.xlab' +#if $plot_options.xlab: p <- p + xlab('$plot_options.xlab') #end if -#if not '$plot_options.ylab' +#if $plot_options.ylab: p <- p + ylab('$plot_options.ylab') #end if -#if not '$plot_options.xmin' and '$plot_options.xmax' -p <- p + xlim('$plot_options.xmin', '$plot_options.xmax') +#if $plot_options.xmin and $plot_options.xmax: +p <- p + xlim($plot_options.xmin, $plot_options.xmax) #end if -#if not '$plot_options.ymax' -p <- p + ylim(0, '$plot_options.ymax') +#if $plot_options.ymax: +p <- p + ylim(0, $plot_options.ymax) #end if # Set legend title -#if not '$plot_options.legend' -p <- p + theme(legend.title = '$plot_options.legend') +#if $plot_options.legend: +p <- p + guides(color = guide_legend(title = '$plot_options.legend')) #else p <- p + theme(legend.title = element_blank()) #end if @@ -191,10 +191,10 @@ sessionInfo() - - - - + + + + @@ -260,7 +260,7 @@ sessionInfo() - + @@ -321,5 +321,6 @@ A PDF containing a Volcano plot like below. The R code can be output through *Ou ]]> + doi.org/10.1007/978-3-319-24277-4 - \ No newline at end of file +