ChartDirector Ver 3.0 (Perl Edition)

Stacked Bar Chart




This example demonstrates creating a stacked bar chart, completed with bar labels and legend box. The key features in this example are:

For bar labels, Layer.setDataLabelStyle and Layer.setAggregateLabelStyle control the styles (fonts, colors, backgrounds, etc), while Layer.setDataLabelFormat and Layer.setAggregateLabelFormat control the formats (the contents of the label, number of decimal points in numbers, etc). You may also add custom labels to the bars using Layer.addCustomDataLabel and Layer.addCustomAggregateLabel.

Source Code Listing

[File: perldemo/stackedbar.pl] (The CGI version is available as "perldemo_cgi/stackedbar.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 320 pixels my $c = new XYChart(500, 320); #Set the plotarea at (100, 40) and of size 280 x 240 pixels $c->setPlotArea(100, 40, 280, 240); #Add a legend box at (400, 100) $c->addLegend(400, 100); #Add a title to the chart using 14 points Times Bold Itatic font $c->addTitle("Weekday Network Load", "timesbi.ttf", 14); #Add a title to the y axis. Draw the title upright (font angle = 0) $c->yAxis()->setTitle("Average\nWorkload\n(MBytes\nPer Hour)")->setFontAngle(0); #Set the labels on the x axis $c->xAxis()->setLabels($labels); #Add a stacked bar layer and set the layer 3D depth to 8 pixels my $layer = $c->addBarLayer2($perlchartdir::Stack, 8); #Add the three data sets to the bar layer $layer->addDataSet($data0, 0xff8080, "Server # 1"); $layer->addDataSet($data1, 0x80ff80, "Server # 2"); $layer->addDataSet($data2, 0x8080ff, "Server # 3"); #Enable bar label for the whole bar $layer->setAggregateLabelStyle(); #Enable bar label for each segment of the stacked bar $layer->setDataLabelStyle(); #output the chart $c->makeChart("stackedbar.png")