Runden Sie ein POSIX-Datum (POSIXct) mit Base-R-Funktionalität

Zur Zeit Spiele ich viel herum mit Daten und Zeiten für ein Paket, das ich Baue.

Stolpern über diese post erinnerte mich wieder, dass es im Allgemeinen keine schlechte Idee, um zu überprüfen, ob etwas getan werden kann, mit der grundlegende R-Funktionen, bevor er sich contrib-Pakete.

Somit ist es möglich, Runde ein Datum der Klasse POSIXct mit der Basis R-Funktionen?

Habe ich überprüft

methods(round)

welches "nur" hat mir

[1] round.Date      round.timeDate*

   Non-visible functions are asterisked

Dies ist, was ich gerne tun würde (Pseudo-Code)

x <- as.POSIXct(Sys.time())
[1] "2012-07-04 10:33:55 CEST"

round(x, atom="minute")
[1] "2012-07-04 10:34:00 CEST"

round(x, atom="hour")
[1] "2012-07-04 11:00:00 CEST"

round(x, atom="day")
[1] "2012-07-04 CEST"

Ich weiß, das getan werden kann, mit timeDatelubridate etc., aber ich möchte zu halten, Paket-Abhängigkeiten nach unten. Also, bevor Sie voran gehen und Check-out der source-code der jeweiligen Pakete, ich dachte, ich würde Fragen, ob schon jemand getan hat, so etwas wie dieses.

InformationsquelleAutor der Frage Rappster | 2012-07-04

  1. 37

    base hat round.POSIXt um dies zu tun. Nicht sicher, warum Sie nicht kommen mit methods.

    x <- as.POSIXct(Sys.time())
x
[1] "2012-07-04 10:01:08 BST"
round(x,"mins")
[1] "2012-07-04 10:01:00 BST"
round(x,"hours")
[1] "2012-07-04 10:00:00 BST"
round(x,"days")
[1] "2012-07-04"

    InformationsquelleAutor der Antwort James

  2. 13

    Zu diesem Thema mit lubridateauch einen Blick in die ceiling_date() und floor_date() Funktionen:

    x <- as.POSIXct("2009-08-03 12:01:59.23")
ceiling_date(x, "second")
# "2009-08-03 12:02:00 CDT"
ceiling_date(x, "hour")
# "2009-08-03 13:00:00 CDT"
ceiling_date(x, "day")
# "2009-08-04 CDT"
ceiling_date(x, "week")
# "2009-08-09 CDT"
ceiling_date(x, "month")
# "2009-09-01 CDT"

    InformationsquelleAutor der Antwort nzcoops

Schreibe einen Kommentar