Perl - GD::Graph

GD を使って Perl でグラフを作成するモジュール。色々と遊べる。

インストール

Windowsの場合

Perl が ActivePerl の Perl 5.10 であり、実行ファイルへのパスが環境変数 PATH に含まれていると前提。

ActivePerl 10xx Win32 PPM packages に置かれているパッケージを頂戴して、コマンドプロンプトから ppm を利用してインストールする。

C:\> ppm install http://cpan.uwinnipeg.ca/PPMPackages/10xx/GD.ppd
C:\> ppm install http://cpan.uwinnipeg.ca/PPMPackages/10xx/GDGraph.ppd
C:\> ppm install http://cpan.uwinnipeg.ca/PPMPackages/10xx/GDTextUtil.ppd

あるいは BdP - PPM Repository のパッケージを頂戴してもいい。

Cygwin で GD を利用する場合、以下に準ずる。

その他の場合

GD ライブラリ

まず GD ライブラリがインストールされていない場合、そのインストールが必要。http://www.libgd.org/Downloads からソースをダウンロードする。

./configure を行う際、以下のライブラリがあればそれぞれのライブラリに応じた機能が有効になる。

• zlib - http://www.gzip.org/zlib/
• libpng - http://www.libpng.org/pub/png/
• FreeType 2.x - http://www.freetype.org/
• JPEG library - http://www.ijg.org/
• XPM - http://koala.ilog.fr/lehors/xpm.html

README.TXT によると、「少なくとも zlib と libpng はあった方が良く、また FreeType と Jpeg library があればなお良い」そう。

システムによっては、パッケージ管理システムによって提供されているかも知れない。Mac OS X 10.4 の場合、zlib はインストールされているが、その他は各自でインストールする必要がある。

必要な外部ライブラリをインストール後、GD をコンパイル、インストールする。

Perl モジュール - GD / GD::Graph / GD::TextUtil

cpan からインストール。 $ sudo cpan -i GD::Graphだけで、依存するその他のモジュールも自動的にコンパイル、インストールされる。

使い方

グラフの種類

• GD::Graph::area - 面グラフ
• GD::Graph::bars - 棒グラフ
• GD::Graph::hbars - 横棒グラフ
• GD::Graph::lines - 線グラフ
• GD::Graph::linespoints - 線と点のグラフ
• GD::Graph::mixed - 混合グラフ
• GD::Graph::pie - 円グラフ
• GD::Graph::points - 点グラフ

簡単な例

GD::Graph::lines で折れ線グラフを作る。

use GD::Graph::lines;

my @item = qw( 2005 2006 2007 2008 );
my @data = qw( 100  120  135  125  );

my $graph = GD::Graph::lines->new(500,500);

my $img = $graph->plot([\@item, \@data])->png;

$img が PNG 画像のバイナリデータ。png を jpeg や gif に変えると、それぞれの形式の画像が得られる。

重要なのが plot() に渡す引数で、"引数となる配列リファレンス"の先頭の配列リファレンスが、X 軸の値つまり項目名となり、それ以降の配列リファレンスがデータ値となる。

これだけでもグラフは描けるものの、少し味気ない。グラフの色や形などは、グラフオブジェクトに対して set() することで設定できる。

ちょっとした例

use GD::Graph::linespoints;

my $graph = GD::Graph::linespoints->new(640,480);

my $dat = [
    [qw( 日 月 火 水 木 金 土 )],
    [qw( 78 84 89 91 86 88 95 )],
    [qw( 51 59 63 67 56 43 45 )]
];

$graph->set_legend(qw( Aさん Bさん ));
$graph->set_legend_font("mcp.ttf",10);
$graph->set_x_axis_font("mcp.ttf",10);
$graph->set_y_axis_font("mcp.ttf",10);
$graph->set_title_font("mcp.ttf",14);
$graph->set_x_label_font("mcp.ttf",10);
$graph->set_y_label_font("mcp.ttf",10);
$graph->set_values_font("mcp.ttf",8);

$graph->set(
    title => "体重",
    r_margin => 5,
    t_margin => 5,
    l_margin => 5,
    b_margin => 5,

    bgclr => "#ffffff",
    boxclr => "#f7f7f7",
    labelclr => "#553333",
    valuesclr => "#662222",
    axislabelclr => "#553333",
    fgclr => "#888888",
    textclr => "#ff0000",

    x_label => "曜日",
    y_label => "(kg)",
    x_label_position => 1,
    y_label_position => 1,

    dclrs => [qw(#ee4444 #22bb22)],
    y_long_ticks => 1,
    show_values => 1,

    line_width => 2,
    y_min_value => 0,
    y_max_value => 100,
    y_tick_number => 10,

    transparent => 0,
    legendclr => "#222266",
    legend_placement => "BC",
);

my $data = $graph->plot($dat)->png;
my $size = length($data);

binmode(STDOUT);
print
    "Content-Type: image/png\r\n".
    "Content-Length: ${size}\r\n\r\n".
    $data;

設定値

new() で設定する項目

GD::Graph::*->new(width, height) と、引数に幅と高さを指定する。set() では設定できない。

グラフ形式に依らず共通の設定

色

軸に関する設定

GD::Graph::{bars,lines,points,linespoints,mixed,area} に適用される。

グラフ上に値を表示する為の設定

棒グラフ（bars）の設定

線グラフ（lines）の設定

点グラフ（points）の設定

混合（mixed）グラフの設定

凡例の設定

メソッドで設定されるもの

オプションとして設定されるもの

円グラフ（pie）の設定

フォントの設定

my $graph = GD::Graph::lines->new;
$graph->set_label_font( TTFフォントファイルへのパス , フォントサイズ );

などとしてフォントを設定する。 グラフに日本語文字を表示したい場合、スクリプトを UTF-8 で記述するか、文字列を Jcode などを利用して UTF-8 へ変換する必要がある。 フォントの設定に関するメソッドは以下の通り。

共通

• set_title_font

pie グラフ

• set_label_font
• set_value_font

軸を持つグラフ

• set_x_label_font
• set_y_label_font
• set_x_axis_font
• set_y_axis_font
• set_legend_font
• set_values_font

リンク

• GD::Graph - Graph Plotting Module for Perl 5 - search.cpan.org
• GD::Graph - Perl5のためのグラフ作成モジュール
• GD::Graphモジュール [Perl講座 -Smart]
• Perl でグラフを作ろう (GD::Graph)
• GD::Graphを使ったPerlグラフ生成 - SourceForge.JP Magazine