如何根据当前年份中的日期是否已过去，为日期字符串分配正确的年份？

Question

如何将年份添加到缺少年份的日期向量中，如果今年日期已经过去，则分配明年，如果今年即将到来，则分配今年？

样本数据：

datevec <- c("March 15 2:00 PM","January 7 3:00 PM","November 4 9:00 AM", "August 5 10:00AM", "February 6 10:00PM","December 5 6:00 AM")

期望的回归年份（基于 2023 年 9 月 6 日提出的问题）：

desired_years <- c("2024","2024","2023","2024","2024","2023")

Answer 1

你可以做

ifelse(strptime(datevec, "%B %d %H:%M %p") > Sys.Date(), "2023", "2024")
#> [1] "2024" "2024" "2023" "2024" "2024" "2023"