14

我有一个脚本，我在其中根据一些设定的时间段对数据进行子集化，并希望对上个月发生的所有记录进行子集化。

但是，如果我尝试从今天的日期中减去一个月，则会产生 NA：

> today <- Sys.Date()
> today
[1] "2017-03-29"
> today - months(1)
[1] NA

我确实加载了 lubridate，但我认为这个计算是用基数 R 执行的。如果我减去 2 个月或更长时间，它工作正常：

> today - months(2)
[1] "2017-01-29"
> today - months(3)
[1] "2016-12-29"

有没有人对可能发生的事情有任何想法？

更新：我认为这与不处理闰年情况的简单日期减法有关（2017 年不是闰年，因此"2017-02-29"不存在）。

是否有其他考虑闰年的软件包/功能？对于上面的示例，我希望答案恢复到上个月的最后一天，即：

today - months(1)
# Should yield:
"2017-02-28"

这个计算在今天和昨天给出相同的结果是否有意义（或者 ISO 约定是什么）？

> sessionInfo()
R version 3.3.2 (2016-10-31)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=English_United Kingdom.1252  LC_CTYPE=English_United Kingdom.1252   
[3] LC_MONETARY=English_United Kingdom.1252 LC_NUMERIC=C                           
[5] LC_TIME=English_United Kingdom.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] xlsx_0.5.7         xlsxjars_0.6.1     rJava_0.9-8        MRAtools_0.6.8     stringdist_0.9.4.4 stringr_1.2.0     
 [7] stringi_1.1.3      lubridate_1.6.0    data.table_1.10.4  PKI_0.1-3          base64enc_0.1-3    digest_0.6.12     
[13] getPass_0.1-1      RPostgreSQL_0.5-1  DBI_0.5-1         

loaded via a namespace (and not attached):
[1] magrittr_1.5   rstudioapi_0.6 tools_3.3.2    parallel_3.3.2
4

2 回答 2

23

月份的计算确实是由基数 R 执行的，但不是您的想法。Months 用于获取日期对象的月份。

#Example
today <- Sys.Date()
months(today)
[1] "March"

要添加或减去月份，您应该使用%m+%from lubridate：

today <- Sys.Date()
today %m+% months(-1)
[1] "2017-02-28"
于 2017-03-29T16:24:33.793 回答
3

一个月前在这种情况下是未定义的。2 月 29 日只存在于闰年。

请参阅lubridate文档：

注意：当涉及不存在的日期（例如非闰年的 2 月 29 日）时，带有句点的算术可能会导致不确定的行为。请参阅 Period-class 了解更多详细信息，并参阅 %m+% 和 add_with_rollback 了解替代操作。

该lubridate包可以处理您正在执行的操作，但您需要使用%m+%.

于 2017-03-29T16:24:16.780 回答