R语言中哪个函数可给2024-02-29加12个月且不返回NA值？

你遇到的问题是因为2025年不是闰年，没有2月29日，lubridate的+ months(12)在遇到不存在的日期时会返回NA。可以用以下方式得到有效结果：

方法1：使用%m+%运算符 #

这个运算符会自动将无效日期回滚到当月的最后一天：

library(lubridate)
my_date <- c(as.Date("2024-01-29"), as.Date("2024-02-29"))
next_year <- my_date %m+% months(12)
next_year
#> [1] "2025-01-29" "2025-02-28"

方法2：使用add_with_rollback()函数 #

这个函数可灵活控制日期调整行为，默认会回滚到有效日期：

library(lubridate)
my_date <- c(as.Date("2024-01-29"), as.Date("2024-02-29"))
next_year <- add_with_rollback(my_date, months(12))
next_year
#> [1] "2025-01-29" "2025-02-28"

如果希望将无效日期调整为下一个月的第一天，可设置roll_to_first = TRUE参数：

next_year <- add_with_rollback(my_date, months(12), roll_to_first = TRUE)
next_year
#> [1] "2025-01-29" "2025-03-01"

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