如何计算R中两条记录之间的日期差异

Question

你好，我的df有 3 列和 100 多行，看起来像

PID  Record_date     DOB
123  25-02-2009  22-08-1944
165  20-04-2017  22-08-1944

我试图计算 PID 的年龄，但结果是这样的

PID  Record_date     DOB        Age
123  25-02-2009   22-08-1944    65
165  20-04-2017   22-08-1944    73

我已经通过以下代码计算了 PID 的年龄

df$Age <- as.numeric(df$Record_date - df$DOB)/365
df$Age <- round (df$Age, digits = 0)

我的预期结果和结果

PID  Record_date        DOB     Age
123  25-02-2009    22-08-1944   64
165  20-04-2017    22-08-1944   72

提前致谢

Answer 1

您可以从lubridate包创建一个period对象并提取年份信息。

library(dplyr)
library(lubridate)

df %>%
  mutate(across(c(Record_date, DOB), dmy),
         Age = as.period(DOB %--% Record_date)$year)

#   PID Record_date        DOB Age
# 1 123  2009-02-25 1944-08-22  64
# 2 165  2017-04-20 1944-08-22  72

如果删除$year ，您可以获得期间的详细信息：

#                 Age
# 64y 6m  3d 0H 0M 0S
# 72y 7m 29d 0H 0M 0S

注意： DOB %--% Record_date是interval(DOB, Record_date)的快捷方式。

Answer 2

如果您对这些值进行round ，则您得到的数字是正确的。 也许，你想给他们打floor ？

library(dplyr)
df %>%
  mutate(across(-1, as.Date, '%d-%m-%Y'), 
         age = as.integer(floor((Record_date - DOB)/365)))

#  PID Record_date        DOB age
#1 123  2009-02-25 1944-08-22  64
#2 165  2017-04-20 1944-08-22  72

数据

df <- structure(list(PID = c(123L, 165L), Record_date = c("25-02-2009", 
"20-04-2017"), DOB = c("22-08-1944", "22-08-1944")), 
class = "data.frame", row.names = c(NA, -2L))

Answer 3

我使用这个功能：

age <- function(dob, age.day = today(), units = "years", floor = TRUE) {
  calc.age = interval(dob, age.day) / duration(num = 1, units = units)
  if (floor) return(as.integer(floor(calc.age)))
  return(calc.age)
}

Answer 4

这是一个基本的 R 解决方案。

diffyear <- function(x, y){
  d <- difftime(x, y)
  z <- as.integer(d)
  years <- as.Date(z, origin = "0000-01-01")
  format(years, "%Y")
}

df1$Record_date <- as.Date(df1$Record_date, "%d-%m-%Y")
df1$DOB <- as.Date(df1$DOB, "%d-%m-%Y")
diffyear(df1[[2]], df1[[3]])
#[1] "64" "72"

现在将返回值分配给新列。

Answer 5

附加解决方案

   library(tidyverse)
   library(lubridate)
    df %>% 
      mutate(across(c(Record_date, DOB), dmy),
             age = (Record_date - DOB) %/% dyears(1))
    
      PID Record_date        DOB age
    1 123  2009-02-25 1944-08-22  64
    2 165  2017-04-20 1944-08-22  72