Percentage Area Chart

This example demonstrates creating a percentage area chart. It also demonstrates how to include icons in the legend box using CDML.

A percentage area chart is like a stacked area chart, except the areas are individually scaled so that they stacked up to 100.

Note that in this example, the legend box contains icons. This is achieved by including the icons in the data set name using CDML.

The key features demonstrated in this example are:

Add a legend to the chart using BaseChart.addLegend, and set the key size (the color box to the right of each legend entry) to 16 x 32 pixels using LegendBox.setKeySize. This is to better match the size of the icons.
Reverse the legend box entries using Layer.setLegend, so that the last data set name is on top in the legend box. This is useful for a vertical legend box in a vertical stacked chart with purely positive data. In such case, the last data set will be stacked to the top. Reversing the legend box will make the legend keys visually consistent with the stacking order of the chart.
Add a percentage area layer using XYChart.addAreaLayer2 with the Percentage predefined constant.
Add multiple data sets to the area layer using Layer.addDataSet, with data set names expressed using CDML to include icons.

perldemo\percentarea.pl

#!/usr/bin/perl

# 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 area chart
my $data0 = [42, 49, 33, 38, 51, 46, 29, 41, 44, 57, 59, 52, 37, 34, 51, 56, 56, 60, 70, 76, 63, 67,
    75, 64, 51];
my $data1 = [50, 55, 47, 34, 42, 49, 63, 62, 73, 59, 56, 50, 64, 60, 67, 67, 58, 59, 73, 77, 84, 82,
    80, 84, 98];
my $data2 = [87, 89, 85, 66, 53, 39, 24, 21, 37, 56, 37, 23, 21, 33, 13, 17, 14, 23, 16, 25, 29, 30,
    45, 47, 46];

# The timestamps on the x-axis
my $labels = [perlchartdir::chartTime(1996, 1, 1), perlchartdir::chartTime(1996, 4, 1),
    perlchartdir::chartTime(1996, 7, 1), perlchartdir::chartTime(1996, 10, 1),
    perlchartdir::chartTime(1997, 1, 1), perlchartdir::chartTime(1997, 4, 1),
    perlchartdir::chartTime(1997, 7, 1), perlchartdir::chartTime(1997, 10, 1),
    perlchartdir::chartTime(1998, 1, 1), perlchartdir::chartTime(1998, 4, 1),
    perlchartdir::chartTime(1998, 7, 1), perlchartdir::chartTime(1998, 10, 1),
    perlchartdir::chartTime(1999, 1, 1), perlchartdir::chartTime(1999, 4, 1),
    perlchartdir::chartTime(1999, 7, 1), perlchartdir::chartTime(1999, 10, 1),
    perlchartdir::chartTime(2000, 1, 1), perlchartdir::chartTime(2000, 4, 1),
    perlchartdir::chartTime(2000, 7, 1), perlchartdir::chartTime(2000, 10, 1),
    perlchartdir::chartTime(2001, 1, 1), perlchartdir::chartTime(2001, 4, 1),
    perlchartdir::chartTime(2001, 7, 1), perlchartdir::chartTime(2001, 10, 1),
    perlchartdir::chartTime(2002, 1, 1)];

# Create a XYChart object of size 500 x 280 pixels, using 0xffffcc as background color, with a black
# border, and 1 pixel 3D border effect
my $c = new XYChart(500, 280, 0xffffcc, 0, 1);

# Set the plotarea at (50, 45) and of size 320 x 200 pixels with white background. Enable horizontal
# and vertical grid lines using the grey (0xc0c0c0) color.
$c->setPlotArea(50, 45, 320, 200, 0xffffff)->setGridColor(0xc0c0c0, 0xc0c0c0);

# Add a legend box at (370, 45) using vertical layout and 8 points Arial Bold font.
my $legendBox = $c->addLegend(370, 45, 1, "Arial Bold", 8);

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

# Set the legend box icon size to 16 x 32 pixels to match with custom icon size
$legendBox->setKeySize(16, 32);

# Add a title to the chart using 14 points Times Bold Itatic font and white font color, and 0x804020
# as the background color
$c->addTitle("Quarterly Product Sales", "Times New Roman Bold Italic", 14, 0xffffff)->setBackground(
    0x804020);

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

# Set multi-style axis label formatting. Start of year labels are displayed as yyyy. For other
# labels, just show minor tick.
$c->xAxis()->setMultiFormat(perlchartdir::StartOfYearFilter(), "{value|yyyy}",
    perlchartdir::AllPassFilter(), "-");

# Add a percentage area layer to the chart
my $layer = $c->addAreaLayer2($perlchartdir::Percentage);

# Add the three data sets to the area layer, using icons images with labels as data set names
$layer->addDataSet($data0, 0x40ddaa77, "<*block,valign=absmiddle*><*img=service.png*> Service<*/*>")
    ;
$layer->addDataSet($data1, 0x40aadd77,
    "<*block,valign=absmiddle*><*img=software.png*> Software<*/*>");
$layer->addDataSet($data2, 0x40aa77dd,
    "<*block,valign=absmiddle*><*img=computer.png*> Hardware<*/*>");

# For a vertical stacked chart with positive data only, the last data set is always on top. However,
# in a vertical legend box, the last data set is at the bottom. This can be reversed by using the
# setLegend method.
$layer->setLegend($perlchartdir::ReverseLegend);

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