ChartDirector 7.0 (Perl Edition)

3D Scatter Chart (2)




This example extends the 3D Scatter Chart (1) example by including drop lines, using alternative view angles and continuous coloring.

Drop lines are lines that drop from the data points to the XY plane. They help to visualize the "height" (the z-coordinate) of the points and can be useful if there are not too many data points.

Source Code Listing

perldemo\threedscatter2.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 XYZ data for the 3D scatter chart as 3 random data series my $r = new RanSeries(3); my $xData = $r->getSeries2(20, 100, -10, 10); my $yData = $r->getSeries2(20, 100, -10, 10); my $zData = $r->getSeries2(20, 100, -10, 10); # Create a ThreeDScatterChart object of size 720 x 520 pixels my $c = new ThreeDScatterChart(720, 520); # Add a title to the chart using 20 points Times New Roman Italic font $c->addTitle("3D Scatter Chart (2) ", "Times New Roman Italic", 20); # Set the center of the plot region at (350, 240), and set width x depth x height to 360 x 360 x 270 # pixels $c->setPlotRegion(350, 240, 360, 360, 270); # Set the elevation and rotation angles to 15 and 30 degrees $c->setViewAngle(15, 30); # Add a scatter group to the chart using 13 pixels glass sphere symbols, in which the color depends # on the z value of the symbol my $g = $c->addScatterGroup($xData, $yData, $zData, "", $perlchartdir::GlassSphere2Shape, 13, $perlchartdir::SameAsMainColor); # Add grey (888888) drop lines to the symbols $g->setDropLine(0x888888); # Add a color axis (the legend) in which the left center is anchored at (645, 220). Set the length # to 200 pixels and the labels on the right side. Use smooth gradient coloring. $c->setColorAxis(645, 220, $perlchartdir::Left, 200, $perlchartdir::Right)->setColorGradient(); # Set the x, y and z axis titles using 10 points Arial Bold font $c->xAxis()->setTitle("X-Axis Place Holder", "Arial Bold", 10); $c->yAxis()->setTitle("Y-Axis Place Holder", "Arial Bold", 10); $c->zAxis()->setTitle("Z-Axis Place Holder", "Arial Bold", 10); # Output the chart $c->makeChart("threedscatter2.png");