Làm thế nào tôi có thể vẽ đồ thị chuỗi thời gian với Perl?

Question

Tôi có một số dữ liệu từ một cơ sở dữ liệu (SQLite), ánh xạ một giá trị (một số nguyên) cho một ngày. Ngày là một chuỗi có định dạng này: YYYY-MM-DD hh:mm. Các ngày không được phân phối thống nhất. Tôi muốn vẽ biểu đồ đường với các ngày trên X và các giá trị trên Y. Cách dễ nhất để làm điều này với Perl là gì?

Tôi đã thử DBIx::Chart nhưng tôi không thể làm cho nó nhận ra ngày của tôi. Tôi cũng đã cố gắng GD::Graph, nhưng như các tài liệu nói:

GD :: Graph không hỗ trợ số x trục đường nó cần. Dữ liệu cho X trục nên được đặt cách nhau không kém

Answer 1

Bạn có thể lái xe gnuplot sử dụng Chart::Gnuplot.

Hoặc, nếu SVG là định dạng đầu ra có thể chấp nhận, có SVG::TT::Graph.

Answer 2

tôi đã cố gắng DBIx :: Chart nhưng tôi không thể làm cho nó nhận ra số ngày của tôi.

Bạn đã thử dịch ngày của mình sang Unix-Timestamps và sử dụng chúng làm ngày X không?

Answer 3

Cách dễ nhất tôi đã tìm thấy để làm điều này với Perl là sử dụng Perl để chạy quy trình gnuplot. Bạn có thể sử dụng set timefmt x "%Y-%m-%d" và nó sẽ tự động phân tích dữ liệu theo định dạng bạn có. Gnuplot cũng hỗ trợ nhiều định dạng đầu ra khác nhau.

Answer 4

Tôi khuyên bạn nên chuẩn hóa ngày thành số nguyên. Cách bạo lực sẽ là tất nhiên bằng cách sử dụng giây epoch, nhưng điều đó có thể không nhìn quá đẹp trên một đồ thị, vì vậy bình thường hóa bởi một biến đổi tuyến tính vào một số phạm vi phong nha (tôi có thể cung cấp chi tiết như thế nào nếu bạn muốn).

Answer 5

Bạn có thể sử dụng Chart :: Clicker của 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'); 

Bạn cần phải chuyển đổi thời gian của bạn vào timestamps Unix, nhưng nó DWIMs.

Answer 6

Bạn có cần đồ thị của mình được tạo trong thời gian thực hay cho báo cáo một lần không? Nếu sau này, sau đó bạn có thể sử dụng module DateTime để tạo ra giá trị Excel và vẽ đồ thị chúng trong Excel (hoặc đối tác mã nguồn mở của nó.)

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"; 

Thời gian trước, tôi đã làm một cái gì đó như thế này sử dụng Asymptote. Nó là một gói đáng kinh ngạc, nhưng nó không dễ sử dụng.

Answer 7

này đã làm các trick cho tôi:

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

Answer 8

Sau đây sẽ không làm việc trong SQLLite như các truy vấn đệ quy không được hỗ trợ, nhưng nó sẽ làm việc trong Oracle.

Bạn có thể tạo một chuỗi thời gian liên tục cho Oracle DBS với một subquery như thế này:

(SELECT TRUNC (SYSDATE - x/1440, 'MI') ts 
      FROM (SELECT  LEVEL x 
          FROM DUAL 
        CONNECT BY LEVEL <= 60)) 

Sau đó, liên kết mà chuỗi thời gian để biểu đồ dữ liệu của bạn bằng cách sử dụng LEFT JOIN như thế này:

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; 

Ví dụ trên sẽ vẽ 60 phút cuối cùng và sẽ hoạt động ** với DBIx :: Biểu đồ. Để thay đổi độ phân giải thành giờ thay đổi 'MI' thành 'HH24', hoặc cứ sau 24 giờ bạn có thể bỏ qua tất cả tham số định dạng ngày.

Để thay đổi phạm vi, chỉ cần đặt giá trị CONNECT BY LEVEL thành số chuỗi thời gian bạn cần vẽ theo độ phân giải đã chỉ định của mình.

** Lưu ý: DBIx :: Biểu đồ sẽ chặn nếu tất cả giá trị datapoint là số không (ví dụ: không xác định). Không thể giúp bạn ở đó, xin lỗi.