计算两个日期变量之间的年数并在R中添加“年龄”变量[重复]

Question

我对 R 编程比较陌生，并且在尝试计算我创建的 2 个日期变量之间的年龄时遇到了问题。更喜欢使用 lubridate、tidyr、tidyverse、dplyr 包，因为我正在尝试学习这些特定的包，但我对最好的包持开放态度。数据来自拉赫曼棒球图书馆。请随意重写我糟糕的代码。

我的代码如下：

library(pacman)
p_load("tidyverse", "dplyr", "ggplot2", "lubridate", "stats", "Lahman")

#sort Batting dataset by playerID
Batting.df <- Batting[order(Batting$playerID), ]

#sort Master dataset by playerID
Master.df <- Master[order(Master$playerID), ]

#select variables to keep from Master df
Master.df <- Master.df %>% select(playerID, birthDay, birthMonth, birthYear, nameFirst, nameLast)

#merge Master.df and Batting.df
Batting.df = merge (Batting.df, Master.df, by = "playerID")

#concatenate first and last name
Batting.df <- unite(Batting.df, Name, c(nameFirst, nameLast), sep = ' ', remove = TRUE)

#drop NA values to avoid incorrect calculations of age
Batting.df <- Batting.df %>% tidyr::drop_na(c(birthDay, birthMonth, birthYear)) 

#add variable of DOB
Batting.df <- Batting.df %>% tidyr::unite(DOB, c(birthMonth, birthDay, birthYear), sep = "-") %>%
            dplyr::mutate(DOB = lubridate::parse_date_time(DOB, "mdy"))

#add variable of opening day by season
Batting.df <- Batting.df %>% dplyr::mutate(openingMonth = 4) %>% 
            dplyr::mutate(openingDay = 1) %>%
            tidyr::unite(seasonBegin, c(openingMonth, openingDay, yearID), sep = "-") %>%
            dplyr::mutate(seasonBegin = lubridate::parse_date_time(seasonBegin, "mdy"))

我的问题是如何通过查找“DOB”和“seasonBegin”之间的年数来创建和添加“Age”变量？我试过 with(), lubridate::time_length()，但不能让它们工作，我发现的例子是针对特定日期的，而不是变量。

任何帮助将不胜感激。

Answer 1

试试这个：

Batting.df %>% dplyr::mutate(openingMonth = 4) %>% 
  dplyr::mutate(openingDay = 1) %>%
  tidyr::unite(seasonBegin, c(openingMonth, openingDay, yearID), sep = "-") %>%
  dplyr::mutate(seasonBegin = lubridate::parse_date_time(seasonBegin, "mdy"),
                Age=as.numeric(difftime(seasonBegin, DOB, units="days")/365.25))

difftime 函数中没有“年”单位，因此将天数除以 365.25 并删除单位 (as.numeric)。

Answer 2

这也很有效：

Batting.df <- Batting.df %>% dplyr::mutate(openingMonth = 4) %>% 
         dplyr::mutate(openingDay = 1) %>%
         tidyr::unite(seasonBegin, c(openingMonth, openingDay, yearID), sep = "-") %>%
         dplyr::mutate(seasonBegin = lubridate::parse_date_time(seasonBegin, "mdy")) %>% 
         dplyr::mutate(Age = DOB %--% seasonBegin/years(1))