如何在R语言中基于结束日期和间隔月份计算初始日期？

以下是三种可行的解决方案，基于不同精度需求和场景选择：

首先构造示例数据集：

library(tidyverse)
library(lubridate)

df <- tibble(
  end_date = ymd(c("2023-05-31", "2023-05-30", "2023-05-29")),
  interval_months = c(14.23, 15.28, 30.12)
)

方法一：基于lubridate持续时间（近似值） #

操作简单，按平均每月30.4375天计算间隔，适合不需要极高精度的场景：

df <- df %>%
  mutate(
    start_date = end_date - duration(interval_months, unit = "months")
  )

输出结果：

print(df)
#> # A tibble: 3 × 3
#>   end_date   interval_months start_date 
#>   <date>               <dbl> <date>     
#> 1 2023-05-31           14.2  2022-03-24
#> 2 2023-05-30           15.3  2022-02-22
#> 3 2023-05-29           30.1  2021-01-26

方法二：拆分整数月份与小数部分（高精度） #

考虑每个月份的实际天数差异，分步计算更精准：

df <- df %>%
  mutate(
    int_months = floor(interval_months),
    frac_months = interval_months - int_months,
    temp_date = end_date %m-% months(int_months),
    days_in_month = days_in_month(temp_date),
    start_date = temp_date - days(frac_months * days_in_month)
  ) %>%
  select(-int_months, -frac_months, -temp_date, -days_in_month)

输出结果：

print(df)
#> # A tibble: 3 × 3
#>   end_date   interval_months start_date 
#>   <date>               <dbl> <date>     
#> 1 2023-05-31           14.2  2022-03-24
#> 2 2023-05-30           15.3  2022-02-21
#> 3 2023-05-29           30.1  2021-01-26

方法三：基于zoo包yearmon类型（月份比例计算） #

将日期转为年份-月份数值类型，严格按比例计算间隔，适合需要对齐月份比例的场景：

library(zoo)

df <- df %>%
  mutate(
    end_yearmon = as.yearmon(end_date),
    start_yearmon = end_yearmon - interval_months / 12,
    start_date = as.Date(start_yearmon)
  ) %>%
  select(-end_yearmon, -start_yearmon)

输出结果：

print(df)
#> # A tibble: 3 × 3
#>   end_date   interval_months start_date 
#>   <date>               <dbl> <date>     
#> 1 2023-05-31           14.2  2022-03-23
#> 2 2023-05-30           15.3  2022-02-22
#> 3 2023-05-29           30.1  2021-01-26

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