2列の日付型データから，年齢列を計算させる方法を教えていただきたいです. #R #Rstudio

Question

次のような2列の日付型データから，新しく年齢列を作りたいです.

x1=c("2012-04-01","2015-05-01","2015-06-01","2017-08-01")
x1=as.Date(x1)
x2=c("2022-01-01","2022-01-01","2022-01-01","2022-01-01")
x2=as.Date(x2)
data=dataframe(x1,x2)

このデータに，x2-x1で計算される年齢列(age)を追加したいと考えています.
こちらのサイトを参考に，

data=mutate(data,age=length(seq(x1,x2,by ="year"))-1)

というコードを書いたのですが，

Error: Problem with `mutate()` column `age`.
ℹ `age = length(seq(x1, x2, by = "year")) - 1`.
x 'from' must be of length 1

というエラーが出ました.
おそらくseq()内のx1,x2が列名では受け付けられず，各データ("2012-04-01")を入れないといけない，ということかと思いますが，実際には，数千行に渡るデータを全て手入力で年齢列(age)を定義するわけにもいかないので，良い解決策を教えて頂きたいです.

Answer 1

lubridate パッケージを利用するのであれば以下になります。

> library("lubridate")
> data$age <- floor(time_length(difftime(data$x2, data$x1), "years"))
> data
          x1         x2 age
1 2012-04-01 2022-01-01   9
2 2015-05-01 2022-01-01   6
3 2015-06-01 2022-01-01   6
4 2017-08-01 2022-01-01   4

Comments

[m_m08]

パッケージを紹介してくださり，ありがとうございます。無事解決いたしました。