ChartDirector Ver 3.0 (Perl Edition)

Box-Whisker Chart (2)




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.

Source Code Listing

[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")