通过将周期类对象与 R 中的 lubridate 相加来计算以年和月为单位的年龄

Question

我的数据有一个关于基线年龄的变量，以及一个关于基线观察后月数的后续变量。两者都是只有整数的数字向量。我想计算随访时的年龄。当我使用 lubridate 将这些变量解析为周期对象并将它们相加时，我得到的结果类似于 5 年 14 个月。理想情况下 - 我希望这是 6 年 2 个月。

例子

library(dplyr)
library(lubridate)
library(magrittr)

set.seed(080617)
df <- 
  tibble(year = sample(20),
     month = sample(20))

df %<>% 
  mutate(year = years(year)) %>% 
  mutate(month = months(month)) %>%
  mutate(age = (year + month))
df

我尝试使用df$age <- as.period(df$age, units = "years") 无济于事。

有什么建议吗？

Answer 1

这应该会为您提供您正在寻找的结果。我将列名更改为 year.col 和 month.col，以便更容易遵循逻辑

library(dplyr)
library(lubridate)
library(magrittr)

set.seed(080617)
df <- 
  tibble(year.col = sample(20),
         month.col = sample(20))

df %<>% 
  mutate(year.col = years(year.col)) %>% 
  mutate(month.col = months(month.col)) %>%
  mutate(age = year.col + years(month(month.col) %/% 12) + months(month(month.col) %% 12))