blocks|key|1093342|text|您可以使用格努图驱动图表：：Gnuplot。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1093343|或者，如果SVG是可接受的输出格式，则存在SVG：：TT：：图。|1093344|entityMap|0|LINK|mutability|MUTABLE|url|http://www.gnuplot.info/|1|http://search.cpan.org/perldoc/Chart::Gnuplot|2|http://search.cpan.org/dist/SVG::TT::Graph^0|5|3|0|A|B|1|0|L|A|2|0^^$0|@$1|2|3|4|5|6|7|R|8|@]|9|@$A|S|B|T|1|U]|$A|V|B|W|1|X]]|C|$]]|$1|D|3|E|5|6|7|Y|8|@]|9|@$A|Z|B|10|1|11]]|C|$]]|$1|F|3|-4|5|6|7|12|8|@]|9|@]|C|$]]]|G|$H|$5|I|J|K|C|$L|M]]|N|$5|I|J|K|C|$L|O]]|P|$5|I|J|K|C|$L|Q]]]]

You can drive <a href="http://www.gnuplot.info/" rel="noreferrer">gnuplot</a> using <a href="http://search.cpan.org/perldoc/Chart::Gnuplot" rel="noreferrer">Chart::Gnuplot</a>.

Alternatively, if SVG is an acceptable output format, there is <a href="http://search.cpan.org/dist/SVG::TT::Graph" rel="noreferrer">SVG::TT::Graph</a>.

blocks|key|2618007|text|您可以使用图表：：Clicker的Axis::DateTime：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2618008|#!/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');|code-block|syntax|javascript|2618009|您必须将您的时间转换为Unix时间戳，但它是DWIM。|2618010|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

You can use Chart::Clicker's Axis::DateTime:

<pre><code>#!/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-&gt;new;
my $series = Chart::Clicker::Data::Series-&gt;new(
 values =&gt; [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ],
 keys =&gt; [
 1256147117, 1256148117, 1256149117, 1256150117, 1256151117, 1256152117,
 1256153117, 1256154117, 1256155117, 1256156117
 ],
);
my $ctx = $cc-&gt;get_context('default');
$ctx-&gt;domain_axis(Chart::Clicker::Axis::DateTime-&gt;new(position =&gt; 'bottom', orientation =&gt; 'horizontal'));
my $ds = Chart::Clicker::Data::DataSet-&gt;new(series =&gt; [ $series ]);
$cc-&gt;add_to_datasets($ds);
$cc-&gt;write_output('foo.png');
</code></pre>

You have to convert your times into Unix timestamps, but it DWIMs.

blocks|key|2617870|text|我尝试了DBIx：：图表，但我无法让它识别我的日期。|type|blockquote|depth|inlineStyleRanges|entityRanges|data|2617871|您是否尝试过将您的日期转换为Unix-时间戳并将它们用作X日期？|unstyled|2617872|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|H|8|@]|9|@]|A|$]]|$1|E|3|-4|5|D|7|I|8|@]|9|@]|A|$]]]|F|$]]

<blockquote>
 I tried DBIx::Chart but I could not make it recognize my dates.
</blockquote>

Have you tried to translate your dates to Unix-Timestamps and use them as X dates?

blocks|key|2618037|text|这对我起了作用：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2618038|my+$ctx+=+$chart->get_context('default');
$ctx->domain_axis(
++++Chart::Clicker::Axis::DateTime->new(
++++++++position++++++++=>+'bottom',
++++++++orientation+++++=>+'horizontal',
++++++++ticks+++++++++++=>+5+,
++++++++format++++++++++=>+"%25Y-%25m-%25d"
++++)
);|code-block|syntax|javascript|2618039|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

This did the trick for me:

<pre><code>my $ctx = $chart-&gt;get_context('default');
$ctx-&gt;domain_axis(
 Chart::Clicker::Axis::DateTime-&gt;new(
 position =&gt; 'bottom',
 orientation =&gt; 'horizontal',
 ticks =&gt; 5 ,
 format =&gt; "%Y-%m-%d"
 )
);
</code></pre>

blocks|key|1093289|text|我在Perl中找到的最简单的方法是使用Perl来运行gnuplot进程。您可以使用set+timefmt+x+"%25Y-%25m-%25d"，它将以您所拥有的格式自动解析数据。Gnuplot还支持多种输出格式。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1093290|entityMap^0|15|O|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

The easiest way I've found to do this with Perl is to use the Perl to run a gnuplot process. You can use <code>set timefmt x "%Y-%m-%d"</code> and it will automatically parse the data in the format you have. Gnuplot also supports a variety of output formats.

blocks|key|1093292|text|我建议将日期规范化为整数。蛮力的方式当然是使用划时代的秒，但这在图上可能看起来不太好，所以通过线性转换成一些体面的范围(如果你愿意的话，我可以提供细节)。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1093293|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

I would recommend normalizing the dates to integers. The brute force way would be of course using epoch seconds, but that might not look too nice on a graph, so normalize by a linear transform into some decent range (I can provide details of how if you wish).

