Wie kann ich den plot ein zeitreihendiagramm mit Perl?

Habe ich einige Daten aus einer Datenbank (SQLite), mapping-ein Wert (eine Ganzzahl) zu einem Zeitpunkt. Ein date ist ein string mit folgendem format: YYYY-MM-DD hh:mm. Die Daten sind nicht gleichmäßig verteilt. Ich will tun, ziehen Sie eine Linie Diagramm mit den Daten auf X und die Werte, auf Y. Was ist der einfachste Weg, dies zu tun mit Perl?

Versuchte ich DBIx::Chart aber ich konnte es nicht erkennen, meine Termine. Ich habe auch versucht GD::Graph, aber wie die Dokumentation sagt:

GD::Graph unterstützt nicht numerische x
Achse so wie es soll. Daten für X
Achsen sollten in gleichem Abstand

InformationsquelleAutor Jazz | 2009-10-21

8

Fahren Sie gnuplot mit Chart::Gnuplot.

Alternativ, wenn SVG ist eine akzeptable Ausgabe-format, es ist SVG::TT::Graph.
- +1 zur Chart::Gnuplot. Es ist mein Lieblings-charting-Modul, und die vernünftigste Schnittstelle zum gnuplot-Programm, das ich gefunden habe, die nicht die Rohrleitungen raw-Befehle.
- Ich habe es geschafft zu zeichnen meine Daten mit gnuplot, das korrekte einstellen von Zeit-format, es scheint schön, aber die X-Achse erstreckt sich von 1985 bis mehr als 2010, während meine Termine sind alle in 2009. Ich muss noch herausfinden, wie ich sagen kann, gnuplot um die X-Achse zu verlängern, nur aus dem ersten date von der las date.
- Sie können die Zecken angezeigt werden: search.cpan.org/perldoc/Chart::Gnuplot#xtics,_ytics,_ztics Sie können auch festlegen, dass die Bereiche search.cpan.org/perldoc/Chart::Gnuplot#xrange,_yrange,_zrange
- Habe ich schon gefunden, ich hatte gehofft, für automatische Bereiche.
- In der Tat, ich wurde missbraucht, Gnuplot. Mit dem Chart::Gnuplot::DataSet-option timefmt => '%Y-%m-%d %H:%M', und die Grafik::Gnuplot-option timeaxis => "x", es funktioniert perfekt!
InformationsquelleAutor Sinan Ünür
11

