#!/usr/bin/env perl
use 5.016;
use warnings;
use Getopt::Long;
use Chart::GGPlot qw(:all);
use Data::Frame::Examples qw(mpg);
use boolean;
my $save_as;
GetOptions( 'o=s' => \$save_as );
my $mpg = mpg();
my $p = ggplot(
    data    => $mpg,
    mapping => aes( x => 'class', y => 'hwy' )
)->geom_boxplot(fill => 'white', color => '#3366FF');
if (defined $save_as) {
    $p->save($save_as);
} else {
    $p->show();
}