Ajouter/soustraire 6 mois (garantie de temps) dans R à l'aide de lubridate

Je suis à la recherche d'ajouter et de soustraire les six mois de manière fiable avec lubridate.

Par exemple, l'ajout de six mois à 12/31/2014 devrait entraîner 6/30/2015,
et en ajoutant à 2/28/2014 devrait entraîner 8/31/2014

Le problème avec as.Date("2014-12-31") + months(6), c'est qu'il donne une NA. Sinon, le deuxième résultat est 8/28/2014 parce qu'il n'est pas juste ajouter 6 mois pour le mois et ensuite de savoir où la journée devrait se terminer dépend de la mois.

Est-il un moyen rapide pour corriger cela? En ce moment, je fais construire une fonction essentiellement de l'utilisation d'un interrupteur et d'envisager chaque mois, mais c'est très long et je vais avoir des problèmes avec elle.

Merci!

Pas vraiment clair sur le comportement que vous voulez - que l'ajout de 6 mois à 2/27/2014 donner? 8/30/2014, ou 8/27/2014?

OriginalL'auteur Michael Clinton | 2014-03-25

  1. 50

    La lubridate fonction %m+% peut être utile ici:

    Ajouter et de soustraire des mois à une date, sans pouvoir excéder le dernier jour du nouveau mois

    as.Date("2014-12-31") %m+% months(6)
# [1] "2015-06-30"

    Également manipuler le second cas, vous aurez besoin de ronde jusqu'au mois près à l'aide de ceiling_date, et de soustraire un jour, à l'aide de days.

    ceiling_date(as.Date("2014-02-28") %m+% months(6), unit = "month") - days(1)
# [1] "2014-08-31"

    OriginalL'auteur Henrik

  2. 1

    Je viens de codé rapidement, mais je pense que cela devrait fonctionner. Je ne suis pas sûr si c'est la solution la plus élégante, cependant. 

    # up = 1, down = -1
six.mo.mover<-function(date,up.or.down) {
  last.day <- month(date) != month(as.Date(date)+1) 
  if(last.day) {
    adj.date <- as.Date(date) - day(as.Date(date)-1) + up.or.down*months(6)
    adj.mo <- month(adj.date)
    if (adj.mo == 2) {
      dy <- 28 + leap_year(year(adj.date))
    }
    else {
      dy <- 31-(adj.mo-1)%%7%%2
    }
    adj.date + days(dy-1)
  } 
  else {
    as.Date(date)+up.or.down*months(6)
  }
}

    NB: pas de débogage, afin de vérifier vous-même et laissez-moi savoir.

    OriginalL'auteur Jacob M. Morley