如何减去年份？

Question

我在 R 中有一个日期，例如：

dt = as.Date('2010/03/17')

我想从此日期减去 2 年，而不用担心闰年和此类问题，得到 as.Date('2008-03-17')。

我该怎么做呢？

Answer 1

使用润滑

library(lubridate)
ymd("2010/03/17") - years(2)

Answer 2

最简单的方法是将其转换为 POSIXlt 并从年份槽中减去 2。

> d <- as.POSIXlt(as.Date('2010/03/17'))
> d$year <- d$year-2
> as.Date(d)
[1] "2008-03-17"

请参阅此相关问题：如何在 R 中减去天数？。

Answer 3

您可以使用seq：

R> dt = as.Date('2010/03/17')
R> seq(dt, length=2, by="-2 years")[2]
[1] "2008-03-17"

Answer 4

如果要考虑闰日，那么我建议使用此 lubridate 函数减去月份，因为其他方法将返回 3 月 1 日或 NA：

> library(lubridate)
> dt %m-% months(12*2)
[1] "2008-03-17"

# Try with leap day
> leapdt <- as.Date('2016/02/29')
> leapdt %m-% months(12*2)
[1] "2014-02-28"

Answer 5

与 rcs 的答案相同，但可以在向量上操作它（回答 MichaelChirico，我无法评论我没有足够的代表）：

R> unlist(lapply(c("2015-12-01", "2016-12-01"), 
      function(x) { return(as.character(seq(as.Date(x), length=2, by="-1 years")[2])) }))
 [1] "2014-12-01" "2015-12-01"

Answer 6

这种方式似乎也能完成这项工作

dt = as.Date("2010/03/17")
dt-365*2
[1] "2008-03-17"

as.Date("2008/02/29")-365*2
## [1] "2006-03-01"

Answer 7

cur_date <- str_split(as.character(Sys.Date()), pattern = "-")
cur_yr <- cur_date[[1]][1]
cur_month <- cur_date[[1]][2]
cur_day <- cur_date[[1]][3]
new_year <- as.integer(year) - 2
new_date <- paste(new_year, cur_month, cur_day, sep="-")

Answer 8

使用Base R，您可以简单地使用以下内容，而无需安装任何软件包。

1) 将字符串转换为日期格式，在第二个参数中指定输入格式，以便 R 可以正确解释您的日期格式。

dt = as.Date('2010/03/17',"%Y/%m/%d")

注意：如果您现在查看环境选项卡，您将看到 dt 作为变量，其值为“2010-03-17”（年月日期用“-”而不是“/”分隔）

2）指定减去多少年

years_substract=2

3）使用paste()结合format()只保留月份和日期并且只需从原始日期中减去2年。 Format() 函数将仅使用格式第二个参数相应地保留日期的特定部分。

dt_substract_2years<-
as.Date(paste(as.numeric(format(dt,"%Y"))-years_substract,format(dt,"%m"),format(dt,"%d"),sep = "-"))

注意1：我们使用paste()函数来连接日期组件并将分隔符指定为“-”（sep =“-”），默认情况下日期的R分隔符。

注意2：我们还使用 as.numeric() 函数将年份从字符转换为数字