r - 如何将年、月、日的年龄转换为带小数的年

Question

假设我有一个字符串

   age<-c("7y2m4d","5m4d","7y5m6d")

我想把它转换成一个数字向量，比如

  c(7.34, 0.43, 7.43)

如何制作R代码？

我们可以假设一年有 365 天，一个月有 365/12 天。

Answer 1

lubridate::duration 会将您的字符串转换为(大约)秒。

library(lubridate)
library(magrittr)
age <- c("7y2m4d", "5m4d", "7y5m6d")

age_sec <- age %>%
  duration() %>%
  as.numeric()

age_sec
[1] 226508400  13494600 234570600

那么您可以将年份近似为 365 * 24 * 60 * 60 秒:

age_sec / (365 * 24 * 60 * 60)
[1] 7.182534 0.427911 7.438185