년을 빼는 방법?

Question

나는 R의 날짜, 예컨대 : 내가 as.Date('2010-03-17')을 받고, 윤년과 같은 문제에 대한 걱정없이,이 날짜로부터 2 년을 빼기 싶습니다

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

있습니다.

어떻게하면됩니까?

Answer 1

가장 쉬운 방법은 POSIXlt로 변환하고 연도 슬롯에서 2를 빼는 것입니다.

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

이 관련 질문보기 : How to subtract days in R?.

Answer 2

당신은 seq 사용할 수 있습니다

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

Answer 3

lubridate

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

Answer 4

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 5

윤년 - 우리가 할`difftime` RCS의의 아래 답변

> 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"