This example creating a horizontal box-whisker chart. The box-whisker layer is created using
XYChart.addBoxWhiskerLayer, and the chart is set to horizontal using
XYChart.swapXY.
[File: perldemo/boxwhisker2.pl] (The CGI version is available as "perldemo_cgi/boxwhisker2.pl".)
#!/usr/bin/perl
use perlchartdir;
#Sample data for the Box-Whisker chart. Represents the minimum, 1st quartile,
#medium, 3rd quartile and maximum values of some quantities
my $Q0Data = [40, 45, 35];
my $Q1Data = [55, 60, 50];
my $Q2Data = [62, 70, 60];
my $Q3Data = [70, 80, 65];
my $Q4Data = [80, 90, 75];
#The labels for the chart
my $labels = ["<*img=robot1.png*>\nBipedal Type",
"<*img=robot2.png*>\nWolf Type", "<*img=robot5.png*>\nBird Type"];
#Create a XYChart object of size 540 x 320 pixels
my $c = new XYChart(540, 320);
#swap the x and y axes to create a horizontal box-whisker chart
$c->swapXY();
#Set the plotarea at (75, 25) and of size 440 x 270 pixels. Enable both
#horizontal and vertical grids by setting their colors to grey (0xc0c0c0)
$c->setPlotArea(75, 25, 440, 270)->setGridColor(0xc0c0c0, 0xc0c0c0);
#Add a title to the chart
$c->addTitle(" Robot Shooting Accuracy Scores");
#Set the labels on the x axis and the font to Arial Bold
$c->xAxis()->setLabels($labels)->setFontStyle("arialbd.ttf");
#Disable x axis ticks by setting the length to 0
$c->xAxis()->setTickLength(0);
#Set the font for the y axis labels to Arial Bold
$c->yAxis()->setLabelStyle("arialbd.ttf");
#Add a Box Whisker layer using light blue 0x9999ff as the fill color and blue
#(0xcc) as the line color. Set the line width to 2 pixels
$c->addBoxWhiskerLayer($Q3Data, $Q1Data, $Q4Data, $Q0Data, $Q2Data, 0x9999ff,
0xcc)->setLineWidth(2);
#output the chart
$c->makeChart("boxwhisker2.png")
|
© 2003 Advanced Software Engineering Limited. All rights reserved.