Question

我有一个日期，我想添加几天，以便找到未来的日期。

例如，我如何找到1/1/2001之后45天的日期？

Answer 1

使用+

> as.Date("2001-01-01") + 45
[1] "2001-02-15"

Answer 2

您也可以使用

library(lubridate)
dmy("1/1/2001") + days(45)

Answer 3

除了其他人显示的简单添加之外，您还可以使用seq.Date或seq.POSIXt查找其他增量或减量（POSIXt版本执行秒，分，小时等）：< / p>

> seq.Date( Sys.Date(), length=2, by='3 months' )[2]
[1] "2012-07-25"

Answer 4

只需使用

 as.Date("2001-01-01") + 45

来自基础R的

，或许多贡献包中的一个中的日期功能。我的RcppBDT包裹包含Boost Date_Time的功能，包括某个月内“第三个星期三的日期”等内容。

编辑：并且由@Andrie怂恿，这里有更多来自RcppBDT（这主要是Rcpp模块的测试案例，真的）。

R> library(RcppBDT)
Loading required package: Rcpp
R> 
R> str(bdt)
Reference class 'Rcpp_date' [package ".GlobalEnv"] with 0 fields
 and 42 methods, of which 31 are possibly relevant:
   addDays, finalize, fromDate, getDate, getDay, getDayOfWeek, getDayOfYear, 
   getEndOfBizWeek, getEndOfMonth, getFirstDayOfWeekAfter,
   getFirstDayOfWeekInMonth, getFirstOfNextMonth, getIMMDate, getJulian, 
   getLastDayOfWeekBefore, getLastDayOfWeekInMonth, getLocalClock, getModJulian,
   getMonth, getNthDayOfWeek, getUTC, getWeekNumber, getYear, initialize, 
   setEndOfBizWeek, setEndOfMonth, setFirstOfNextMonth, setFromLocalClock,
   setFromUTC, setIMMDate, subtractDays
R> bdt$fromDate( as.Date("2001-01-01") )
R> bdt$addDays( 45 )
R> print(bdt)
[1] "2001-02-15"
R>

R将日期添加到日期

4 个答案: