Выдача лет и дней в dataframe

Question

Мне нужно вычесть два года и добавить один день к датам, как показано ниже. Используя пакет lubridate, я могу вычитать даты из регулярных лет или високосных лет отдельно, но мне нужно делать оба одновременно.

df <- data.frame(
ServiceDate = c('2010-02-28','2016-02-29'), stringsAsFactors = F) 
df$ServiceDate <- as.Date(df$ServiceDate, "%Y-%m-%d") 

library(lubridate) 

df$TwoYearsEarlier <- ymd(df$ServiceDate) - years(2) + days(1) 

Это то, что я получаю от кода выше

df 
ServiceDate TwoYearsEarlier 
2010-02-28  2008-02-29 
2016-02-29   <NA> 

Есть ли способ известково дни для обоих в то же самое время?

Это желаемый результат:

df 
ServiceDate TwoYearsEarlier 
2010-02-28  2008-02-29 
2016-02-29  2014-03-01 

В Excel я использую что-то вроде этого

= ДАТА (ГОД (AW2) -2, МЕСЯЦ (AW2), ДЕНЬ (AW2) +1)

Answer 1

использование Продолжительность лет dyears

df$TwoYearsEarlier <- ymd(df$ServiceDate) - dyears(2) 
df 
# ServiceDate TwoYearsEarlier 
#1 2010-02-28  2008-02-29 
#2 2016-02-29  2014-03-01 

Или, как я уже говорил в комментариях, по дням:

df$TwoYearsEarlier <- df$ServiceDate - days(730) 
df 
# ServiceDate TwoYearsEarlier 
#1 2010-02-28  2008-02-29 
#2 2016-02-29  2014-03-01 

Answer 2

Годы и месяцы не очень хорошо определенные интервалы, но, похоже, вы хотите использовать интервал 2 * 365 дней, что является хорошо определена продолжительность:

> df$TwoYearsEarlier <- ymd(df$ServiceDate) + days(-2*365) 
> df 
    ServiceDate TwoYearsEarlier 
1 2010-02-28  2008-02-29 
2 2016-02-29  2014-03-01