R: использование lubridate для расчета возраста - PullRequest
0 голосов
/ 26 июня 2018
library(plyr)
library(dplyr)
library(lubridate)

d.in <- read.csv("C:/Users/Person/Documents/dataset.csv")
d.in <- mutate(d.in, dob=mdy(dob))
summary(d.in$dob)

d.in <- mutate(d.in, dob = mdy(dob), hosp_admission = mdy(hosp_admission))
d.in <- mutate(d.in, age_at_admission = 
interval(dob,hosp_admission)/dyears(1))

Используя этот код, я получаю следующее сообщение: Предупреждающее сообщение: Все форматы не удалось разобрать. Форматы не найдены.

Кроме того, меняются все мои даты рождения и возраст при поступлении в Н / Д.

Ответы [ 2 ]

0 голосов
/ 26 июня 2018

В lubridate мы можем использовать decimal_year с floor

# Generate some sample data
d.in <- data.frame(
    dob = c("01-30-1978", "02-10-1960", "03-04-1990"),
    hosp_admission = c("12-20-2015", "06-15-2000", "07-06-2017"))

library(lubridate);
library(tidyverse);
    d.in %>%
        mutate(
            dob = mdy(dob),
            hosp_admission = mdy(hosp_admission),
            age = floor(decimal_date(hosp_admission) - decimal_date(dob)))
#         dob hosp_admission age
#1 1978-01-30     2015-12-20  37
#2 1960-02-10     2000-06-15  40
#3 1990-03-04     2017-07-06  27
0 голосов
/ 26 июня 2018

Не уверен, требуется ли использовать lubridate, но функция age в пакете MESS вычисляет возраст (в годах) между двумя датами:

born <- c("1971-08-18", "2000-02-28", "2001-12-20")
check <- c("2018-06-26")
MESS::age(born, check)

, который возвращает

[1] 46 16 14
...