在R中使用库lubridate处理异常数据

我正在使用R处理日期，并处理一个简单的任务。我的目标是使用当前日期并在6个月后检查日期。下面我将粘贴一段代码，它将生成对日期的不同响应。感谢所有的帮助

library(lubridate)
first <- as.Date('2004-05-31')
class(first)
# [1] "Date"
first_next_6M <- first
month(first_next_6M) <- month(first_next_6M) + 6
first_next_6M
# [1] NA

second <- as.Date('2010-05-01')
second_next_6M <- second
class(second)
# [1] "Date"
month(second_next_6M) <- month(second_next_6M) + 6
second_next_6M
# [1] "2010-11-01"

库（lubridate）
首先如果您正在使用lubridate，并且希望从当前日期起6个月后获得日期，您应该使用

first %m+% months(6)

如果您只需在
2004-05-31
的月份值上加上6，您将得到
2004-11-31
，而11月只有30天，而不是31天，因此您不能只在该月做算术运算
完美！！谢谢