view release on metacpan or  search on metacpan

examples/scale_continuous_02_01.pl  view on Meta::CPAN

#!/usr/bin/env perl

use 5.016;
use warnings;

use Getopt::Long;
use Chart::GGPlot qw(:all);
use Chart::GGPlot::Util::Scales qw(percent);
use PDL::Core qw(pdl);
use PDL::Primitive qw(random);
use Data::Frame;

srand(0);

my $save_as;
GetOptions( 'o=s' => \$save_as );

my $df = Data::Frame->new(
    columns => [
        x => random(10) * 100000,
        y => pdl( [ 0 .. 9 ] ) / 9
    ]
);

my $p = ggplot(
    data    => $df,
    mapping => aes( x => 'x', y => 'y' )
)->geom_point()
  ->scale_y_continuous( labels => \&percent );

if ( defined $save_as ) {
    $p->save($save_as);
}
else {
    $p->show();
}