Multi-Bar Chart

This example demonstrates a multi-bar chart, in which bars are clustered. It also demonstrates using alternative plot area background colors, and putting legends internal to the plot area.

A multi-bar chart is a bar chart in which multiple data sets are represented by drawing the bars side by side in a cluster. The multi-bar layer is created by using XYChart.addBarLayer2 with the Side predefined constant.

In this example, the two alternative background colors in the plot area is achieved by specifying two background colors in PlotArea.setBackground. ChartDirector also supports another method PlotArea.setAltBgColor that can be used for both horizontal and vertical alternative background colors.

Note that in this example, a margin is configured at the top of the plot area for the legend keys. This is achieved by using Axis.setMargin.

[Standalone Version] perldemo\multibar.pl

#!/usr/bin/perl

# In the sample code, the ChartDirector for Perl module is assumed to be in "../lib"
use File::Basename;
use lib (dirname($0)."/../lib") =~ /(.*)/;

use perlchartdir;

# The data for the bar chart
my $data0 = [100, 125, 245, 147, 67];
my $data1 = [85, 156, 179, 211, 123];
my $data2 = [97, 87, 56, 267, 157];
my $labels = ["Mon", "Tue", "Wed", "Thu", "Fri"];

# Create a XYChart object of size 400 x 240 pixels
my $c = new XYChart(400, 240);

# Add a title to the chart using 10 pt Arial font
$c->addTitle("         Average Weekday Network Load", "", 10);

# Set the plot area at (50, 25) and of size 320 x 180. Use two alternative background colors
# (0xffffc0 and 0xffffe0)
$c->setPlotArea(50, 25, 320, 180, 0xffffc0, 0xffffe0);

# Add a legend box at (55, 18) using horizontal layout. Use 8 pt Arial font, with transparent
# background
$c->addLegend(55, 18, 0, "", 8)->setBackground($perlchartdir::Transparent);

# Add a title to the y-axis
$c->yAxis()->setTitle("Throughput (MBytes Per Hour)");

# Reserve 20 pixels at the top of the y-axis for the legend box
$c->yAxis()->setTopMargin(20);

# Set the x axis labels
$c->xAxis()->setLabels($labels);

# Add a multi-bar layer with 3 data sets and 3 pixels 3D depth
my $layer = $c->addBarLayer2($perlchartdir::Side, 3);
$layer->addDataSet($data0, 0xff8080, "Server #1");
$layer->addDataSet($data1, 0x80ff80, "Server #2");
$layer->addDataSet($data2, 0x8080ff, "Server #3");

# Output the chart
$c->makeChart("multibar.png")

[CGI Version] perldemo_cgi\multibar.pl

#!/usr/bin/perl

# In the sample code, the ChartDirector for Perl module is assumed to be in "../lib"
use File::Basename;
use lib (dirname($0)."/../lib") =~ /(.*)/;

use perlchartdir;

# The data for the bar chart
my $data0 = [100, 125, 245, 147, 67];
my $data1 = [85, 156, 179, 211, 123];
my $data2 = [97, 87, 56, 267, 157];
my $labels = ["Mon", "Tue", "Wed", "Thu", "Fri"];

# Create a XYChart object of size 400 x 240 pixels
my $c = new XYChart(400, 240);

# Add a title to the chart using 10 pt Arial font
$c->addTitle("         Average Weekday Network Load", "", 10);

# Set the plot area at (50, 25) and of size 320 x 180. Use two alternative background colors
# (0xffffc0 and 0xffffe0)
$c->setPlotArea(50, 25, 320, 180, 0xffffc0, 0xffffe0);

# Add a legend box at (55, 18) using horizontal layout. Use 8 pt Arial font, with transparent
# background
$c->addLegend(55, 18, 0, "", 8)->setBackground($perlchartdir::Transparent);

# Add a title to the y-axis
$c->yAxis()->setTitle("Throughput (MBytes Per Hour)");

# Reserve 20 pixels at the top of the y-axis for the legend box
$c->yAxis()->setTopMargin(20);

# Set the x axis labels
$c->xAxis()->setLabels($labels);

# Add a multi-bar layer with 3 data sets and 3 pixels 3D depth
my $layer = $c->addBarLayer2($perlchartdir::Side, 3);
$layer->addDataSet($data0, 0xff8080, "Server #1");
$layer->addDataSet($data1, 0x80ff80, "Server #2");
$layer->addDataSet($data2, 0x8080ff, "Server #3");

# Output the chart
binmode(STDOUT);
print "Content-type: image/png\n\n";
print $c->makeChart2($perlchartdir::PNG);