如何在R语言中通过减去孕周计算受孕日期

你不需要把日期转成周数再倒推，直接利用R的Date类型支持天数加减的特性就能完成，步骤如下：

• 第一步：确保日期格式正确
  先确认你的date_delivery列是Date类型，如果原始数据是字符型，用as.Date()转换：

  # 示例数据（替换成你的实际数据框）
  df <- data.frame(
    id = c(1, 2, 3),
    date_delivery = as.Date(c("2024-05-15", "2024-03-20", "2024-06-30")),
    gest_age_weeks = c(39, 40, 38)
  )
  

• 第二步：计算受孕日期
  把孕周转换成天数（每周7天），直接用分娩日期减去该天数：

  df$date_conception <- df$date_delivery - df$gest_age_weeks * 7
  

• 第三步：提取目标结果
  筛选出需要的id和date_conception列：

  result <- df[, c("id", "date_conception")]
  print(result)
  

运行后会得到类似这样的输出：

id date_conception
1  1      2023-08-09
2  2      2023-05-23
3  3      2023-09-25

原理很直接：R的Date类型本质是存储从1970-01-01开始的天数，直接加减数值（单位为天）就能完成日期运算，完全不用绕去周数转换再转回日期。

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