抽象的年份和日期到一个数据框

我需要减去两年，并添加一天如下所示的日期。使用软件包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我使用这样

= DATE（YEAR（AW2）-2，MONTH（AW2），日（AW2）+1）

来源

2015-07-09 user3357059

这函数是矢量化的我很想知道为什么它会返回“NA”，它可能是因为未来的数据？ – SabDeM

“年”功能正在寻找“2014-02-29”，无法找到它。尝试解决方法'ymd（df $ ServiceDate） - days（731）' –

使用年限年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

来源

2015-07-09 20:58:53

以下是所需的输出 – user3357059

我有您第一次请求的输出，但您的请求并未反映您更新的期望输出。上述两个解决方案都可行 –

年和月是不是真的很好定义的时间间隔，但它似乎要使用的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

来源

2015-07-09 22:24:02

抽象的年份和日期到一个数据框

回答

相关问题