| Next changeset 1:a78aa83f6625 (2017-08-29) |
|
Commit message:
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/ggplot2 commit 6e466ce83e2e5c0dd0ba30356d0488cf74574b8f |
|
added:
ggplot_point.xml macros.xml test-data/ggplot_heatmap2_result1.pdf test-data/ggplot_histogram_result1.pdf test-data/ggplot_point_result1.pdf test-data/ggplot_violin_result1.pdf test-data/mtcars.txt |
| b |
| diff -r 000000000000 -r 1bff6682e780 ggplot_point.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ggplot_point.xml Tue Aug 22 06:42:21 2017 -0400 |
| [ |
| b'@@ -0,0 +1,232 @@\n+<tool id="ggplot2_point" name="Scatterplot w ggplot2" version="@VERSION@">\n+ <macros>\n+ <import>macros.xml</import>\n+ </macros>\n+ <expand macro="requirements"></expand>\n+ <command detect_errors="exit_code"><![CDATA[\n+cat \'$script\' &&\n+Rscript \'$script\' &&\n+mv output_plot.pdf $output1\n+ ]]></command>\n+ <configfiles>\n+ <configfile name="script"><![CDATA[\n+\n+@R_INIT@\n+\n+## Import library\n+library("ggplot2")\n+\n+@XY_SCALING@\n+\n+## Choose theme for plot\n+#if $theme == "bw"\n+ gg_theme = theme_bw()\n+#else\n+ gg_theme = NULL\n+#end if\n+\n+gg_width = $with_output_dim\n+gg_height = $height_output_dim\n+\n+input <- read.csv(\'$input1\', sep=\'\\t\', header=TRUE)\n+\n+## renaming columns so ggplot can use them\n+names(input)[$xplot] <- "xcol"\n+names(input)[$yplot] <- "ycol"\n+\n+## choosing whether to plot data as multiple groups on one plot(factoring) OR multiple groups on different plots\n+#if $factor.factoring == "Multiple"\n+ gg_facet = facet_wrap( ~ factor)\n+ gg_factor = NULL\n+ color_scale = NULL\n+ #if $points.pointoptions == "Default"\n+ gg_point = geom_point(size=1, alpha=1, gg_factor)\n+ #else\n+ gg_point = geom_point(size=\'$points.size\', alpha=\'$points.alpha\', colour=\'$points.pointcolor\')\n+ #end if\n+\n+ names(input)[$factor.factorcol] <- "factor"\n+\n+#elif $factor.factoring == "Single"\n+ gg_facet = NULL\n+ gg_factor = aes(colour=factor(factor))\n+\n+ #if $points.pointoptions == "default"\n+ gg_point = geom_point(size=1, alpha=1, gg_factor)\n+ #else\n+ gg_point = geom_point(size=$points.size, alpha=\'$points.alpha\', gg_factor)\n+ #end if\n+\n+ #if $colors == "Default"\n+ color_scale = scale_colour_hue(direction=\'$factor.colororder\')\n+ #else\n+ color_scale = scale_color_brewer(palette=\'$colors\', direction=\'$factor.colororder\')\n+ #end if\n+\n+ names(input)[$factor.factorcol] <- "factor"\n+#else\n+ gg_facet = NULL\n+ gg_factor = NULL\n+ color_scale = NULL\n+\n+ #if $points.pointoptions == "default"\n+ gg_point = geom_point(size=1, alpha=1, gg_factor)\n+ #else\n+ gg_point = geom_point(size=$points.size, alpha=\'$points.alpha\', colour=\'$points.pointcolor\')\n+ #end if\n+#end if\n+\n+@TRANSFORM@\n+\n+##axis label custization\n+#if $axis_title_customization.axis_customization == "default"\n+ gg_axistitle = theme(axis.title = element_text(color = NULL, size = NULL, face = NULL))\n+#else\n+ gg_axistitle = theme(axis.title = element_text(color = \'$color\', size = \'$size\', face = \'$face\'))\n+#end if\n+\n+\n+##axis text(tick) custization\n+#if $axis_text_customization.axis_customization == "default"\n+ gg_axistext = theme(axis.text = element_text(color = NULL, size = NULL, face = NULL))\n+#else\n+ gg_axistext = theme(axis.text = element_text(color = \'$color\', size = \'$size\', face = \'$face\'))\n+#end if\n+\n+##plot title custimization\n+#if $plot_title_customization.axis_customization == "default"\n+ gg_plottitle = theme(plot.title = element_text(color = NULL, size = NULL, face = NULL))\n+#else\n+ gg_plottitle = theme(plot.title = element_text(color=\'$color\', size=\'$size\', face=\'$face\'))\n+#end if\n+\n+\n+\n+## grid line customization\n+#if $gridlinecust == "default"\n+ gg_gridline = NULL\n+#elif $gridlinecust == "hidemajor"\n+ gg_gridline = theme(panel.grid.major = element_blank())\n+#elif $gridlinecust == "hideminor"\n+ gg_gridline = theme(panel.grid.minor = element_blank())\n+#elif $gridlinecust == "hideboth"\n+ gg_gridline = theme(panel.grid.minor = element_blank(), panel.grid.major = element_blank())\n+#end if\n+\n+#this is the actual ggplot command to make the final plot(s)\n+ggplot(input, aes(xcol,ycol)) + gg_point + gg_facet+\n+gg_theme + gg_scalex + gg_scaley + color_scale + ggtitle(\'$title\') + xlab(\'$xlab\') + ylab(\'$ylab\')+\n+gg_axistitle + gg_axistext + gg_plottitle + gg_gridline\n+\n+ggsave(file=\'output_plot.pdf\', width=gg_width, height=gg_height)\n+dev.off()\n+'..b' <option value="magenta">Magenta</option>\n+ <option value="cyan">Cyan</option>\n+ <option value="grey">Grey</option>\n+ <option value="gold">Gold</option>\n+ </param>\n+ </when>\n+ </conditional>\n+ <conditional name="factor">\n+ <param name="factoring" type="select" label="Advanced - plotting multiple groups" >\n+ <option value="Default" selected="True">No thanks - just plot the data as one group</option>\n+ <option value="Single">Plot multiple groups of data on one plot</option>\n+ <option value="Multiple">Plot multiple groups of data on individual plots</option>\n+ </param>\n+ <when value="Default">\n+ <!--Do nothing here -->\n+ </when>\n+ <when value="Single">\n+ <param name="factorcol" type="integer" value="1" label="column differentiating the different groups" />\n+ <expand macro="colors" />\n+ <param name="colororder" type="select" label="Reverse color scheme" >\n+ <option value="1">Default order of color scheme</option>\n+ <option value="-1">Reverse the order of my color scheme</option>\n+ </param> \n+ </when>\n+ <when value="Multiple">\n+ <param name="factorcol" type="integer" value="1" label="column differentiating the different groups" />\n+ </when>\n+ </conditional>\n+ <expand macro="transform" />\n+\n+ <expand macro="xy_scaling" />\n+\n+ <param name="theme" type="select" label="Advanced - backgound theme for plot">\n+ <option value="bw">Black and white</option>\n+ <option value="Default">Default (grey)</option>\n+ </param>\n+\n+ <conditional name="axis_title_customization">\n+ <expand macro="axis_customization" label="Advanced - axis title options" />\n+ </conditional>\n+ <conditional name="axis_text_customization">\n+ <expand macro="axis_customization" label="Advanced - axis text options" />\n+ </conditional>\n+ <conditional name="plot_title_customization">\n+ <expand macro="axis_customization" label="Advanced - Plot title options" />\n+ </conditional>\n+ <param name="gridlinecust" type="select" label="Advanced - grid lines">\n+ <option value="default">Default grid lines</option>\n+ <option value="hidemajor">Hide major grid lines</option>\n+ <option value="hideminor">Hide minor grid lines</option>\n+ <option value="hideboth">Hide major and minor grid lines</option>\n+ </param>\n+ <expand macro="dimensions" />\n+ </inputs>\n+ <outputs>\n+ <!-- <data name="output1" format="png" from_work_dir="Rplot.png"/>\n+ ToDo: It would be nice to have different output formats for all tools\n+ -->\n+ <data name="output1" format="pdf" from_work_dir="Rplot.pdf"/>\n+ </outputs>\n+ <tests>\n+ <test>\n+ <param name="input1" value="mtcars.txt" ftype="tabular" />\n+ <output name="output1" file="ggplot_point_result1.pdf" compare="sim_size" />\n+ </test>\n+ </tests>\n+ <help><![CDATA[\n+ This tool will generate a scatterplot representing data from two groups/conditions. \n+\n+ The input data should be in tabular format and the user can determine which groups (columns) to plot.\n+\n+ Multiple groups can be plotted on the same or multiple plots by providing a column with a group identifier under "Advanced - plotting multiple groups".\n+\n+ Feel free to explore the (many) advanced options to customize your plot. Galaxy makes this type optimization easy for the user! \n+\n+ The ouput is a pdf file with your scatterplot. The dimensions of this file can be modified under "Advanced - output dimensions"\n+\n+ ]]></help>\n+ <expand macro="citations"/>\n+</tool>\n' |
| b |
| diff -r 000000000000 -r 1bff6682e780 macros.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/macros.xml Tue Aug 22 06:42:21 2017 -0400 |
| [ |
| b'@@ -0,0 +1,166 @@\n+<?xml version="1.0"?>\n+<macros>\n+ <xml name="requirements">\n+ <requirements>\n+ <requirement type="package" version="@VERSION@">r-ggplot2</requirement>\n+ <yield />\n+ </requirements>\n+ </xml>\n+ <token name="@VERSION@">2.2.1</token>\n+\n+ <token name="@R_INIT@"><![CDATA[\n+## Setup R error handling to go to stderr\n+options(show.error.messages=F, error=function(){cat(geterrmessage(), file=stderr()); q("no",1,F)})\n+\n+## Unify locale settings\n+loc <- Sys.setlocale("LC_MESSAGES", "en_US.UTF-8")\n+ ]]></token>\n+\n+ <token name="@TRANSFORM@"><![CDATA[\n+#if $transform == "log2"\n+ input["value"] <- log2(input["value"])\n+#elif $transform == "log2plus1"\n+ input["value"] <- log2(input["value"]+1)\n+#elif $transform == "log10"\n+ input["value"] <- log10(input["value"])\n+#elif $transform == "log10plus1"\n+ input["value"] <- log10(input["value"]+1)\n+#end if\n+ ]]></token>\n+\n+ <xml name="transform">\n+ <param name="transform" type="select" label="Advanced - log transformation">\n+ <option value="none">Plot the data as it is</option>\n+ <option value="log2">Log2(value) transform my data</option>\n+ <option value="log2plus1">Log2(value+1) transform my data</option>\n+ <option value="log10">Log10(value) transform my data</option>\n+ <option value="log10plus1">Log10(value+1) transform my data</option>\n+ </param>\n+ </xml>\n+\n+ <token name="@XY_SCALING@"><![CDATA[\n+#Choose between automatically scaled x and y axis or user defined\n+#if $scaling.plot_scaling == "Automatic"\n+ gg_scalex = NULL\n+ gg_scaley = NULL\n+#else\n+ gg_scalex = xlim($scaling.xaxismin, $scaling.xaxismax)\n+ gg_scaley = ylim($scaling.yaxismin, $scaling.yaxismax)\n+#end if\n+ ]]></token>\n+\n+ <xml name="xy_scaling">\n+ <conditional name="scaling">\n+ <param name="plot_scaling" type="select" label="Advanced - Axis scaling">\n+ <option value="Automatic" selected="True">Automatic axis scaling</option>\n+ <option value="Defined">User deined axis scales</option>\n+ </param>\n+ <when value="Automatic">\n+ <!--Do nothing here -->\n+ </when>\n+ <when value="Defined">\n+ <param name="xaxismin" type="integer" value="0" label="minimal range of x-axis" />\n+ <param name="xaxismax" type="integer" value="3" label="maximal range of x-axis" />\n+ <param name="yaxismin" type="integer" value="0" label="minimal range of y-axis" />\n+ <param name="yaxismax" type="integer" value="3" label="maximal range of y-axis" />\n+ </when>\n+ </conditional>\n+ </xml>\n+ <xml name="title">\n+ <param name="title" type="text" value="plot title" label="Title of plot" />\n+ </xml>\n+ <xml name="xy_lab">\n+ <param name="xlab" type="text" value="title of x-axis" label="Label for x-axis"/>\n+ <param name="ylab" type="text" value="title of y-axis" label="Label for y-axis"/> \n+ </xml>\n+ <xml name="dimensions">\n+ <param name="with_output_dim" type="float" value="7" label="width of output" help="in inches" />\n+ <param name="height_output_dim" type="float" value="7" label="height of output" help="in inches" />\n+ </xml>\n+ <xml name="citations">\n+ <citations>\n+ <citation type="bibtex">@Book{\n+ author = {Hadley Wickham},\n+ title = {ggplot2: Elegant Graphics for Data Analysis},\n+ publisher = {Springer-Verlag New York},\n+ year = {2009},\n+ isbn = {978-0-387-98140-6},\n+ url = {http://ggplot2.org}\n+ }\n+ </citation>\n+ </citations>\n+ </xml>\n+\n+ <xml name="axis_customization" token_label="Advanced - axis title options">\n+ <param name="axis_customization" type="select" label="@LABEL@">\n+ <option value'..b'\n+ <option value="magenta">Magenta</option>\n+ <option value="cyan">Cyan</option>\n+ <option value="grey">Grey</option>\n+ <option value="gold">Gold</option> \n+ </param>\n+ <param name="face" type="select" label="Font effect of axis label">\n+ <option value="plain">Normal (default)</option>\n+ <option value="bold">Bold</option>\n+ <option value="italic">Italic</option>\n+ </param>\n+ </when>\n+ </xml>\n+\n+ <xml name="colors">\n+ <param name="colors" type="select" label="Color schemes to differentiate your groups" >\n+ <option value="Default">Default color scheme</option>\n+ <option value="YlOrRd">Yellow to orange to red (discrete, max=9 colors)</option>\n+ <option value="YlOrBr">Yellow to orange to brown (discrete, max=9 colors)</option>\n+ <option value="YlGnBu">Yellow to green to blue (discrete, max=9 colors)</option>\n+ <option value="YlGn">Yellow to green (discrete, max=9 colors)</option>\n+ <option value="Reds">Shades of red from light to dark (discrete, max=9 colors)</option>\n+ <option value="RdPu">Red to purple (discrete, max=9 colors)</option>\n+ <option value="Purples">Shades of purple from light to dark (discrete, max=9 colors)</option>\n+ <option value="PuRd">Purple to red (discrete, max=9 colors)</option>\n+ <option value="PuBuGn">Purple to blue to green (discrete, max=9 colors)</option>\n+ <option value="PuBu">Purple to blue(discrete, max=9 colors)</option>\n+ <option value="OrRd">Orange to red (discrete, max=9 colors)</option>\n+ <option value="Oranges">Shades of orange from light to dark (discrete, max=9 colors)</option>\n+ <option value="Greys">Shades of grey from light to dark (discrete, max=9 colors)</option>\n+ <option value="Greens">Shades of greens from light to dark (discrete, max=9 colors)</option>\n+ <option value="GnBu">Green to blue (discrete, max=9 colors)</option>\n+ <option value="BuPu">Blue to purple (discrete, max=9 colors)</option>\n+ <option value="BuGn">Blue to green (discrete, max=9 colors)</option>\n+ <option value="Blues">Shades of blue from light to dark (discrete, max=9 colors)</option>\n+ <option value="Set1">Set 1 - predefined color pallete (discrete, max=9 colors)</option>\n+ <option value="Set2">Set 2 - predefined color pallete (discrete, max=8 colors)</option>\n+ <option value="Set3">Set 3 - predefined color pallete (discrete, max=12 colors)</option>\n+ <option value="Pastel1">Pastel 1 - predefined pastel color pallete (discrete, max=9 colors)</option>\n+ <option value="Pastel2">Pastel 2 - predefined pastel color pallete (discrete, max=8 colors)</option>\n+ <option value="Paired">Paired - predefined color pallete (discrete, max=12 colors)</option>\n+ <option value="Dark2">Dark 2 - predefined color pallete (discrete, max=12 colors)</option>\n+ <option value="Accent">Accent - predefined color pallete (discrete, max=12 colors)</option>\n+ <option value="Spectral">Spectral - Red to yellow to purple (discrete, max=11 colors)</option>\n+ <option value="RdYlGn">Red to yellow to green (discrete, max=11 colors)</option>\n+ <option value="RdYlBu">Red to yellow to blue (discrete, max=11 colors)</option>\n+ <option value="RdGy">Red to grey (discrete, max=11 colors)</option>\n+ <option value="RdBu">Red to blue (discrete, max=11 colors)</option>\n+ <option value="PuOr">Purple to orange (discrete, max=11 colors)</option>\n+ <option value="PRGn">Purple to green (discrete, max=11 colors)</option>\n+ <option value="BrBG">Brown to teal (discrete, max=11 colors)</option> \n+ </param>\n+ </xml>\n+\n+</macros>\n' |
| b |
| diff -r 000000000000 -r 1bff6682e780 test-data/ggplot_heatmap2_result1.pdf |
| b |
| Binary file test-data/ggplot_heatmap2_result1.pdf has changed |
| b |
| diff -r 000000000000 -r 1bff6682e780 test-data/ggplot_histogram_result1.pdf |
| b |
| Binary file test-data/ggplot_histogram_result1.pdf has changed |
| b |
| diff -r 000000000000 -r 1bff6682e780 test-data/ggplot_point_result1.pdf |
| b |
| Binary file test-data/ggplot_point_result1.pdf has changed |
| b |
| diff -r 000000000000 -r 1bff6682e780 test-data/ggplot_violin_result1.pdf |
| b |
| Binary file test-data/ggplot_violin_result1.pdf has changed |
| b |
| diff -r 000000000000 -r 1bff6682e780 test-data/mtcars.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test-data/mtcars.txt Tue Aug 22 06:42:21 2017 -0400 |
| b |
| @@ -0,0 +1,33 @@ +brand mpg cyl disp hp drat wt qsec vs am gear carb +Mazda RX4 21 6 160 110 3.9 2.62 16.46 0 1 4 4 +Mazda RX4 Wag 21 6 160 110 3.9 2.875 17.02 0 1 4 4 +Datsun 710 22.8 4 108 93 3.85 2.32 18.61 1 1 4 1 +Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1 +Hornet Sportabout 18.7 8 360 175 3.15 3.44 17.02 0 0 3 2 +Valiant 18.1 6 225 105 2.76 3.46 20.22 1 0 3 1 +Duster 360 14.3 8 360 245 3.21 3.57 15.84 0 0 3 4 +Merc 240D 24.4 4 146.7 62 3.69 3.19 20 1 0 4 2 +Merc 230 22.8 4 140.8 95 3.92 3.15 22.9 1 0 4 2 +Merc 280 19.2 6 167.6 123 3.92 3.44 18.3 1 0 4 4 +Merc 280C 17.8 6 167.6 123 3.92 3.44 18.9 1 0 4 4 +Merc 450SE 16.4 8 275.8 180 3.07 4.07 17.4 0 0 3 3 +Merc 450SL 17.3 8 275.8 180 3.07 3.73 17.6 0 0 3 3 +Merc 450SLC 15.2 8 275.8 180 3.07 3.78 18 0 0 3 3 +Cadillac Fleetwood 10.4 8 472 205 2.93 5.25 17.98 0 0 3 4 +Lincoln Continental 10.4 8 460 215 3 5.424 17.82 0 0 3 4 +Chrysler Imperial 14.7 8 440 230 3.23 5.345 17.42 0 0 3 4 +Fiat 128 32.4 4 78.7 66 4.08 2.2 19.47 1 1 4 1 +Honda Civic 30.4 4 75.7 52 4.93 1.615 18.52 1 1 4 2 +Toyota Corolla 33.9 4 71.1 65 4.22 1.835 19.9 1 1 4 1 +Toyota Corona 21.5 4 120.1 97 3.7 2.465 20.01 1 0 3 1 +Dodge Challenger 15.5 8 318 150 2.76 3.52 16.87 0 0 3 2 +AMC Javelin 15.2 8 304 150 3.15 3.435 17.3 0 0 3 2 +Camaro Z28 13.3 8 350 245 3.73 3.84 15.41 0 0 3 4 +Pontiac Firebird 19.2 8 400 175 3.08 3.845 17.05 0 0 3 2 +Fiat X1-9 27.3 4 79 66 4.08 1.935 18.9 1 1 4 1 +Porsche 914-2 26 4 120.3 91 4.43 2.14 16.7 0 1 5 2 +Lotus Europa 30.4 4 95.1 113 3.77 1.513 16.9 1 1 5 2 +Ford Pantera L 15.8 8 351 264 4.22 3.17 14.5 0 1 5 4 +Ferrari Dino 19.7 6 145 175 3.62 2.77 15.5 0 1 5 6 +Maserati Bora 15 8 301 335 3.54 3.57 14.6 0 1 5 8 +Volvo 142E 21.4 4 121 109 4.11 2.78 18.6 1 1 4 2 |