वर्षों को घटाना कैसे करें?

Question

मैं उदाहरण के आर में एक तिथि, .:

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

मैं इस दिनांक से 2 वर्षों घटाना, लीप वर्ष और इस तरह के मुद्दों के बारे में चिंता हो रही 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

आरसीएस द्वारा लेकिन संभावना एक सदिश पर यह काम करने के लिए के साथ एक से

एक ही जवाब के साथ (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

यदि लीप दिन रों ध्यान में रखा जाना करने के लिए कर रहे हैं तो मैं, महीने घटाना इस lubridate समारोह उपयोग करने की अनुशंसा के रूप में अन्य तरीकों 1 या एनए मार्च वापस आ जाएगी चाहते हैं:

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