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;
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.