如何在R语言中计算数据框中两日期间1/3位置的日期？

R中没有内置的直接生成日期区间n等分点的函数，但可以通过现有工具实现更通用的操作，既可以简化手动计算，也有现成函数直接调用。

方法一：基础简化计算（无需额外包） #

首先将字符型日期转换为R的日期类型，之后直接通过算术运算计算1/3位置的日期：

# 转换日期格式
df$before <- as.Date(df$before, "%Y-%m-%d")
df$after <- as.Date(df$after, "%Y-%m-%d")

# 计算两日期之间1/3位置的日期
df$third_point <- df$before + (df$after - df$before)/3

如果使用lubridate包，日期转换会更便捷（自动识别标准日期格式）：

library(lubridate)

df$before <- ymd(df$before)
df$after <- ymd(df$after)
df$third_point <- df$before + (df$after - df$before)/3

方法二：用现成函数实现通用分位数计算（timeplyr包） #

如果需要更通用的方案（支持任意比例，比如1/4、2/5等），可以使用timeplyr包的time_quantile函数，它专门用于计算时间区间的分位点：

首先安装并加载包：

install.packages("timeplyr")
library(timeplyr)

然后调用函数生成1/3位置的日期：

df <- df %>%
  mutate(before = ymd(before),
         after = ymd(after),
         third_point = time_quantile(before, after, probs = 1/3))

这个函数的优势在于，probs参数可传入任意0-1之间的数值或向量，一次性生成多个分位点。比如同时生成1/3和2/3位置的日期：

df <- df %>%
  mutate(before = ymd(before),
         after = ymd(after),
         c("1/3_point", "2/3_point") := time_quantile(before, after, probs = c(1/3, 2/3)))

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