[GD::Graph::lines] création de 2 lignes sur un même graphique

Version imprimable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
my $graph = GD::Graph::lines->new(650, 300);
 
 
$graph->set( 
	x_label           => 'positions',
	y_label           => 'valeurs',
	title             => "Rap. $report $run : Evolution du signal des pics uniques au cours du pyroséquençage",
	y_max_value       => 16,
	y_tick_number     => 8,
	y_label_skip      => 2 
) or die $graph->error;
 
$graph -> set(dclrs => ["lred"]);
my $gd = $graph->plot(\@data) or die $graph->error;
 
 
# dessin de la droite de régression sur le graphique
my $x1 = 0;
my $y1 = $intercept;
my $x2 = 25;
my $y2 = $slope * 25 + $intercept;
 
$graph -> set(dclrs => ["blue"]);
$gd = $graph->plot( \([$x1, $x2], [$y1, $y2]) ) or die $graph->error;
 
 
open(IMG, ">P:/Theorie/Cathy/Myco_pyro/graphiques/Rap${report}_$run.jpg") or die $!;
binmode IMG;
print IMG $gd->png;

@data contient les valeurs (x, y) à placer sur le graphique. Cela fonctionne très bien et j'obtiens un tracé rouge.

J'aimerais sur le même graphique ajouter 2 autres points [$x1, $x2], [$y1, $y2] joints par une ligne bleue. Est-ce possible?

Merci pour votre aide,

Exemple avec mixed :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl
use warnings;
use strict;
 
use GD::Graph::mixed;
 
my @data = ( 
    [ qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) ],
    [ qw/ 2 5 2 9/], # ligne 1
    [        (2, 2, 2, 5, 5,  4.5,1.5,  2,  3,  5,  4,  3)],  # ligne 2
);
 
 
my $my_graph = new GD::Graph::mixed( 500, 500 );
 
$my_graph->set( 
	x_label           => 'positions',
	y_label           => 'valeurs',
	title             => "Rap. : Evolution du signal des pics uniques au cours du pyroséquençage",
	y_max_value       => 16,
	y_tick_number     => 8,
	y_label_skip      => 2, 
	types             => [ qw( lines lines ) ],
);
 
$my_graph->set_legend( qw( one two three four ) );
$my_graph->plot(\@data);
 
        open(OUT, ">point.png") or die $!;
        binmode OUT;
        print OUT $my_graph->gd->png;
        close OUT;

07/05/2010, 15h03
Jasmine80

Merci, cela fonctionne et j'obtiens bien 2 tracés.