[Bioperl-l] Biodiversity graphic

[Benoit Ballester]

giovani wrote:
> 
> Hello there. I'm trying to write a programa to set a graphic with two 
> axis and two data sets to each axis. Anyone know some tool similar to 
> the GD module to set this graphic, because with GD I'm having troubles. 
> here is an example of what I want to do: 
> http://libshuff.mib.uga.edu/YvsX.png, and below is the code that I'm 
> using with GD module.


It looks to me that the graph you pointing too has been made by gnuplot.
Why don't you use gnuplot or R instead ?

Ben

> 
> #!/usr/bin/perl -w
> 
> use GD::Graph::mixed;
> @data = (
>    ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
>    [    3,   4,   14,   30,   12,    8,    7,    20,    15],
>    [    2,   8,    2,    5,    3,  1,    3,     4,     1],
>    [    5,   12,   24,   33,   19,    8,    6,    15,    21],
>    [    1,    2,    5,    6,    3,  1.5,    1,     3,     4],
> );
> 
> $my_graph = new GD::Graph::mixed( );
> $my_graph->set(
>        x_label => 'X Label',
>        y1_label => 'Y1 label',
>        y2_label => 'Y2 label',
>        title => 'Using two axes',
>        y1_max_value => 40,
>        y2_max_value => 8,
>        y_tick_number => 8,
>        y_label_skip => 2,
>        long_ticks => 1,
>        two_axes => 1,
>                use_axis => [1,2,1,2],
>        legend_placement => 'BR',
>        x_labels_vertical => 1,
>        x_label_position => 1/2,
> );
> 
> $my_graph->set_legend( 'X', 'XY', 'diff-X/XY', '95%XY');
> my $gd = $my_graph->plot(\@data) or die $my_graph->error;
> open(IMG, '>graphTest.gif') or die "N o posso abrir arquivo$!\n";
> binmode IMG;
> print IMG $gd->gif;
> close IMG;
> 
>  
> 
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Bioperl-l mailing list
> Bioperl-l at lists.open-bio.org
> http://lists.open-bio.org/mailman/listinfo/bioperl-l