寻找一种将文本文件中的数据表示为图形的方法

发布于 2024-10-02 04:59:53 字数 165 浏览 0 评论 0原文

我有一个文本文件，我想将其输出为图表。文本文件看起来像这样 -

Item 1
---
        1234
Item2
---
      5678
Item3
----
      910112

我想将其输出到条形图或饼图。最好的方法是什么？

原文

I have a text file that i would like to output as a graph. The text file looks something like this -

Item 1
---
        1234
Item2
---
      5678
Item3
----
      910112

I would like to output it to a bar graph or a pie chart. What would the best way to do this be?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

ペ泪落弦音 2024-10-09 04:59:53

或者你可以使用 GD::Graph

use strict;
use GD::Graph::bars;
use GD::Graph::hbars;
use GD::Graph::Data;

#For some reason, installing GD::Graph didn't put save.pl in my @INC path
require "/usr/share/doc/libgd-graph-perl/examples/samples/save.pl";

my $data = GD::Graph::Data->new([
    ["Item 1","Item 2","Item 3"],
    [1234, 5678, 910112],
    ]) or die GD::Graph::Data->error;

my @names = qw/GDbars123 GDbars123-h/;

for my $my_graph (GD::Graph::bars->new, GD::Graph::hbars->new)
{
    my $name = shift @names;

    print STDERR "Processing $name\n";

    $my_graph->set( 
    x_label         => 'X Label',
    y_label         => 'Y label',
    title           => 'A Simple Bar Chart',
    #y_max_value     => 8,
    #y_tick_number   => 8,
    #y_label_skip    => 2,

    #x_labels_vertical => 1,

    # shadows
    bar_spacing     => 8,
    shadow_depth    => 4,
    shadowclr       => 'dred',

    transparent     => 0,
    ) 
    or warn $my_graph->error;

    $my_graph->plot($data) or die $my_graph->error;
    save_chart($my_graph, $name);
}

Or you could use GD::Graph

use strict;
use GD::Graph::bars;
use GD::Graph::hbars;
use GD::Graph::Data;

#For some reason, installing GD::Graph didn't put save.pl in my @INC path
require "/usr/share/doc/libgd-graph-perl/examples/samples/save.pl";

my $data = GD::Graph::Data->new([
    ["Item 1","Item 2","Item 3"],
    [1234, 5678, 910112],
    ]) or die GD::Graph::Data->error;

my @names = qw/GDbars123 GDbars123-h/;

for my $my_graph (GD::Graph::bars->new, GD::Graph::hbars->new)
{
    my $name = shift @names;

    print STDERR "Processing $name\n";

    $my_graph->set( 
    x_label         => 'X Label',
    y_label         => 'Y label',
    title           => 'A Simple Bar Chart',
    #y_max_value     => 8,
    #y_tick_number   => 8,
    #y_label_skip    => 2,

    #x_labels_vertical => 1,

    # shadows
    bar_spacing     => 8,
    shadow_depth    => 4,
    shadowclr       => 'dred',

    transparent     => 0,
    ) 
    or warn $my_graph->error;

    $my_graph->plot($data) or die $my_graph->error;
    save_chart($my_graph, $name);
}

回复收藏 0 原文