ChartDirector Ver 4.1 (Perl Edition)

Percentage Bar Chart




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

A percentage bar chart is like a stacked bar chart, except the bars 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:

Note that by default, the data label format is {percent}% (showing the percentage) for a percentage bar layer, as opposed to {value} (showing the data value) for other types of bar layer. The data label format can be modified using Layer.setDataLabelFormat.

Source Code Listing

[Standalone Version] perldemo\percentbar.pl
#!/usr/bin/perl
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];

# The labels for the bar chart
my $labels = ["Mon", "Tue", "Wed", "Thu", "Fri"];

# 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. Use white (0xffffff)
# color as background.
$c->setPlotArea(50, 45, 320, 200, 0xffffff);

# Add a legend box at (370, 45) using vertical layout and 8 points Arial Bold font.
my $legendBox = $c->addLegend(370, 45, 1, "arialbd.ttf", 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("Weekly Product Sales", "timesbi.ttf", 14, 0xffffff)->setBackground(
    0x804020);

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

# Add a percentage bar layer and set the layer 3D depth to 8 pixels
my $layer = $c->addBarLayer2($perlchartdir::Percentage);

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

# Disable bar borders by setting their colors to transparent
$layer->setBorderColor($perlchartdir::Transparent);

# Enable data label at the middle of the the bar
$layer->setDataLabelStyle()->setAlignment($perlchartdir::Center);

# 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("percentbar.png")

[CGI Version] perldemo_cgi\percentbar.pl
#!/usr/bin/perl

# Include current script directory in the module path (needed on Microsoft IIS).
# This allows this script to work by copying ChartDirector to the same directory
# as the script (as an alternative to installation in Perl module directory)
use File::Basename;
use lib dirname($0);

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];

# The labels for the bar chart
my $labels = ["Mon", "Tue", "Wed", "Thu", "Fri"];

# 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 directory for loading images to current script directory
#Need when running under Microsoft IIS
$c->setSearchPath(dirname($0));

# Set the plotarea at (50, 45) and of size 320 x 200 pixels. Use white (0xffffff)
# color as background.
$c->setPlotArea(50, 45, 320, 200, 0xffffff);

# Add a legend box at (370, 45) using vertical layout and 8 points Arial Bold font.
my $legendBox = $c->addLegend(370, 45, 1, "arialbd.ttf", 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("Weekly Product Sales", "timesbi.ttf", 14, 0xffffff)->setBackground(
    0x804020);

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

# Add a percentage bar layer and set the layer 3D depth to 8 pixels
my $layer = $c->addBarLayer2($perlchartdir::Percentage);

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

# Disable bar borders by setting their colors to transparent
$layer->setBorderColor($perlchartdir::Transparent);

# Enable data label at the middle of the the bar
$layer->setDataLabelStyle()->setAlignment($perlchartdir::Center);

# 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
binmode(STDOUT);
print "Content-type: image/png\n\n";
print $c->makeChart2($perlchartdir::PNG);