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()