#!/usr/bin/perl -w
use strict;
use Chart::Gnuplot;
# Initiate the chart object
my $chart = Chart::Gnuplot->new(
output => 'plotStyle_17.png',
title => "Bubble chart",
);
# The data points
my @points = (
[0.0, 0.0, 0.2],
[0.5, 0.5, 0.4],
[0.5, -0.5, 0.1],
[1.0, -0.5, 0.2],
[1.5, 1.0, 0.1],
[2.0, -1.0, 0.3],
[2.0, 0.0, 0.3],
[2.5, -0.5, 0.5],
);
# Data set object
my $circles = Chart::Gnuplot::DataSet->new(
points => \@points,
style => "circles",
);
# Plot the graph
$chart->plot2d($circles);