Méthode pour créer à la fin du mois de la date à partir de la date de la variable dans [r] bloc de données

J'ai un [r] gros bloc de données avec la date de variables qui reflètent premier jour du mois. Est un moyen facile de crète, un nouveau bloc de données date de la variable qui représente le dernier jour du mois?

Ci-dessous est un exemple de données:

date.start.month=seq(as.Date("2012-01-01"),length=4,by="months")
df=data.frame(date.start.month)
df$date.start.month

"2012-01-01" "2012-02-01" "2012-03-01" "2012-04-01"

Je voudrais revenir une nouvelle variable avec:

"2012-01-31" "2012-02-29" "2012-03-30" "2012-04-27"

J'ai essayé de le prédécesseur, mais il a été unsucessful:

df$date.end.month=seq(df$date.start.month,length=1,by="+1 months")

Les orientations de cette nouvelle [r] l'utilisateur serait grandement apprécié.

Votre exemple de sortie ne correspond pas à la question.
Vous pourriez aussi envisager d'utiliser "yearmon" classe qui représente année/mois sans avoir besoin d'un jour en premier lieu: library(zoo); ym <- as.yearmon("2012-01") + 0:3/12 . Si vous ne souhaitez que des dates sur le dernier jour du mois, puis as.Date(ym, frac = 1).
G. Grothendieck: Merci pour votre suggestion, je vais avoir à penser à utiliser la yearmon classe pour ce type de données de date dans le futur.

OriginalL'auteur MikeTP | 2012-02-29

  1. 23

    Pour obtenir la fin du mois, vous pouvez simplement créer un Date vecteur contenant le 1er de tous les mois suivants, et soustrayez 1 jour.

    date.end.month <- seq(as.Date("2012-02-01"),length=4,by="months")-1
date.end.month
[1] "2012-01-31" "2012-02-29" "2012-03-31" "2012-04-30"
    Merci James, mais ce n'est pas semblent travail au sein de la trame de données de la structure.
    bibliothèque(lubridate) date d'.commencer.mois=seq(comme.Date("2012-01-01"),longueur=4,by="mois") df=données.cadre(en date.commencer.mois) df$date.fin.mois=df$date.commencer.mois+mois(1)-jours(1) df$date.commencer.mois df$date.fin.mois "2012-01-01" "2012-02-01" "2012-03-01" "2012-04-01" "2012-01-31" "2012-02-29" "2012-03-31" "2012-04-30"
    Il ressemble à son travail pour moi, mais votre exemple de sortie a été source de confusion: Pourquoi le 27 avril?
    James: Mon appologies... le 27 avril a été un typoand devrait avoir lu "2012-04-30". Merci pour votre aide.

    OriginalL'auteur James

  2. 10

    Voici une autre solution à l'aide de la lubridate package:

    date.start.month=seq(as.Date("2012-01-01"),length=4,by="months")
df=data.frame(date.start.month)

library(lubridate)
df$date.end.month <- ceiling_date(df$date.start.month, "month") - days(1)
df$date.end.month
[1] "2012-01-31" "2012-02-29" "2012-03-31" "2012-04-30"

    Cette utilise le même concept donné par James ci-dessus, en ce qu'il obtient le premier jour du mois suivant et soustrait un jour.

    Par la manière, ce sera le travail même lorsque la date d'entrée n'est pas nécessairement le premier jour du mois. Ainsi, par exemple, c'est aujourd'hui le 27 du mois et il renvoie toujours le bon dernier jour du mois:

    ceiling_date(Sys.Date(), "month") - days(1)
[1] "2017-07-31"
    days(1) est en fait inutile. Il suffit de faire ceiling_date(Sys.Date(), "month") - 1. Juste pour les futurs visiteurs...

    OriginalL'auteur Boops Boops

  3. 8

    Utilisation timeLastDayInMonth de la heuredate package:

    df$eom<-timeLastDayInMonth(df$somedate)

    OriginalL'auteur Martien Lubberink

  4. 2

    Une fonction comme ci-dessous pourraient faire le travail (à supposer dt est scalaire) -

    month_end <- function(dt) {
    d <- seq(dt, dt+31, by="days")
    max(d[format(d,"%m")==format(dt,"%m")])
}

    Si vous avez un vecteur de Dates, puis effectuez les opérations suivantes -

    sapply(dates, month_end)

    OriginalL'auteur Steve Lihn

  5. 0

    Une solution simple serait d'utiliser le yearmonfonction avec l'argument frac=1 de la xts-paquet. frac est un nombre entre 0 et 1 qui indique la proportion de la manière grâce à la période que le résultat représente.

    as.Date(as.yearmon(seq.Date(as.Date('2017-02-01'),by='month',length.out = 6)),frac=1)

[1] "2017-02-28" "2017-03-31" "2017-04-30" "2017-05-31" "2017-06-30" "2017-07-31"

    Ou si vous préférez “tuyauterie” à l'aide de magrittr:

    seq.Date(as.Date('2017-02-01'),by='month',length.out = 6) %>%
         as.yearmon() %>% as.Date(,frac=1)

[1] "2017-02-28" "2017-03-31" "2017-04-30" "2017-05-31" "2017-06-30" "2017-07-31"

    OriginalL'auteur hvollmeier