The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SLOYD / Chart-GGPlot-0.0002_01 / lib / Chart / GGPlot / Backend / Plotly / Geom / Path.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
—
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

              
package Chart::GGPlot::Backend::Plotly::Geom::Path;
# ABSTRACT: Chart::GGPlot's Plotly support for Geom::Path
use Chart::GGPlot::Class qw(:pdl);
our $VERSION = '0.0002_01'; # TRIAL VERSION
with qw(Chart::GGPlot::Backend::Plotly::Geom);
use Module::Load;
use Chart::GGPlot::Backend::Plotly::Util qw(
  cex_to_px to_rgb group_to_NA pdl_to_plotly
);
use Chart::GGPlot::Util qw(ifelse);
sub mode {
    return 'lines';
}
classmethod marker ($df, @rest) {
    return;
}
classmethod to_trace ($df, $params, @rest) {
    $df = group_to_NA($df);
    my $use_webgl = $class->use_webgl($df);
    my $plotly_trace_class =
      $use_webgl
      ? 'Chart::Plotly::Trace::Scattergl'
      : 'Chart::Plotly::Trace::Scatter';
    load $plotly_trace_class;
    if ( $log->is_debug ) {
        $log->debug( $use_webgl ? "to use webgl" : "not to use webgl" );
    }
    my ( $x, $y ) = map { $df->at($_) } qw(x y);
    my $marker = $class->marker( $df, $params, @rest );
    my $mode = $class->mode;
    my $line;
    if ( $mode eq 'lines' ) {
        # TODO: plotly does not yet support gradient line color and width
        #  See https://github.com/plotly/plotly.js/issues/581
        my $color = to_rgb( $df->at('color')->slice( pdl(0) ) );
        my $size  = cex_to_px( $df->at('size')->slice( pdl(0) ) );
        $size = ifelse( $size < 2, 2, $size );
        # plotly supports solid, dashdot, dash, dot
        my $linetype = $df->at('linetype')->at(0);
        $line = {
            color => $color->at(0),
            width => $size->at(0),
            ( $linetype ne 'solid' ? ( dash => $linetype ) : () ),
        };
    }
    return $plotly_trace_class->new(
        x    => $x,
        y    => $y,
        mode => $mode,
        maybe
          line => $line,
        maybe
          marker => $marker,
        # TODO: hovertext for webgl does not seem to work. Maybe it's
        #  because of large data count. To revisit this in future.
        (
            $use_webgl
            ? ()
            : (
                hovertext => pdl_to_plotly( $df->at('hovertext') ),
                hoverinfo => 'text',
            )
        ),
    );
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Chart::GGPlot::Backend::Plotly::Geom::Path - Chart::GGPlot's Plotly support for Geom::Path
=head1 VERSION
version 0.0002_01
=head1 SEE ALSO
L<Chart::GGPlot::Backend::Plotly::Geom>,
L<Chart::GGPlot::Geom::Path>
=head1 AUTHOR
Stephan Loyd <sloyd@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2019 by Stephan Loyd.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut