周期クラスオブジェクトを追加して年月を計算します。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

これは、あなたが探している結果を得るはずです。私は、私はあなたの月の変数に/％ `％`と `%%`演算子を使用してお勧めしたい、それが簡単にロジックに

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