如何用R语言计算指定日期到下一场会议的天数？

问题分析 #

你当前的方法是将meetings和dates按位置一一对应相减，仅对比了同索引的会议日期，没有遍历所有会议来找到每个指定日期之后（含当天）的最近一场会议，因此结果不符合预期。

正确实现步骤 #

1. 将字符串格式的日期转换为R的Date类型，便于日期运算。
2. 对每个指定日期，筛选出所有不早于该日期的会议日期。
3. 若无符合条件的会议，返回NA；否则取其中最早的会议日期，计算与指定日期的天数差。

代码实现 #

# 原始数据
meetings <- c("2023-06-21","2023-05-03","2023-03-22","2023-02-01","2022-12-07")
dates <- c("2023-08-01","2023-04-01","2023-03-01","2023-02-01","2023-01-01")

# 转换为Date类型
meetings_date <- as.Date(meetings)
dates_date <- as.Date(dates)

# 计算每个日期到下一场会议的天数
result <- sapply(dates_date, function(d) {
  upcoming_meetings <- meetings_date[meetings_date >= d]
  if (length(upcoming_meetings) == 0) {
    NA_integer_
  } else {
    as.integer(min(upcoming_meetings) - d)
  }
})

# 输出结果
result

运行结果 #

执行代码后输出：

[1] NA 32 21  0 31

与期望结果完全一致。

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