Multi-Stacked Bar Chart

This example demonstrates combining multi-bar style with stacked bar style. It also demonstrates drawing horizontal bar charts, using icons in axis labels with CDML, customizing legend and bar labels, controlling bar widths and centering legend box.

A multi-stacked bar chart combines the multi-bar style with the stacked bar style by allowing each bar in a multi-bar chart to be a stacked bar. This provides two levels of data grouping. The data from the data sets are clusters based on their index position. Within each cluster, the data are grouped again to form stack bars.

The standard multi-bar chart provides the first level of grouping. The Layer.addDataGroup method is used to provide the second level of grouping.

The key features demonstrated in this example are:

Use Layer.addDataGroup to start a new data group. All subsequent data sets added to the layer will belong to that group. The group ends when Layer.addDataGroup is called again to start another new group.
Embed icons in axis labels by using CDML to encode the labels.
Set the bar border to Transparent using Layer.setBorderColor.
Set a 20% bar gap between the bar clusters and 0% (no gap) for bars within a bar cluster by using BarLayer.setBarGap.
Swap the x and y axes to create a horizontal bar chart using XYChart.swapXY.
Reserve 20% space at the right side of the plot area for the bar labels by using Axis.setAutoScale.
Customize the aggregate bar labels by using Layer.setAggregateLabelFormat.
Customize the legend entries by using TextBox.setText of the LegendBox object.
Center the legend box under the plot area by using TextBox.setAlignment of the LegendBox object.

[Standalone Version] perldemo\multistackbar.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 = [44, 55, 100];
my $data1 = [97, 87, 167];
my $data2 = [156, 78, 147];
my $data3 = [125, 118, 211];

# The labels for the bar chart. The labels contains embedded images as icons.
my $labels = ["<*img=service.png*><*br*>Service", "<*img=software.png*><*br*>Software",
    "<*img=computer.png*><*br*>Hardware"];

# Create a XYChart object of size 600 x 350 pixels, using 0xe0e0ff as the background color, 0xccccff
# as the border color, with 1 pixel 3D border effect.
my $c = new XYChart(600, 350, 0xe0e0ff, 0xccccff, 1);

# Add a title to the chart using 14 points Times Bold Itatic font and light blue (0x9999ff) as the
# background color
$c->addTitle("Business Results 2001 vs 2002", "timesbi.ttf", 14)->setBackground(0x9999ff);

# Set the plotarea at (60, 45) and of size 500 x 210 pixels, using white (0xffffff) as the
# background
$c->setPlotArea(60, 45, 500, 210, 0xffffff);

# Swap the x and y axes to create a horizontal bar chart
$c->swapXY();

# Add a title to the y axis using 11 pt Times Bold Italic as font
$c->yAxis()->setTitle("Revenue (millions)", "timesbi.ttf", 11);

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

# Disable x-axis ticks by setting the tick length to 0
$c->xAxis()->setTickLength(0);

# Add a stacked bar layer to the chart
my $layer = $c->addBarLayer2($perlchartdir::Stack);

# Add the first two data sets to the chart as a stacked bar group
$layer->addDataGroup("2001");
$layer->addDataSet($data0, 0xaaaaff, "Local");
$layer->addDataSet($data1, 0x6666ff, "International");

# Add the remaining data sets to the chart as another stacked bar group
$layer->addDataGroup("2002");
$layer->addDataSet($data2, 0xffaaaa, "Local");
$layer->addDataSet($data3, 0xff6666, "International");

# Set the sub-bar gap to 0, so there is no gap between stacked bars with a group
$layer->setBarGap(0.2, 0);

# Set the bar border to transparent
$layer->setBorderColor($perlchartdir::Transparent);

# Set the aggregate label format
$layer->setAggregateLabelFormat("Year {dataGroupName}\n{value} millions");

# Set the aggregate label font to 8 point Arial Bold Italic
$layer->setAggregateLabelStyle("arialbi.ttf", 8);

