ChartDirector 6.0 (Perl Edition)

Arbitrary XY Line Chart



This example demonstrates drawing a line chart with arbitrary x coordinates (not increasing or decreasing in one direction), and adding custom data labels to data points.

The x values of the data points are set into the chart using Layer.setXData. ChartDirector merely joins the points together with lines. It does not require the points to following any particular direction.

Note that this example has special labels for the start and end points of the lines. They are created using Layer.addCustomDataLabel.

Source Code Listing

[Standalone Version] perldemo\xyline.pl 
#!/usr/bin/perl

# In the sample code, the ChartDirector for Perl module is assumed to be in "../lib"
use File::Basename;
use lib (dirname($0)."/../lib") =~ /(.*)/;

use perlchartdir;

# The (x, y) data for the first line
my $dataX0 = [20, 90, 40, 30, 12];
my $dataY0 = [10, 40, 75, 54, 20];

# The (x, y) data for the second line
my $dataX1 = [10, 40, 75, 54, 60];
my $dataY1 = [50, 90, 40, 30, 10];

# Create a XYChart object of size 450 x 450 pixels
my $c = new XYChart(450, 450);

# Set the plotarea at (55, 65) and of size 350 x 300 pixels, with white background and a light grey
# border (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color
# (0xc0c0c0)
$c->setPlotArea(55, 65, 350, 300, 0xffffff, -1, 0xc0c0c0, 0xc0c0c0, -1);

# Add a legend box at (50, 30) (top of the chart) with horizontal layout. Use 12pt Times Bold Italic
# font. Set the background and border color to Transparent.
$c->addLegend(50, 30, 0, "timesbi.ttf", 12)->setBackground($perlchartdir::Transparent);

# Add a title to the chart using 18pt Times Bold Itatic font
$c->addTitle("Reaction Path", "timesbi.ttf", 18);

# Add a title to the y axis using 12pt Arial Bold Italic font
$c->yAxis()->setTitle("Temperature (Celcius)", "arialbi.ttf", 12);

# Set the y axis line width to 3 pixels
$c->yAxis()->setWidth(3);

# Add a title to the x axis using 12pt Arial Bold Italic font
$c->xAxis()->setTitle("Pressure (Pa)", "arialbi.ttf", 12);

# Set the x axis line width to 3 pixels
$c->xAxis()->setWidth(3);

# Add a red (0xff3333) line layer using dataX0 and dataY0
my $layer1 = $c->addLineLayer($dataY0, 0xff3333, "Compound AAA");
$layer1->setXData($dataX0);

# Set the line width to 3 pixels
$layer1->setLineWidth(3);

# Use 9 pixel square symbols for the data points
$layer1->getDataSet(0)->setDataSymbol($perlchartdir::SquareSymbol, 9);

# Add custom text labels to the first and last point on the scatter plot using Arial Bold font
$layer1->addCustomDataLabel(0, 0, "Start", "arialbd.ttf");
$layer1->addCustomDataLabel(0, 4, "End", "arialbd.ttf");

# Add a green (0x33ff33) line layer using dataX1 and dataY1
my $layer2 = $c->addLineLayer($dataY1, 0x33ff33, "Compound BBB");
$layer2->setXData($dataX1);

# Set the line width to 3 pixels
$layer2->setLineWidth(3);

# Use 11 pixel diamond symbols for the data points
$layer2->getDataSet(0)->setDataSymbol($perlchartdir::DiamondSymbol, 11);

# Add custom text labels to the first and last point on the scatter plot using Arial Bold font
$layer2->addCustomDataLabel(0, 0, "Start", "arialbd.ttf");
$layer2->addCustomDataLabel(0, 4, "End", "arialbd.ttf");

# Output the chart
$c->makeChart("xyline.png")

[CGI Version] perldemo_cgi\xyline.pl 
#!/usr/bin/perl

# In the sample code, the ChartDirector for Perl module is assumed to be in "../lib"
use File::Basename;
use lib (dirname($0)."/../lib") =~ /(.*)/;

use perlchartdir;

# The (x, y) data for the first line
my $dataX0 = [20, 90, 40, 30, 12];
my $dataY0 = [10, 40, 75, 54, 20];

# The (x, y) data for the second line
my $dataX1 = [10, 40, 75, 54, 60];
my $dataY1 = [50, 90, 40, 30, 10];

# Create a XYChart object of size 450 x 450 pixels
my $c = new XYChart(450, 450);

# Set the plotarea at (55, 65) and of size 350 x 300 pixels, with white background and a light grey
# border (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color
# (0xc0c0c0)
$c->setPlotArea(55, 65, 350, 300, 0xffffff, -1, 0xc0c0c0, 0xc0c0c0, -1);

# Add a legend box at (50, 30) (top of the chart) with horizontal layout. Use 12pt Times Bold Italic
# font. Set the background and border color to Transparent.
$c->addLegend(50, 30, 0, "timesbi.ttf", 12)->setBackground($perlchartdir::Transparent);

# Add a title to the chart using 18pt Times Bold Itatic font
$c->addTitle("Reaction Path", "timesbi.ttf", 18);

# Add a title to the y axis using 12pt Arial Bold Italic font
$c->yAxis()->setTitle("Temperature (Celcius)", "arialbi.ttf", 12);

# Set the y axis line width to 3 pixels
$c->yAxis()->setWidth(3);

# Add a title to the x axis using 12pt Arial Bold Italic font
$c->xAxis()->setTitle("Pressure (Pa)", "arialbi.ttf", 12);

# Set the x axis line width to 3 pixels
$c->xAxis()->setWidth(3);

# Add a red (0xff3333) line layer using dataX0 and dataY0
my $layer1 = $c->addLineLayer($dataY0, 0xff3333, "Compound AAA");
$layer1->setXData($dataX0);

# Set the line width to 3 pixels
$layer1->setLineWidth(3);

# Use 9 pixel square symbols for the data points
$layer1->getDataSet(0)->setDataSymbol($perlchartdir::SquareSymbol, 9);

# Add custom text labels to the first and last point on the scatter plot using Arial Bold font
$layer1->addCustomDataLabel(0, 0, "Start", "arialbd.ttf");
$layer1->addCustomDataLabel(0, 4, "End", "arialbd.ttf");

# Add a green (0x33ff33) line layer using dataX1 and dataY1
my $layer2 = $c->addLineLayer($dataY1, 0x33ff33, "Compound BBB");
$layer2->setXData($dataX1);

# Set the line width to 3 pixels
$layer2->setLineWidth(3);

# Use 11 pixel diamond symbols for the data points
$layer2->getDataSet(0)->setDataSymbol($perlchartdir::DiamondSymbol, 11);

# Add custom text labels to the first and last point on the scatter plot using Arial Bold font
$layer2->addCustomDataLabel(0, 0, "Start", "arialbd.ttf");
$layer2->addCustomDataLabel(0, 4, "End", "arialbd.ttf");

# Output the chart
binmode(STDOUT);
print "Content-type: image/png\n\n";
print $c->makeChart2($perlchartdir::PNG);

© 2017 Advanced Software Engineering Limited. All rights reserved.