Étant donné une date et une heure POSIXct, comment extraire le premier jour du mois pour l'agrégation?
library(lubridate)
full.date <- ymd_hms("2013-01-01 00:00:21")
lubridate a une fonction appelée floor_date
qui arrondit les dates. L'appeler avec unit = "month"
fait exactement ce que vous voulez:
library(lubridate)
full.date <- ymd_hms("2013-01-01 00:00:21")
floor_date(full.date, "month")
[1] "2013-01-01 UTC"
Je ne vois aucune raison d'utiliser le lubrifiant:
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"
first.of.month <- ymd(format(full.date, "%Y-%m-01"))
first.of.month
[1] "2013-01-01 UTC"
j'ai une autre solution:
first.of.month <- full.date - mday(full.date) + 1
mais il a besoin de la bibliothèque 'lubridate' ou 'date.table' (agrégation avec data.table)