Calculer l'âge en années et mois en ajoutant des objets de classe de période avec lubrifier dans R

Question

Mes données ont une variable pour l'âge de base, et une variable de suivi avec le nombre de mois depuis l'observation de base. Les deux sont des vecteurs numériques avec des nombres entiers seulement. Je veux calculer l'âge au suivi. Lorsque j'analyse ces variables pour les objets de période en utilisant lubrifier et les ajouter ensemble, j'obtiens des résultats comme 5 ans 14 mois. Idéalement, j'aimerais que ce soit 6 ans et 2 mois.

Exemple

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 

J'ai essayé d'utiliser df$age <- as.period(df$age, units = "years") en vain.

Des suggestions?

Answer 1

Ceci devrait vous permettre d'obtenir le résultat que vous recherchez. J'ai changé les noms de colonnes pour year.col et month.col, pour le rendre plus facile à suivre la logique

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))