Können Sie Chart::Clicker-Achse::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');
```
Müssen Sie konvertieren Sie Ihre Zeiten in Unix-timestamps, aber es DWIMs.
- DateTime::Format::DBI funktioniert sehr gut (die Delegierten an der richtigen DateTime::Format::* - Modul)
- Ich wusste nicht, über Chart::Clicker. Aber das problem der Anzeige von human-friendly-Terminen noch bleibt.
- Achse::DateTime formatiert die Daten automatisch über ein format, das hängt von der range. Wenn Sie nicht wie Ihre Wahl, können Sie rufen Sie die format - Methode mit einer beliebigen Formatierung string akzeptabel DateTime ist strftime und wird es auch benutzen. Sie können die Anzahl und/oder die Positionen der Skalenstriche zu zeigen, mit der ticks oder tick_values Methoden aus Diagramm::Clicker:: - Achse.
- Chart::Clicker scheint groß, aber leider bin ich mit ActivePerl 5.10 auf Win32, und das Diagramm::Clicker scheint nicht verfügbar, da ein PPM-Paket.
InformationsquelleAutor
3

Ich habe versucht, DBIx::Chart, aber ich konnte es nicht erkennen, meine Termine.

Haben Sie versucht, zu übersetzen, Ihre Termine auf einen Unix-Zeitstempel und verwenden Sie Sie als X-Termine?
- Nein. Was ist die bessere Methode zum konvertieren meiner Daten? Dann, wie kann ich das Datum und nicht die Zeitstempel auf der x-Achse?
- Ich glaube nicht, DBIx::Chart unterstützt. So können Sie entweder eine sub-Klasse, und fügen Sie diese Funktionalität, oder gehen Sie mit Sinan ' s Vorschlag zum Diagramm::Gnuplot, bin ich-Abstimmung,.
- Anstatt aufzugeben, DBIx::Chart, weil einige Probleme in dem code ("konnte ich nicht machen, es erkennt meine Daten"), warum nicht nach dem code, das war Ihnen Probleme und vielleicht können wir Debuggen, es mit Ihnen? Wir haben bis auf Lösungen, weil unsere anfängliche Arbeit mit Ihnen kamen nicht heraus, wie wir wollten, würden wir ausgehen-Lösungen sehr schnell.
InformationsquelleAutor ty812

Diese hat den trick für mich:

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

InformationsquelleAutor tr606

2

Der einfachste Weg, die ich gefunden habe, geht das mit Perl ist die Verwendung des Perl laufen einem gnuplot-Prozess. Sie können set timefmt x "%Y-%m-%d" und es wird automatisch Parsen der Daten in das format, das Sie haben. Gnuplot unterstützt auch eine Vielzahl von Ausgabeformaten.
- Ich wollte vermeiden, dass gnuplot installieren, aber vielleicht ist es besser, was zu tun ist.
- Ich weiß nicht, ob es besser ist, es zu installieren oder nicht, aber keine Grafik-Lösung benötigen Sie etwas installieren, und zumindest gnuplot hat schon lange genug, dass es funktioniert ziemlich gut auf den meisten Systemen.
InformationsquelleAutor
1

Ich würde empfehlen, die Normalisierung der Daten auf ganze zahlen. Die brute-force-Weg wäre natürlich über die Epoche Sekunden, aber das sieht vielleicht nicht allzu schön auf einem Graphen, so normalisieren durch eine lineare Transformation in eine anständige Auswahl (kann ich details dazu liefern, wie, wenn Sie möchten).

InformationsquelleAutor DVK
1

Müssen Sie Ihr Diagramm generiert werden in Echtzeit oder für einen Bericht? Wenn das letztere, dann können Sie DateTime-Module zu generieren, die Excel-Werte und Graphen Sie in Excel (oder dessen open-source-Gegenstück.)
```
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";
```
Zeit habe ich so etwas mit Asymptote. Es ist ein unglaubliches Paket, aber es ist nicht einfach zu bedienen.
- Ich habe bereits versucht, ein CSV-export zu zeichnen Sie es mit OpenOffice.org Calc. Ich brauche es nicht in Echtzeit, aber ich generieren mehrere graphes regelmäßig, mindestens ein mal pro Tag, ich möchte also vermeiden Sie manuelle Vorgänge.
InformationsquelleAutor Leonardo Herrera
1

Den folgenden arbeiten nicht in SQLLite als rekursive Abfragen werden nicht unterstützt, aber es funktioniert in Oracle.

Können Sie erstellen eine kontinuierliche Zeitreihe für Oracle-dBs mit einer Unterabfrage wie diese:
```
(SELECT   TRUNC (SYSDATE - x / 1440, 'MI') ts
             FROM   (SELECT       LEVEL x
                           FROM   DUAL
                     CONNECT BY   LEVEL <= 60))
```
Dann link das mal Serie auf das Diagramm von Daten mit einem LEFT JOIN wie diesem:
```
    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;
```
Obigen Beispiel wird der plot der letzten 60 Minuten und funktioniert** mit DBIx::Chart. Um die Auflösung zu ändern, um Stunden zu ändern, 'MI' zu 'HH24', oder für alle 24 Stunden kannst du weglassen, das Datum-format-parameter alle zusammen.

Um den Bereich zu ändern einfach die " CONNECT BY LEVEL-Wert, um die Anzahl der Zeitreihen Punkte, die Sie benötigen, um plot an Ihre angegebene Auflösung.

**Hinweis: DBIx::Chart-barf, wenn alle Datenpunkt-Werte null sind (dh. undefined). Kann dir nicht helfen, sorry.

InformationsquelleAutor John

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.