# Reverse 20% space at the right during auto-scaling to allow space for the aggregate bar labels
$c->yAxis()->setAutoScale(0.2);

# Add a legend box at (310, 300) using TopCenter alignment, with 2 column grid layout, and use 8pt
# Arial Bold Italic as font
my $legendBox = $c->addLegend2(310, 300, 2, "arialbi.ttf", 8);
$legendBox->setAlignment($perlchartdir::TopCenter);

# Set the format of the text displayed in the legend box
$legendBox->setText("Year {dataGroupName} {dataSetName} Revenue");

# Set the background and border of the legend box to transparent
$legendBox->setBackground($perlchartdir::Transparent, $perlchartdir::Transparent);

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

[CGI Version] perldemo_cgi\multistackbar.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 = [44, 55, 100];
my $data1 = [97, 87, 167];
my $data2 = [156, 78, 147];
my $data3 = [125, 118, 211];

# The labels for the bar chart. The labels contains embedded images as icons.
my $labels = ["<*img=service.png*><*br*>Service", "<*img=software.png*><*br*>Software",
    "<*img=computer.png*><*br*>Hardware"];

# Create a XYChart object of size 600 x 350 pixels, using 0xe0e0ff as the background color, 0xccccff
# as the border color, with 1 pixel 3D border effect.
my $c = new XYChart(600, 350, 0xe0e0ff, 0xccccff, 1);

#Set directory for loading images to current script directory
#Need when running under Microsoft IIS
$c->setSearchPath(dirname($0));

# Add a title to the chart using 14 points Times Bold Itatic font and light blue (0x9999ff) as the
# background color
$c->addTitle("Business Results 2001 vs 2002", "timesbi.ttf", 14)->setBackground(0x9999ff);

# Set the plotarea at (60, 45) and of size 500 x 210 pixels, using white (0xffffff) as the
# background
$c->setPlotArea(60, 45, 500, 210, 0xffffff);

# Swap the x and y axes to create a horizontal bar chart
$c->swapXY();

# Add a title to the y axis using 11 pt Times Bold Italic as font
$c->yAxis()->setTitle("Revenue (millions)", "timesbi.ttf", 11);

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

# Disable x-axis ticks by setting the tick length to 0
$c->xAxis()->setTickLength(0);

# Add a stacked bar layer to the chart
my $layer = $c->addBarLayer2($perlchartdir::Stack);

# Add the first two data sets to the chart as a stacked bar group
$layer->addDataGroup("2001");
$layer->addDataSet($data0, 0xaaaaff, "Local");
$layer->addDataSet($data1, 0x6666ff, "International");

# Add the remaining data sets to the chart as another stacked bar group
$layer->addDataGroup("2002");
$layer->addDataSet($data2, 0xffaaaa, "Local");
$layer->addDataSet($data3, 0xff6666, "International");

# Set the sub-bar gap to 0, so there is no gap between stacked bars with a group
$layer->setBarGap(0.2, 0);

# Set the bar border to transparent
$layer->setBorderColor($perlchartdir::Transparent);

# Set the aggregate label format
$layer->setAggregateLabelFormat("Year {dataGroupName}\n{value} millions");

# Set the aggregate label font to 8 point Arial Bold Italic
$layer->setAggregateLabelStyle("arialbi.ttf", 8);

# Reverse 20% space at the right during auto-scaling to allow space for the aggregate bar labels
$c->yAxis()->setAutoScale(0.2);

# Add a legend box at (310, 300) using TopCenter alignment, with 2 column grid layout, and use 8pt
# Arial Bold Italic as font
my $legendBox = $c->addLegend2(310, 300, 2, "arialbi.ttf", 8);
$legendBox->setAlignment($perlchartdir::TopCenter);

# Set the format of the text displayed in the legend box
$legendBox->setText("Year {dataGroupName} {dataSetName} Revenue");

# Set the background and border of the legend box to transparent
$legendBox->setBackground($perlchartdir::Transparent, $perlchartdir::Transparent);

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