Mercurial > repos > iuc > phyloseq_plot_ordination
changeset 7:eab0b21652c4 draft default tip
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/phyloseq commit 53ece29ec3f7e3c2c51d0ff9849e6193863cca71
| author | iuc |
|---|---|
| date | Sat, 25 Jan 2025 17:12:09 +0000 |
| parents | f9543efabd85 |
| children | |
| files | macros.xml phyloseq_plot_bar.R |
| diffstat | 2 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/macros.xml Fri Jan 10 14:59:00 2025 +0000 +++ b/macros.xml Sat Jan 25 17:12:09 2025 +0000 @@ -1,6 +1,6 @@ <macros> <token name="@TOOL_VERSION@">1.50.0</token> - <token name="@VERSION_SUFFIX@">0</token> + <token name="@VERSION_SUFFIX@">1</token> <token name="@PROFILE@">21.01</token> <xml name="bio_tools"> <xrefs>
--- a/phyloseq_plot_bar.R Fri Jan 10 14:59:00 2025 +0000 +++ b/phyloseq_plot_bar.R Sat Jan 25 17:12:09 2025 +0000 @@ -127,9 +127,11 @@ # Generate bar plot if (!is.null(opt$x) && opt$x != "") { - p <- plot_bar(physeq, x = opt$x, fill = opt$fill) + p <- plot_bar(physeq, x = opt$x, fill = opt$fill) + + geom_bar(aes(color = NULL, fill = !!sym(opt$fill)), stat = "identity", position = "stack") } else { - p <- plot_bar(physeq, fill = opt$fill) # If no x is provided, don't include x + p <- plot_bar(physeq, fill = opt$fill) + + geom_bar(aes(color = NULL, fill = !!sym(opt$fill)), stat = "identity", position = "stack") } # Only facet if the facet variable is provided and exists in the sample data @@ -141,6 +143,7 @@ } } + # Save to output file ggsave( filename = opt$output,