IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Modules Perl Discussion :

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


Sujet :

Modules Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut [GD::Graph::lines] création de 2 lignes sur un même graphique
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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,

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Exemple avec mixed :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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;

  3. #3
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut
    Merci, cela fonctionne et j'obtiens bien 2 tracés.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 5
    Dernier message: 29/03/2020, 14h35
  2. lecture de lignes sur une même position
    Par jobar38 dans le forum VBScript
    Réponses: 4
    Dernier message: 21/10/2009, 15h21
  3. [line/surface] Tracer des lignes sur une image
    Par fanche64 dans le forum MATLAB
    Réponses: 9
    Dernier message: 29/09/2008, 16h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo