Calculer le nombre de jours entre deux dates dans la r

J'ai besoin de calculer le nombre de jours écoulés entre plusieurs dates en deux façons et puis la sortie de ces résultats à de nouvelles colonnes: i) le nombre de jours qui s'est écoulé par rapport à la première date (par exemple, les RÉSULTATS de DOLLARS) et ii) entre séquentielle dates (par exemple, les RÉSULTATS de DOLLARS ENTRE). Voici un exemple avec les résultats souhaités. Merci à l'avance.

library(lubridate)

DATA = data.frame(DATE = mdy(c("7/8/2013",  "8/1/2013", "8/30/2013", "10/23/2013", 
                                   "12/16/2013", "12/16/2015")))

RESULTS  = data.frame(DATE = mdy(c("7/8/2013",  "8/1/2013", "8/30/2013", "10/23/2013", 
                                       "12/16/2013", "12/16/2015")), 
                  FIRST = c(0, 24, 53, 107, 161, 891), BETWEEN = c(0, 24, 29, 54, 54, 730))

OriginalL'auteur Vesuccio | 2015-02-27

  1. 10
    #Using dplyr package
library(dplyr)
df1 %>%  # your dataframe
mutate(BETWEEN0=as.numeric(difftime(DATE,lag(DATE,1))),BETWEEN=ifelse(is.na(BETWEEN0),0,BETWEEN0),FIRST=cumsum(as.numeric(BETWEEN)))%>%
select(-BETWEEN0)
            DATE BETWEEN FIRST
    1 2013-07-08       0     0
    2 2013-08-01      24    24
    3 2013-08-30      29    53
    4 2013-10-23      54   107
    5 2013-12-16      54   161
    6 2015-12-16     730   891
    Merci à tous! Je devrais l'avoir mentionné dans la question, mais je suis en train d'écrire flexible code (par exemple, le nombre de dates peuvent changer entre les ensembles de données) et d'éviter les boucles for. Ainsi, alors que toutes les réponses ont travaillé, des mesures de réponse est apparue la plus flexible. Merci encore et prenez soin de vous!

    OriginalL'auteur Metrics

  2. 1

    Ainsi, vous obtenez ce que vous voulez:

    d <- as.Date(DATA$DATE, format="%m/%d/%Y")

first <- c()
for (i in seq_along(d))
    first[i] <- d[i] - d[1]

between <- c(0, diff(d))

    Il utilise le as.Date() fonction dans le module de base pour lancer le vecteur de la chaîne de dates de valeurs de date en utilisant le format donné. Puisque vous avez des dates au format mois/jour/année, vous spécifiez format="%m/%d/%Y" pour s'assurer qu'il est correctement interprété.

    diff() est l'été à la traîne de différence. Depuis qu'il est à la traîne, il ne comprend pas la différence entre l'élément 1 et lui-même, de sorte que vous pouvez concaténer un 0.

    Différences entre Date objets sont donnés en jours par défaut.

    Puis la construction de la sortie dataframe est simple:

    RESULTS <- data.frame(DATE=DATA$DATE, FIRST=first, BETWEEN=between)

    OriginalL'auteur Alex A.

  3. 0

    Pour la première partie:

    DATA = data.frame((c("7/8/2013",  "8/1/2013", "8/30/2013", "10/23/2013","12/16/2013", "12/16/2015")))
names(DATA)[1] = "V1"
date = as.Date(DATA$V1, format="%m/%d/%Y")
print(date-date[1])

    Résultat:

    [1]   0  24  53 107 161 891

    Pour la deuxième partie: il suffit d'utiliser un for boucle

    OriginalL'auteur Alexey Ferapontov

  4. 0

    Vous pouvez juste ajouter chaque colonne avec la simple difftime et à la traîne diff calculs.

    DATA$FIRST <- c(0, 
                with(DATA, 
                     difftime(DATE[2:length(DATE)],DATE[1], unit="days")
                     )
                )
DATA$BETWEEN <- c(0, 
                  with(DATA, 
                       diff(DATE[1:(length(DATE) - 1)], unit="days")
                       )
                  )

identical(DATA, RESULTS)
[1] TRUE

    OriginalL'auteur cdeterman