Я lubridate добавить и вычесть шесть месяцев надежно с lubridate.
Например, добавление шести месяцев до 12/31/2014 должны привести к 6/30/2015, и добавление к 2/28/2014 должны привести к 8/31/2014
Проблема с as.Date("2014-12-31") + months(6) заключается в том, что он дает NA. Кроме того, второй результат - 28.08.2014, потому что он не просто добавляет 6 месяцев к месяцу, а затем знает, где день должен закончиться, в зависимости от месяца.
Есть ли способ быстро исправить это? В данный момент я создаю функцию, которая в основном использует переключатель и учитывает каждый месяц, но это очень долго, и у меня тоже есть проблемы с ним.
Спасибо!
Функция lubridate %m+% может быть полезна здесь:
Добавить и вычесть месяцы до даты, не превышающей последний день нового месяца
as.Date("2014-12-31") %m+% months(6)
# [1] "2015-06-30"
Чтобы также обрабатывать второй случай, вам нужно округлить до ближайшего месяца, используя ceiling_date, и вычесть один день с помощью days.
ceiling_date(as.Date("2014-02-28") %m+% months(6), unit = "month") - days(1)
# [1] "2014-08-31"
Я просто закодировал это быстро, но я думаю, что он должен работать. Однако я не уверен, что это самое элегантное решение.
# 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: не отлаживается, поэтому проверьте его и дайте мне знать.