Calculer les âges en R

J'ai deux trames de données dans R. Une image a une des personnes à l'année de naissance:

YEAR
/1931
/1924

et puis une autre colonne affiche une époque plus récente.

RECENT
09/08/2005
11/08/2005

Ce que je veux faire est de soustraire les ans afin que je puisse calculer leur âge, en nombre d'années, mais je ne suis pas sûr de savoir comment aborder cette. Toute aide, s'il vous plaît?

source d'informationauteur Brian

date r

La fonction suivante prend un des vecteurs de la Date d'objets et calcule les âges, correctement comptables pour les années bissextiles. Semble être une solution plus simple que toutes les autres réponses.

age = function(from, to) {
  from_lt = as.POSIXlt(from)
  to_lt = as.POSIXlt(to)

  age = to_lt$year - from_lt$year

  ifelse(to_lt$mon < from_lt$mon |
         (to_lt$mon == from_lt$mon & to_lt$mday < from_lt$mday),
         age - 1, age)
}

8

Vous pouvez résoudre ce problème avec la lubridate paquet.
```
> library(lubridate)
```
Je ne pense pas que /1931 est une commune de la classe date. Je vais donc assumer toutes les entrées sont des chaînes de caractères.
```
> RECENT <- data.frame(recent = c("09/08/2005", "11/08/2005"))
> YEAR <- data.frame(year = c("/1931", "/1924"))
```
Tout d'abord, nous allons aviser R que les dernières dates sont des dates. Je pars du principe que les dates sont au format mois/jour/an, donc j'utilise mdy(). Si ils sont à jour/mois/année pour simplement utiliser dmy().
```
> RECENT$recent <- mdy(RECENT$recent)
      recent
1 2005-09-08
2 2005-11-08
```
Maintenant, permet de tourner les ans dans les numéros de sorte que nous pouvons faire des calculs avec eux.
```
> YEAR$year <- as.numeric(substr(YEAR$year, 2, 5))
```
Maintenant il suffit de faire le calcul. année() extraits de la valeur de l'année de la RÉCENTE dates.
```
> year(RECENT$recent) - YEAR
  year
1   74
2   81
```
p.s. si votre année les inscriptions sont en fait plein de dates, vous pouvez obtenir la différence dans les années à
```
> YEAR1 <- data.frame(year = mdy("01/08/1931","01/08/1924"))
> as.period(RECENT$recent - YEAR1$year, units = "year")
[1] 74 years and 8 months   81 years and 10 months
```

- Je utiliser une fonction personnalisée, voir code ci-dessous, pratique à utiliser dans le muter et très flexible (vous aurez besoin de la lubridate package).

Exemples

get_age("2000-01-01")
# [1] 17
get_age(lubridate::as_date("2000-01-01"))
# [1] 17
get_age("2000-01-01","2015-06-15")
# [1] 15
get_age("2000-01-01",dec = TRUE)
# [1] 17.92175
get_age(c("2000-01-01","2003-04-12"))
# [1] 17 14
get_age(c("2000-01-01","2003-04-12"),dec = TRUE)
# [1] 17.92176 14.64231

Fonction

#' Get age
#' 
#' Returns age, decimal or not, from single value or vector of strings
#' or dates, compared to a reference date defaulting to now. Note that
#' default is NOT the rounded value of decimal age.
#' @param from_date vector or single value of dates or characters
#' @param to_date date when age is to be computed
#' @param dec return decimal age or not
#' @examples
#' get_age("2000-01-01")
#' get_age(lubridate::as_date("2000-01-01"))
#' get_age("2000-01-01","2015-06-15")
#' get_age("2000-01-01",dec = TRUE)
#' get_age(c("2000-01-01","2003-04-12"))
#' get_age(c("2000-01-01","2003-04-12"),dec = TRUE)
get_age <- function(from_date,to_date = lubridate::now(),dec = FALSE){
  if(is.character(from_date)) from_date <- lubridate::as_date(from_date)
  if(is.character(to_date))   to_date   <- lubridate::as_date(to_date)
  if (dec) { age <- lubridate::interval(start = from_date, end = to_date)/(lubridate::days(365)+lubridate::hours(6))
  } else   { age <- lubridate::year(lubridate::as.period(lubridate::interval(start = from_date, end = to_date)))}
  age
}

