Viewing file:  sample64.pl (1.42 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#adapted from the bug report submission (RT Bug 1363) by Paul Russell
use strict;
use GD::Graph::mixed;
require "save.pl";
## define your data set
my @data = (
["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
[ 1, 2, 5, 6, 7, 8, 9, 10, 11],
[ 2, 2, 1, 1, 3, 2, 2, 4, 0],
[ 9, 8, 9, 5, 7, 7, 8, 3, 3],
);
print STDERR "Processing sample64\n";
my $my_graph = new GD::Graph::mixed();
$my_graph->set(
types => [ qw( lines) ],
default_type => 'bars',
);
$my_graph->set(
x_label => 'X Label',
y_label => 'Y label',
title => 'A Mixed Type Graph',
y1_max_value => 40,
y2_max_value => 8,
y_min_value => 0,
y_tick_number => 8,
y_label_skip => 1,
x_plot_values => 0,
y_plot_values => 0,
long_ticks => 1,
x_ticks => 0,
legend_marker_width => 24,
line_width => 3,
marker_size => 5,
# bar_width => 4, # this appears to be an interesting test case--skipping for now.
#bar_spacing => 1,
transparent => 0,
values_vertical => 1,
values_format => "%4.1f",
x_label_position => 1/2,
cumulate => 0,
overwrite => 0,
);
$my_graph->set_legend( qw( incomming outgoing total ) );
$my_graph->plot(\@data) or die $my_graph->error;
save_chart($my_graph, 'sample64');
1;
|