LoginSignup
0

More than 5 years have passed since last update.

Perl6 の SVG::Plot でグラフを描こう

Posted at

こんにちは:whale2:
Perl 6 Advent Calendar 2016の8日目です。
今日はPerl6でグラフを描いてみようと思います。

Perl6 でグラフを描くのに用いるモジュール

Perl6 でグラフを描画するときは SVG::Plot を使います。

ドキュメントの参照
$ p6doc SVG::Plot

p6doc や、あとexamplesディレクトリ以下のファイルを見ればなんとなく使い方がわかります(ざっくり)

sin 関数のグラフ

draw_sin.pl6
use v6;
use SVG;
use SVG::Plot;

# 0 から 6 まで 0.1 刻みで生成
my @x = 0.0, 0.1 ... 6.0 ;

# それぞれ sin(x) を計算
my @y = @x».sin ;

# グラフの描画
my $fh = open 'sin.svg', :w ;
$fh.say(
  SVG.serialize: SVG::Plot.new(
      :title( 'sin 関数のグラフ' ),
      :width( 400 ),
      :height( 300 ),
      :background( '#fffff0' ),
      :colors( '#4169e1' ),
      :label-font-size(10),
      :labels( @x ),
      :values( $@y ),
  ).plot(:lines)
) ;
$fh.close ;

このスクリプトを実行すると、以下のようなファイルが出力されます。

sin.svg.png

余談ですが、Python で numpy.arange(0, 6, 0.1) と書くと、生成されるのは [0.0, 0.1, ..., 5.9] であり、 6.0 は含まれません。
Perl6 で同じような値を得るためには 0.0, 0.1 ...^ 6.0 と書きます。

cos 関数のグラフも追加

draw_sin_cos.pl6
use v6;
use SVG;
use SVG::Plot;

# 0 から 6 まで 0.1 刻みで生成
my @x = 0.0, 0.1 ... 6.0 ;

# それぞれ sin(x) を計算
my @y1 = @x.map:{ .sin } ;

# それぞれ cos(x) を計算
my @y2 = map *.cos, @x ;

# グラフの描画
my $fh = open 'sin_cos.svg', :w ;
$fh.say(
  SVG.serialize: SVG::Plot.new(
      title => 'sin 関数と cos 関数のグラフ' ,
      width => 400 ,
      height => 300 ,
      background => 'rgba(0,255,0,0.1)' ,
      colors => ( 'rgba(0,0,255,0.5)', 'rgba(255,0,0,0.5)' ) ,
      label-font-size => 10 ,
      labels => ( @x ) ,
      values => ( [@y1], [@y2] ) ,
      legend-font-size => 10 ,
      legends => ( 'sin', 'cos' ) ,
  ).plot(:lines)
) ;
$fh.close ;

ところどころ書き方を変えてみてます。

sin_cos.svg.png

ステップ関数とシグモイド関数

draw_transfer.pl6
use v6;
use SVG;
use SVG::Plot;

sub step_function(Rat $i){
  return ($i > 0).Int ;
}

sub sigmoid(Rat $i){
  return 1 / ( 1 + exp(-$i) ) ;
}

my @x = -5.0, -4.9 ... 5.0 ;
my @y1 = @x».&step_function ;
my @y2 = @x».&sigmoid ;

# グラフの描画
my $fh = open 'step_sigmoid.svg', :w ;
$fh.say(
   SVG.serialize: SVG::Plot.new(
      title => 'ステップ関数とシグモイド関数' ,
      width => 400 ,
      height => 300 ,
      min-y-axis => -0.1,
      background => 'ghostwhite' ,
      colors => ( 'mediumseagreen', 'orangered' ) ,
      label-font-size => 10 ,
      labels => ( @x ) ,
      values => ( [@y1], [@y2] ) ,
      legend-font-size => 10 ,
      legends => ( 'Step function', 'Sigmoid function' ) ,
  ).plot(:lines)
) ;
$fh.close ;

step_sigmoid.svg.png

得票率円グラフ

英語で言うとパイチャート

draw_sanrio.pl6
use v6;
use SVG;
use SVG::Plot::Pie;

my %counts =
    ポムポムプリン => 807_389,
    シナモロール => 730_207,
    マイメロディ => 632_662,
    ぐでたま => 545_268,
    ハローキティ => 519_113,
    リトルツインスターズ => 377_873,
    YOSHIKITTY => 307_105,
    シンガンクリムゾンズ => 225_169,
    KIRIMIちゃん => 171_846,
    クロミ => 153_806,
    ;

my @colors = (
    '#ff6666',
    '#ff9900',
    '#ffcc00',
    '#99cc00',
    '#66cc66',
    '#00cccc',
    '#3399ff',
    '#9966ff',
    '#cc66cc',
    '#ff6699',
) ;

my @c = %counts.sort: *.value ;
my @values = @c».value ;
my @labels = @c».key ;

my $svg = SVG::Plot::Pie.new(
    width   => 400,
    height  => 300,
    values  => [$(@values)],
    labels  => @labels,
    colors => @colors ,
    title   => 'SANRIOキャラクター大賞2016TOP10',
).plot(:pie) ;

my $fh = open 'sanrio.svg', :w ;
$fh.say( SVG.serialize($svg) ) ;
$fh.close ;

YOSHIKITTY の存在感がヤヴァい。

sanrio.svg.png

おわり

グラフ化されると値がわかりやすくていいですね。1
ここまでおつきあいいただきありがとうございました:whale2:

明日は @titsuki さんです:full_moon_with_face:
よろしくおねがいします:camel:

参考と注釈


  1. 見た目ちょっと無骨ではありますが 

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0