Vous pouvez faire un peu de mise en forme:

as.numeric(format(as.Date("01/01/2010", format="%m/%d/%Y"), format="%Y")) - 1930

Avec vos données:

> yr <- c(1931, 1924)
> recent <- c("09/08/2005", "11/08/2005")
> as.numeric(format(as.Date(recent, format="%m/%d/%Y"), format="%Y")) - yr
[1] 74 81

Puisque vous avez vos données dans un ensemble de données.cadre (je vais supposer que c'est appelé df), il sera plus comme ceci:

as.numeric(format(as.Date(df$recent, format="%m/%d/%Y"), format="%Y")) - df$year

Les données dans votre exemple:

> m <- data.frame(YEAR=c("/1931", "/1924"),RECENT=c("09/08/2005","11/08/2005"))
> m
   YEAR     RECENT
1 /1931 09/08/2005
2 /1924 11/08/2005

Extrait année avec le strptime fonction:

> strptime(m[,2], format = "%m/%d/%Y")$year - strptime(m[,1], format = "/%Y")$year
[1] 74 81

1

Basée sur la réponse précédente, convertir vos colonnes à la date d'objets et de soustraction. Certains de conversion de types entre le personnage et le numérique est nécessaire:
```
> foo=data.frame(RECENT=c("09/08/2005","11/08/2005"),YEAR=c("/1931","/1924"))
> foo
      RECENT  YEAR
1 09/08/2005 /1931
2 11/08/2005 /1924
> foo$RECENTd = as.Date(foo$RECENT, format="%m/%d/%Y")
> foo$YEARn = as.numeric(substr(foo$YEAR,2,999))
> foo$AGE = as.numeric(format(foo$RECENTd,"%Y")) - foo$YEARn
> foo
      RECENT  YEAR    RECENTd YEARn AGE
1 09/08/2005 /1931 2005-09-08  1931  74
2 11/08/2005 /1924 2005-11-08  1924  81
```
Remarque j'ai supposé que vous avez que la barre oblique dans votre colonne d'année.

Aussi, astuce pour quand vous posez des questions sur les dates, c'est d'inclure un jour est au-delà de la douzième donc, nous savons que si vous êtes un jour/mois/année personne ou jour/mois/année personne.
1

Je pense que cela pourrait être un peu plus intuitive et ne nécessite pas de mise en forme ou de décapage:
```
as.numeric(as.Date("2002-02-02") - as.Date("1924-08-03")) / 365
```
donne de sortie:
```
77.55342
```
Ensuite, vous pouvez utiliser floor(), round(), ou au plafond() pour arrondir à un nombre entier.

Vraiment de manière solide qui supporte également les vecteurs à l'aide de la lubridate package:

age <- function(date.birth, date.ref = Sys.Date()) {
  if (length(date.birth) > 1 & length(date.ref) == 1) {
    date.ref <- rep(date.ref, length(date.birth))
  }

  date.birth.monthdays <- paste0(month(date.birth), day(date.birth)) %>% as.integer()
  date.ref.monthdays <- paste0(month(date.ref), day(date.ref)) %>% as.integer()

  age.calc <- 0

  for (i in 1:length(date.birth)) {
    if (date.birth.monthdays[i] <= date.ref.monthdays[i]) {
      # didn't had birthday
      age.calc[i] <- year(date.ref[i]) - year(date.birth[i])
    } else {
      age.calc[i] <- year(date.ref[i]) - year(date.birth[i]) - 1
    }
  }
  age.calc
}

Présente également des comptes pour les années bissextiles. Je viens de vérifier, si quelqu'un a eu un anniversaire déjà.

Vous devez vous connecter pour publier un commentaire.