Konvertieren von Datum-Uhrzeit auf einen formatierten Zeit-string

Ich weiß nicht, warum es nicht funktioniert. Hier ist mein code:

> t <- hms("14:11:49")
> t
[1] "14H 11M 49S"
t <- t + minutes(3)
> format(t, format="%H:%M:%S")
[1] "14H 14M 49S"
# Expected output: "14:14:49"

Update:

Aktuell fand ich diese Lösung, aber ich hoffe, es ist eine mehr elegante:

t <- hms("14:11:49") # example period object
sprintf("%s:%s:%s", hour(t), minute(t), second(t))
#"14:11:49"

InformationsquelleAutor biocyberman | 2014-09-04

18

Nicht sicher, warum Sie brauchen, um zu konvertieren, um hms und zurück zu den ursprünglichen string-format. Vielleicht parse_date_time Funktion ist, was Sie brauchen:
```
library(lubridate)
myTime <- "14:11:49"
hms(myTime)
#"14H 11M 49S"

POSIXct_myTime <- parse_date_time(myTime,"hms")
format(POSIXct_myTime, format="%H:%M:%S")
#"14:11:49"
```
EDIT:
Wir können paste:
```
t <- hms("14:11:49")
t
#[1] "14H 11M 49S"
t <- t + minutes(3)
t
#[1] "14H 14M 49S"

paste(hour(t),minute(t),second(t),sep=":")
#[1] "14:14:49"
```
Benchmark-Ausgang:
```
op <- microbenchmark(
  Use_paste=paste(hour(t),minute(t),second(t),sep=":"),
  Use_sprintf=sprintf("%s:%s:%s", hour(t), minute(t), second(t)),
  times=1000000L)
op

# Unit: microseconds
# expr    min     lq median     uq      max neval
# Use_paste 28.072 31.695 32.601 33.506 44253.42 1e+06
# Use_sprintf 29.582 33.807 34.412 35.619 44367.52 1e+0
```
- Dies scheint wie eine bessere Idee.
- Ich halte (paranoically) das string-format speichern einige bytes für jeden Eintrag beim schreiben in die text-Datei. Ihre Lösung allerdings nicht tut, was ich versuche zu erreichen. Diese Linie ist chicken-egg problem: POSIXct_myTime <- parse_date_time(myTime,"hms"). Ich habe nicht myTime im string-format. Ich Las Millionen von Einträgen in %H:%M:%S format, filtern Sie und wollen zurück zu schreiben aus genau dem gleichen format wie der Eingang.
- "...der format-string speichern einige bytes für jeden Eintrag beim schreiben in die text-Datei..." - nicht sicher, dies ist wahr... Auch, "...ich habe nicht myTime im string-format..." - in Ihrem Beitrag, den Sie übergeben einen string zu hms - hms("14:11:49")
- Sorry für die Verwirrung. Ich nur den line hms("14:11:49") nur um ein Objekt aus einem Zeit-string. Mein workflow ist wie folgt: Lesen Sie in Millionen von Einträgen der time string; verwenden lubridate, um einige der Berechnung; schreiben wieder aus, um text-Datei das Ergebnis. Bitte überprüfen Sie die Anfang meine aktualisierte Frage
- siehe update mit einfügen-Lösung und benchmark-Ausgabe.
- Ich vergaß den paste Funktion in diesem Fall. Aber ich hatte gehofft, dass es einen Weg gibt, um zu vermeiden, aufrufen hour, minute und second. Mein Gedanke: Die lubridate Paket ist offensichtlich sehr gut im Lesen in vielen Eingangs-Datum-Zeit-Formate, aber nicht sehr gut an was die Ausgänge wieder raus.
- Leider, die paste Lösung gibt "04" als "4". Ich habe eine einfache Lösung mit der format Funktion.
InformationsquelleAutor zx8754
2

Das problem ist, dass class(t) ist "Zeit" und die format.Period() Funktion keinen parameter für format=. Die t Objekt ist nicht ein standard - POSIXt style-Objekt, dass Sie verwendet werden können zur Verwendung mit format(). Nur die format.POSIXct() und format.POSIXlt() Funktionen Verhalten sich so.

So vielleicht die einfachste Sache zu tun wäre, um zu definieren, eine Helfer-Funktion schalten Sie den Period Klasse in POSIXct. Kann man das mit:
```
as.POSIXct.Period <- function(x, start=today()) {
    X<-as.interval(x, start); 
    X@.Data+X@start
}
```
Es ist wichtig zu beachten, dass POSIXct ist ein Datum/Zeit-Wert, nicht nur einen Zeit-Wert. Also standardmäßig haben wir nur annehmen, es begann um Mitternacht heute. Aber dann können wir ein format in der Art und Weise Sie wollte
```
format(as.POSIXct(t), format="%H:%M:%S")
# [1] "14:11:49"
```
Ich muss zugeben, ich bin kein Experte lubridate user so vielleicht habe ich es übersehen, eine offensichtliche Funktion, aber es scheint, die Optionen für die Formatierung lubridate Klassen in "schön" formatiert sind sehr begrenzt.
- Diese Lösung funktioniert, benötigen aber einen zusätzlichen Schritt konvertieren Sie die Zeit, um date_time-Objekt. Anyways, vielen Dank für die Erwähnung der format.POSIXct() und format.POSIXlt() Funktionen.
- Gut, deine ursprüngliche Frage war nur, Sie wusste nicht, warum es nicht funktioniert, es war nicht um eine "Lösung" für irgendetwas. Wenn das nicht deine eigentliche Frage, dann würde ich versuchen, besser zu Wort, um Ihre Fragen in der Zukunft. Ich habe nur die Umstellung, weil Sie scheinen wirklich wollen, verwenden Sie die format Funktion mit der "%H:%M:%S" syntax.
InformationsquelleAutor MrFlick

Die vorgeschlagene Lösung nicht drucken führenden Nullen. Die folgende Lösung scheint zu sein, elegant:

> t <- hms("14:01:49") + minutes(3)
> sprintf("%s:%s:%s", hour(t), minute(t), second(t))
[1] "14:4:49" # looking weird
> format(Sys.Date() + t, "%H:%M:%S")
[1] "14:04:49" # looking better

InformationsquelleAutor shosaco

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.