我有一些来自数据库 (SQLite) 的数据，将一个值（一个整数）映射到一个日期。日期是具有以下格式的字符串：YYYY-MM-DD hh:mm。日期分布不均匀。我想用X 上的日期和Y 上的值绘制一个折线图。使用 Perl 最简单的方法是什么？
我尝试了DBIx::Chart，但无法让它识别我的日期。我也试过GD::Graph，但正如文档所说：
GD::Graph 不支持数字 x 轴应有的方式。 X 的数据 轴应等距
【问题讨论】：
您可以使用 Chart::Clicker 的 Axis::DateTime:
#!/usr/local/bin/perl -w
use strict;
use Chart::Clicker;
use Chart::Clicker::Axis::DateTime;
use Chart::Clicker::Data::Series;
use Chart::Clicker::Data::DataSet;
use Chart::Clicker::Renderer::Point;
my $cc = Chart::Clicker->new;
my $series = Chart::Clicker::Data::Series->new(
values => [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ],
keys => [
1256147117, 1256148117, 1256149117, 1256150117, 1256151117, 1256152117,
1256153117, 1256154117, 1256155117, 1256156117
],
);
my $ctx = $cc->get_context('default');
$ctx->domain_axis(Chart::Clicker::Axis::DateTime->new(position => 'bottom', orientation => 'horizontal'));
my $ds = Chart::Clicker::Data::DataSet->new(series => [ $series ]);
$cc->add_to_datasets($ds);
$cc->write_output('foo.png');
您必须将时间转换为 Unix 时间戳，但它是 DWIM。
【讨论】：
strftime 可接受的任何格式字符串调用它的 format 方法，它会使用它。您可以使用 Chart::Clicker::Axis 中的 ticks 或 tick_values 方法控制要显示的刻度线的数量和/或位置。
您可以使用Chart::Gnuplot 驱动gnuplot。
或者，如果 SVG 是可接受的输出格式，则有 SVG::TT::Graph。
【讨论】：
我尝试了 DBIx::Chart，但无法让它识别我的日期。
您是否尝试将日期转换为 Unix 时间戳并将其用作 X 日期？
【讨论】：
这对我有用：
my $ctx = $chart->get_context('default');
$ctx->domain_axis(
Chart::Clicker::Axis::DateTime->new(
position => 'bottom',
orientation => 'horizontal',
ticks => 5 ,
format => "%Y-%m-%d"
)
);
【讨论】：
我发现使用 Perl 执行此操作的最简单方法是使用 Perl 运行 gnuplot 进程。您可以使用set timefmt x "%Y-%m-%d"，它会自动以您拥有的格式解析数据。 Gnuplot 还支持多种输出格式。
【讨论】：
我建议将日期标准化为整数。蛮力方式当然是使用纪元秒，但这在图表上可能看起来不太好，所以通过线性变换归一化到一些合适的范围（如果你愿意，我可以提供详细信息）。
【讨论】：
您是否需要实时生成图表，还是用于一次性报告？如果是后者，那么您可以使用 DateTime 模块生成 Excel 值并在 Excel（或其开源对应物）中绘制它们。
use DateTime::Format::MySQL;
use DateTime::Format::Excel;
my $dt = DateTime::Format::MySQL->parse_datetime( '2003-01-16 23:12:01' );
print $dt, "\n";
my $daynum = DateTime::Format::Excel->format_datetime($dt);
print $daynum, "\n";
前段时间我使用Asymptote 做了类似的事情。这是一个令人难以置信的包，但它并不容易使用。
【讨论】：
以下内容在 SQLLite 中不起作用，因为不支持递归查询，但在 Oracle 中可以使用。
您可以使用如下子查询为 Oracle dB 创建连续时间序列：
(SELECT TRUNC (SYSDATE - x / 1440, 'MI') ts
FROM (SELECT LEVEL x
FROM DUAL
CONNECT BY LEVEL <= 60))
然后使用这样的 LEFT JOIN 将该时间序列链接到您的图表数据：
SELECT TO_CHAR (A.TS, 'DD/MM/YYYY HH24:MI') TS
, b.DATAPOINT1, b.DATAPOINT2
FROM (SELECT TRUNC (SYSDATE - x / 1440, 'MI') ts
FROM (SELECT LEVEL x
FROM DUAL
CONNECT BY LEVEL <= 60)) a
, MY_CHART_DATA b
WHERE a.ts = b.ts(+) ORDER BY a.TS;
上面的示例将绘制最后 60 分钟，并将与 DBIx::Chart 一起使用**。要将分辨率更改为小时，请将“MI”更改为“HH24”，或者每 24 小时一次，您可以一起省略日期格式参数。
要更改范围，只需将 CONNECT BY LEVEL 值设置为您需要以指定分辨率绘制的时间序列点数。
**注意：如果所有数据点值都为零（即未定义），则 DBIx::Chart 将失败。不能帮你，抱歉。
【讨论】：