R-从年龄和事件日期开始计算出生日期

Question

我有两个列，一个与年龄相关的列。（34）和另一列，包括事件的日期，例如（2019-04-26：01：20：51）。我想创建一个新列，该列根据上述两列返回出生日期）。非常感谢您的帮助。

Answer 1

由于没有可用的示例数据，因此我使用提供的数据创建了一个示例数据框架。代码片段如下。您无需为此使用任何外部软件包。而是as.POSIXlt应该足够。

df <- data.frame(event = c("2019-04-26 01:20:51"), age = c(34)) 
df$event <- as.POSIXlt(x = df$event, format = "%Y-%m-%d %H:%M:%S") # define format here    
#df$approx_DOB <- (df$event$year+1900)-df$age # 1900 to get actual year
df$approx_DOB <- NA
df$approx_DOB <- df$event
df$approx_DOB$year <- (df$event$year) - df$age # no 1900, since editing the age directly
df$YearOfBirth <- NA
df$YearOfBirth <- (df$event$year+1900) - df$age # Gives year alone

ouput：

    > df
                event age          approx_DOB YearOfBirth
1 2019-04-26 01:20:51  34 1985-04-26 01:20:51        1985

奖励：您可以使用$进一步访问POSIXLT对象的元素，并指定所需类型（例如：year，mon，mday等）。因此，可以格式化approx_DOB列。检查此答案以获取更多信息。

Answer 2

这是另一个示例，带有整理和润滑。我相信这是一个更好的解决方案，因为我将仅计算出本年份的出生日期，并且使用大数据集，您的计算更快。积极的全约日期不会给您确切的出生日期，可能会出现一些巨大的问题。因此，这是我的解决方案：

library(tidyverse)
library(lubridate)
df <- tibble::tibble(event = c("2018-04-26 02:30:10"), age = c(34))
df_separate <- df %>%
  dplyr::mutate(year = as.numeric(lubridate::year(event)), 
                DOB_Y_approximated = year - age)

您会得到确切的出生年份，我认为这是更好的输出。

  # A tibble: 1 x 4
  event                 age  year DOB_Y_approximated
  <chr>               <dbl> <dbl>              <dbl>
1 2018-04-26 02:30:10    34  2018               1984