Ersten Tag des Monats von einem POSIXct Datum Zeit mit lubridate

Gegeben POSIXct Datum, Zeit, wie, die Sie extrahieren Sie den ersten Tag des Monats für die aggregation?

library(lubridate)

full.date <- ymd_hms("2013-01-01 00:00:21")
  • Ich kenne einen Weg, es zu tun, hoffentlich gibt es einige intelligentere Wege gibt.
InformationsquelleAutor nacnudus | 2014-05-12
  1. 45

    lubridate hat eine Funktion namens floor_date dem Runden Datum-Zeit hin. Aufruf mit unit = "month" genau das tut, was Sie wollen:

    library(lubridate)
full.date <- ymd_hms("2013-01-01 00:00:21")
floor_date(full.date, "month")

[1] "2013-01-01 UTC"
    InformationsquelleAutor Frank
  2. 15

    Sehe ich keinen Grund für die Verwendung lubridate:

    full.date <- as.POSIXct("2013-01-11 00:00:21", tz="GMT")

monthStart <- function(x) {
  x <- as.POSIXlt(x)
  x$mday <- 1
  as.Date(x)
}

monthStart(full.date)
#[1] "2013-01-01"
    • +1 für die nicht-Verwendung einer string-Formatierung hack (wie mich).
    • Kam gerade über diese schöne Art und Weise zu gehen darüber. Macht es wirklich einfach, war über Sie erschweren es auch mit lubridate.
    InformationsquelleAutor Roland
  3. 8
    first.of.month <- ymd(format(full.date, "%Y-%m-01"))
first.of.month

[1] "2013-01-01 UTC"
    InformationsquelleAutor nacnudus
  4. 1

    ich habe eine andere Lösung :

    first.of.month <- full.date - mday(full.date) + 1

    aber es braucht die Bibliothek 'lubridate' oder 'Datum.Tabelle'(aggregation mit Daten.Tabelle)

    InformationsquelleAutor iauhs
Schreibe einen Kommentar