通过在 R 中将周期类对象与润滑剂一起添加来计算以年和月为单位的年龄

Question

我的数据有一个基线年龄变量，还有一个自基线观察以来的月数的随访变量。两者都是只有整数的数字向量。 我想在随访时计算年龄。当我使用润滑剂将这些变量解析为周期对象并将它们加在一起时，我得到的结果是 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))