blocks|key|1076901|text|您是否需要实时生成图形，还是一次过的报告？如果是后者，则可以使用DateTime模块生成Excel值，并在Excel+(或其开源对应程序)中绘制它们。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1076902|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";|code-block|syntax|javascript|1076903|很久以前，我使用交感做了类似的事情。这是一个令人难以置信的软件包，但不容易使用。|offset|length|1076904|entityMap|0|LINK|mutability|MUTABLE|url|http://sourceforge.net/projects/asymptote/^0|0|0|8|2|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@$I|V|J|W|1|X]]|A|$]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|A|$]]]|L|$M|$5|N|O|P|A|$Q|R]]]]

Do you need your graph to be generated in real time, or is for a one-off report? If the latter, then you can use DateTime modules to generate Excel values and graph them in Excel (or its open-source counterpart.)

<pre><code>use DateTime::Format::MySQL;
use DateTime::Format::Excel;

my $dt = DateTime::Format::MySQL-&gt;parse_datetime( '2003-01-16 23:12:01' );
print $dt, "\n";
my $daynum = DateTime::Format::Excel-&gt;format_datetime($dt);
print $daynum, "\n";
</code></pre>

Time ago I did something like this using <a href="http://sourceforge.net/projects/asymptote/" rel="nofollow noreferrer">Asymptote</a>. It is an incredible package, but it's not easy to use.

blocks|key|1093381|text|由于不支持递归查询，下面的内容在SQLLite中不起作用，但在Oracle中可以工作。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1093382|您可以使用这样的子查询为Oracle+dBs创建一个连续的时间序列：|1093383|(SELECT+++TRUNC+(SYSDATE+-+x+/+1440,+'MI')+ts
+++++++++++++FROM+++(SELECT+++++++LEVEL+x
+++++++++++++++++++++++++++FROM+++DUAL
+++++++++++++++++++++CONNECT+BY+++LEVEL+<=+60))|code-block|syntax|javascript|1093384|然后使用左联接将时间序列链接到图表数据，如下所示：|1093385|++++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(%2B)+ORDER+BY+++a.TS;|1093386|上面的例子将画出最后的60分钟，并与DBIx：：图表一起工作。若要将分辨率更改为“小时”，请将“MI”更改为“24+24”，或每24小时可将日期格式参数全部省略。|1093387|要更改范围，只需将CONNECT按级别值设置为按指定分辨率绘制的时间序列点数。|1093388|**注:DBIx：：图表如果所有数据点值为零(即。(未确定)。在那帮不了你抱歉。|1093389|entityMap^0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|V|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|W|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|X|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|Y|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|Z|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|10|8|@]|9|@]|A|$]]|$1|Q|3|R|5|6|7|11|8|@]|9|@]|A|$]]|$1|S|3|-4|5|6|7|12|8|@]|9|@]|A|$]]]|T|$]]

The following won't work in SQLLite as recursive queries are not supported, but it will work in Oracle.

You can create a continuous time series for Oracle dBs with a subquery like this:

<pre><code>(SELECT TRUNC (SYSDATE - x / 1440, 'MI') ts
 FROM (SELECT LEVEL x
 FROM DUAL
 CONNECT BY LEVEL &lt;= 60))
</code></pre>

Then link that time series to your chart data using a LEFT JOIN like this:

<pre><code> 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 &lt;= 60)) a
 , MY_CHART_DATA b
 WHERE a.ts = b.ts(+) ORDER BY a.TS;
</code></pre>

The example above will plot the last 60 minutes and will work** with DBIx::Chart. To change the resolution to hours change 'MI' to 'HH24', or for every 24 hours you can omit the date format parameter all together.

To change the range simply set the CONNECT BY LEVEL value to the number of time series points you need to plot at your specified resolution.

**Note: DBIx::Chart will barf if all datapoint values are zero (ie. undefined). Can't help you there, sorry.

I have some data from a database (SQLite), mapping a value (an integer) to a date. A date is a string with this format: <code>YYYY-MM-DD hh:mm</code>. The dates are not uniformly distributed. I want do draw a line graph with the dates on <code>X</code> and the values on <code>Y</code>. What is the easiest way to do this with Perl?

I tried <a href="http://search.cpan.org/perldoc/DBIx::Chart" rel="noreferrer">DBIx::Chart</a> but I could not make it recognize my dates. I also tried <a href="http://search.cpan.org/perldoc/GD::Graph" rel="noreferrer">GD::Graph</a>, but as the documentation says:

<blockquote>
 GD::Graph does not support numerical x
 axis the way it should. Data for X
 axes should be equally spaced
</blockquote>

How can I plot a time series graph with Perl?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我有一些来自数据库(SQLite)的数据，将值(整数)映射到日期。日期是具有以下格式的字符串：YYYY-MM-DD hh:mm。日期分布不均匀。我想要用X上的日期和Y上的值绘制一个直线图。用Perl做这件事最简单的方法是什么？我试过，但我无法让它认出我的约会对象。我也尝试过，但正如文档所述：GD：：图不支持数字x轴的方式。X轴的数据应等距

问如何用Perl绘制时间序列图？
EN

回答 8

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何用Perl绘制时间序列图？EN

回答 8

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何用Perl绘制时间序列图？
EN