ChartDirector 7.0 (Perl Edition)

Stacked Radar Chart




This example demonstrates a stacked radar chart.

This example is similar to the previous Multi-Radar Chart example, except the data are stacked before passing to ChartDirector.

Source Code Listing

perldemo\stackradar.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 chart my $data0 = [100, 100, 100, 100, 100]; my $data1 = [90, 85, 85, 80, 70]; my $data2 = [80, 65, 65, 75, 45]; # The labels for the chart my $labels = ["Population<*br*><*font=Arial*>6 millions", "GDP<*br*><*font=Arial*>120 billions", "Export<*br*><*font=Arial*>25 billions", "Import<*br*><*font=Arial*>24 billions", "Investments<*br*><*font=Arial*>20 billions"]; # Create a PolarChart object of size 480 x 460 pixels. Set background color to silver, with 1 pixel # 3D border effect my $c = new PolarChart(480, 460, perlchartdir::silverColor(), 0x000000, 1); # Add a title to the chart using 15pt Times Bold Italic font. The title text is white (ffffff) on a # deep green (008000) background $c->addTitle("Economic Growth", "Times New Roman Bold Italic", 15, 0xffffff)->setBackground(0x008000 ); # Set plot area center at (240, 270), with 150 pixels radius $c->setPlotArea(240, 270, 150); # Use 1 pixel width semi-transparent black (c0000000) lines as grid lines $c->setGridColor(0xc0000000, 1, 0xc0000000, 1); # Add a legend box at top-center of plot area (240, 35) using horizontal layout. Use 10pt Arial Bold # font, with silver background and 1 pixel 3D border effect. my $b = $c->addLegend(240, 35, 0, "Arial Bold", 10); $b->setAlignment($perlchartdir::TopCenter); $b->setBackground(perlchartdir::silverColor(), $perlchartdir::Transparent, 1); # Add area layers of different colors to represent the data $c->addAreaLayer($data0, 0xcc8880, "Year 2004"); $c->addAreaLayer($data1, 0xffd080, "Year 1994"); $c->addAreaLayer($data2, 0xa0bce0, "Year 1984"); # Set the labels to the angular axis as spokes. $c->angularAxis()->setLabels($labels); # Set radial axis from 0 - 100 with a tick every 20 units $c->radialAxis()->setLinearScale(0, 100, 20); # Just show the radial axis as a grid line. Hide the axis labels by setting the label color to # Transparent $c->radialAxis()->setColors(0xc0000000, $perlchartdir::Transparent); # Output the chart $c->makeChart("stackradar.png");