bageler has asked for the wisdom of the Perl Monks concerning the following question:
I have a GD::Graph::hbars with X data points. The graph is generated properly, however I cannot get the legend to display more than one entry. Any ideas? Here's all the relevant code.
my (@data,$totalvotes,@legend,$i); while (my @r = $sth->fetchrow) { push @{$data[0]}, ++$i; push @legend,"$i: $r[1]"; push @{$data[1]}, $r[2]; $totalvotes += $r[2]; } $sth->finish; if ($totalvotes > 0) { for (@{$data[1]}) { $_ = int(($_ / $totalvotes) * 100).'%'; } }
my $graph = GD::Graph::hbars->new(300,70*$#{$data[0]}); $graph->set ( y_label => 'Vote Percentage', x_label => 'Responses', title => $self->{poll}->{question}, y_max_value => 100, y_tick_number => 10, bar_spacing => 6, show_values => 1, dclrs => [ qw(lgreen orange cyan lred) ], cycle_clrs => 1, legend_placement => 'BL', legend_marker_height => 12, ) or warn $graph->error; $graph->set_legend(@legend); my $gd = $graph->plot(\@data) or warn $graph->error;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: GD::Graph legend only shows 1 entry
by randyk (Parson) on Oct 29, 2005 at 15:06 UTC | |
by bageler (Hermit) on Oct 29, 2005 at 15:44 UTC | |
by randyk (Parson) on Oct 29, 2005 at 15:51 UTC | |
Re: GD::Graph legend only shows 1 entry
by jesuashok (Curate) on Oct 29, 2005 at 10:02 UTC | |
by bageler (Hermit) on Oct 29, 2005 at 15:46 UTC |
Back to
Seekers of Perl Wisdom