R语言中日期减9个月返回NA的异常问题咨询

问题根源 #

你用的months()函数（来自lubridate包）在做月份加减时，会严格对齐日期的「日」分量。1946-03-31减去9个月后，理论日期是1945-06-31，但6月只有30天，这个日期不存在，所以函数直接返回NA提示无效。

而减8个月得到的是1945-07-31（7月有31天，合法），减10个月得到1945-05-31（5月也有31天），所以都能返回有效日期。用days(273)是直接按天数计算，不涉及月份天数限制，自然不会有问题。

lubridate的这种设计是故意的——它不想自动替你做模糊处理（比如默认转成6月最后一天或7月1日），避免因歧义造成计算错误。

跨环境复现情况 #

这类问题不是R语言独有的，很多日期处理工具都有类似的严格校验逻辑：

• Python的dateutil.relativedelta模块，执行date(1946,3,31) - relativedelta(months=9)会直接抛出ValueError
• Excel的EDATE函数，输入EDATE("1946-03-31", -9)会返回#NUM!错误，原因同样是目标日期不存在

如果需要自动调整到有效日期，可以用lubridate的%m-%运算符，它会自动将无效日期修正为当月最后一天：

library(lubridate)
as_date("1946-03-31") %m-% months(9)
# 输出结果："1945-06-30"

内容的提问来源于stack exchange，提问作者Calen