r - 与 lubridate 的时差(以年为单位)？

Question

我想用 lubridate根据他们的出生日期和今天的日期计算年龄。现在我有这个:

library(lubridate)
today<-mdy(08312015)
dob<-mdy(09071982)
today-dob

这给了我他们的天数。

Answer 1

这是lubridate我会采取的方法:

interval(dob, today) / years(1)

产生32的答案年。

请注意，该函数会提示它无法表达一年中的剩余部分。这是因为年份不是一个固定的概念，即闰年为 366，非闰年为 365。您可以获得有关周数和天数的更多详细信息:

interval_period = interval(dob, today)
full_year = interval_period %/% years(1)
remaining_weeks = interval_period %% years(1) %/% weeks(1)
remaining_days = interval_period %% years(1) %% weeks(1) %/% days(1)
sprintf('Your age is %d years, %d weeks and %d days', full_year, remaining_weeks, remaining_days)
# [1] "Your age is 32 years, 51 weeks and 1 days"

请注意，我使用 %/%用于除法和 %%作为模数减去整年/周后得到剩余的周/天。