use Chart::GGPlot qw(:all);
use PDL;
my $df = Data::Frame->new(
            columns => [
                x => pdl(1,2,3,8,7),
                y => pdl(260,34,64,23,6)
            ]
);

my $p = ggplot(
    data    => $df,
    mapping => aes(x => 'ws', y => 'wd')
)->geom_point( alpha => 0.05 );

$p->show()


##</code><code>##

Error in eval_tidy('ws', ...) : Bareword "ws" not allowed while "strict subs" in use at make_plot_test.pl line 10.
 at /usr/local/share/perl/5.26.1/Eval/Quosure.pm line 76.
  at /usr/local/share/perl/5.26.1/Data/Frame/Partial/Eval.pm line 41.