Comment trouver le plus haut (au plus tard) et la plus basse (la plus ancienne) date [R]

Je suis tenter de transformer deux colonnes dans mon dataframe de la "bonne" date & temps de classe, et jusqu'à maintenant n'ont pas beaucoup de succès avec elle. J'ai essayé différentes classes (timeDate, Date, timeSeries, POSIXct, POSIXlt) mais sans succès. Peut-être que je suis juste donnant sur l'évidence et parce que j'ai essayé tellement de nombreuses approches, je ne sais pas ce qu'il en est plus. J'espère que certains d'entre vous peuvent jeter quelque lumière sur l'endroit où je vais mal.

Objectif:
Je veux calculer la différence entre deux dates à l'aide de la première et la dernière date. J'ai eu ce travail avec head() et tail(), mais parce que ces valeurs ne sont pas nécessaires, la première et la dernière date de mes données, j'ai besoin d'une autre façon. (Je ne peux pas obtenir le tri des données pour travailler, parce qu'il trie les données uniquement le jour de la date.)

Deuxième but: je veux convertir les dates de format quotidien (c'est à dire 8-12-2010) hebdomadaire, mensuelle, annuelle et les niveaux (i.e. '49-2010', 'décembre-10", et à seulement '2010'). Cela peut être fait avec les paramètres de format (comme %d-%m-%y). Cela peut être fait avec de la conversion des données.cadre d'un temps de classe, et que la transformation de la timeclass dans le bon format (8-12-2010 -> format("%B-%y") -> 'december-10'), puis la transformation de ce temps de classe dans un facteur de niveaux pour chaque mois?

Pour ces deux objectifs, j'ai besoin de convertir les dateframe d'une certaine façon à un temps de classe, et c'est là que j'ai rencontré quelques difficultés.

Mon dataframe ressemble à ceci:

> tradesList[c(1,10,11,20),14:15] -> tmpTimes4
> tmpTimes4
   EntryTime ExitTime
1   01-03-07 10-04-07
10  29-10-07 02-11-07
11  13-04-07 14-05-07
20  18-12-07 20-02-08

Voici un résumé de ce que j'ai essayé:

> class(tmpTimes4)
[1] "data.frame"
> as.Date(head(tmpTimes4$EntryTimes, n=1), format="%d-%m-%y")
Error in as.Date.default(head(tmpTimes4$EntryTimes, n = 1), format = "%d-%m-%y") : 
do not know how to convert 'head(tmpTimes4$EntryTimes, n = 1)' to class "Date"
> as.timeDate(tmpTimes4, format="%d-%m-%y")
Error in as.timeDate(tmpTimes4, format = "%d-%m-%y") : 
unused argument(s) (format = "%d-%m-%y")
> timeSeries(tmpTimes4, format="%d-%m-%y")
Error in midnightStandard2(charvec, format) : 
'charvec' has non-NA entries of different number of characters
> tmpEntryTimes4 <- timeSeries(tmpTimes4$EntryTime, format="%d-%m-%y")
> tmpExitTimes4 <- timeSeries(tmpTimes4$ExitTime, format="%d-%m-%y")
> tmpTimes5 <- cbind(tmpEntryTimes4,tmpExitTimes4)
> colnames(tmpTimes5) <- c("Entry","Exit")
> tmpTimes5
Entry    Exit    
[1,] 01-03-07 10-04-07
[2,] 29-10-07 02-11-07
[3,] 13-04-07 14-05-07
[4,] 18-12-07 20-02-08
> class(tmpTimes5)
[1] "timeSeries"
attr(,"package")
[1] "timeSeries"
> as.timeDate(tmpTimes5, format="%d-%m-%y")
Error in as.timeDate(tmpTimes5, format = "%d-%m-%y") : 
unused argument(s) (format = "%d-%m-%y")
> as.Date(tmpTimes5, format="%d-%m-%y")
Error in as.Date.default(tmpTimes5, format = "%d-%m-%y") : 
do not know how to convert 'tmpTimes5' to class "Date"
> format.POSIXlt(tmpTimes5, format="%d-%m-%y", usetz=FALSE)
Error in format.POSIXlt(tmpTimes5, format = "%d-%m-%y", usetz = FALSE) : 
wrong class
> as.POSIXlt(tmpTimes5, format="%d-%m-%y", usetz=FALSE)
Error in as.POSIXlt.default(tmpTimes5, format = "%d-%m-%y", usetz = FALSE) : 
do not know how to convert 'tmpTimes5' to class "POSIXlt"
> as.POSIXct(tmpTimes5, format="%d-%m-%y", usetz=FALSE)
Error in as.POSIXlt.default(x, tz, ...) : 
do not know how to convert 'x' to class "POSIXlt"

La Heuredate paquets ont une fonction de "plage", toutefois, la conversion à la Date de la classe travaille pour une instance individuelle, mais pour une raison quelconque, pas pour un bloc de données:

> as.Date(tmpTimes4[1,1], format="%d-%m-%y")
[1] "2007-03-01"
> as.Date(tmpTimes4, format="%d-%m-%y")
Error in as.Date.default(tmpTimes4, format = "%d-%m-%y") : 
do not know how to convert 'tmpTimes4' to class "Date"

À ce point, j'ai failli croire que c'est impossible de le faire, de sorte que toute pensée serait très appréciée!

Ce qui concerne,

Vous pouvez utiliser dput(tmpTimes4) de fournir exacte dataset utiliser dans votre code.
Merci pour votre réponse! Je ne savais pas à propos de dput, donc merci pour l'astuce. 🙂

InformationsquelleAutor Jura | 2010-12-08

datetime r time

34

Commencer avec quelques données factices:
```
start <- as.Date("2010/01/01")
end <- as.Date("2010/12/31")
set.seed(1)
datewant <- seq(start, end, by = "days")[sample(15)]
tmpTimes <- data.frame(EntryTime = datewant, 
ExitTime = datewant + sample(100, 15))
## reorder on EntryTime so in random order
tmpTimes <- tmpTimes[sample(NROW(tmpTimes)), ]
head(tmpTimes)
```
nous avons donc quelque chose comme ceci:
```
> head(tmpTimes)
EntryTime   ExitTime
8  2010-01-14 2010-03-16
9  2010-01-05 2010-01-17
7  2010-01-10 2010-01-30
3  2010-01-08 2010-04-16
10 2010-01-01 2010-01-26
13 2010-01-12 2010-02-15
```
À l'aide de la ci-dessus, regardez Objectif 1, calculer la différence entre la première et la dernière date. Vous pouvez traiter les dates, comme s'ils étaient des nombres (c'est la façon dont ils sont stockés à l'intérieur de toute façon), donc des fonctions comme min() et max() fonctionne. Vous pouvez utiliser le difftime() fonction:
```
> with(tmpTimes, difftime(max(EntryTime), min(EntryTime)))
Time difference of 14 days
```
ou de l'utilisation standard de la soustraction
```
> with(tmpTimes, max(EntryTime) - min(EntryTime))
Time difference of 14 days
```
pour obtenir la différence en jours. head() et tail() ne fonctionnera que si vous trier les dates que celles-ci prennent la première et la dernière valeur dans un vecteur, pas le plus haut et le plus bas de la valeur réelle.

Objectif 2: Vous semblez être d'essayer de convertir un bloc de données à une Date. Vous ne pouvez pas faire cela. Ce que vous pouvez faire est de reformater les données dans le composants de la trame de données. Ici, j'ai ajouter des colonnes à tmpTimes en reformatant le EntryTime colonne en plusieurs résumés de la date.
```
tmpTimes2 <- within(tmpTimes, weekOfYear <- format(EntryTime, format = "%W-%Y"))
tmpTimes2 <- within(tmpTimes2, monthYear <- format(EntryTime, format = "%B-%Y"))
tmpTimes2 <- within(tmpTimes2, Year <- format(EntryTime, format = "%Y"))
```
Donner:
```
> head(tmpTimes2)
EntryTime   ExitTime weekOfYear    monthYear Year
8  2010-01-14 2010-03-16    02-2010 January-2010 2010
9  2010-01-05 2010-01-17    01-2010 January-2010 2010
7  2010-01-10 2010-01-30    01-2010 January-2010 2010
3  2010-01-08 2010-04-16    01-2010 January-2010 2010
10 2010-01-01 2010-01-26    00-2010 January-2010 2010
13 2010-01-12 2010-02-15    02-2010 January-2010 2010
```
Si vous êtes Américain ou à utiliser l'US convention pour le début de la semaine (%W commence la semaine sur une lundi, en NOUS, de la convention est de commencer un dimanche), changer le %W à %U. ?strftime a plus de détails de ce que %W et %U représentent.

Un dernier point sur format des données: ci-dessus, j'ai travaillé avec des dates dans la norme R format. Vous avez vos données stockées dans un bloc de données dans un non-standard de balisage, sans doute que des personnages ou des facteurs. Si vous avez quelque chose comme:
```
tmpTimes3 <- within(tmpTimes, 
EntryTime <- format(EntryTime, format = "%d-%m-%y"))
tmpTimes3 <- within(tmpTimes3, 
ExitTime <- format(ExitTime, format = "%d-%m-%y"))
> head(tmpTimes3)
EntryTime ExitTime
8   14-01-10 16-03-10
9   05-01-10 17-01-10
7   10-01-10 30-01-10
3   08-01-10 16-04-10
10  01-01-10 26-01-10
13  12-01-10 15-02-10
```
Vous avez besoin de convertir ces caractères ou des facteurs de quelque chose de R comprend comme une date. Ma préférence serait le "Date" classe. Avant d'essayer les réponses ci-dessus avec vos données, de convertir vos données dans le format correct:
```
tmpTimes3 <- 
within(tmpTimes3, {
EntryTime <- as.Date(as.character(EntryTime), format = "%d-%m-%y")
ExitTime <- as.Date(as.character(ExitTime), format = "%d-%m-%y")
})
```
afin que vos données ressemble à ceci:
```
> head(tmpTimes3)
EntryTime   ExitTime
8  2010-01-14 2010-03-16
9  2010-01-05 2010-01-17
7  2010-01-10 2010-01-30
3  2010-01-08 2010-04-16
10 2010-01-01 2010-01-26
13 2010-01-12 2010-02-15
> str(tmpTimes3)
'data.frame':   15 obs. of  2 variables:
$ EntryTime:Class 'Date'  num [1:15] 14623 14614 14619 14617 14610 ...
$ ExitTime :Class 'Date'  num [1:15] 14684 14626 14639 14715 14635 ...
```
- Wow Gavin, merci beaucoup! Vous m'a vraiment aidé, non seulement avec le code de l'exemple, mais aussi avec l'excellent (et claire) du texte. Merci encore, je comprends maintenant complètement, et tout juste réussi à calculer le nombre de jours, en transformant les dates, et en affichant le resultat par période de temps. Oui! 🙂
- content que vous avez trouvé utile.
- En effet, min et max de travail pour la date, mais si vous avez des NA dans votre colonne date, des moyens d'utiliser le na.rm=TRUE par exemple, année stellaire< min(DateofTest,na.rm=TRUE). Épargnez-vous le laisse perplexe de se gratter la tête.
- La seule raison pour NA dans un Date variable est une date non valide (c'est à dire le format est incorrect, ou à une date qui n'existe pas). Je ne pense pas ignorer que c'est une bonne chose et vous devez enquêter sur le pourquoi de la NAs sont là. Si elles sont là parce que vous n'avez pas d'enregistrer la date, se débarrasser d'eux; si vous ne connaissez pas la date de la données est inutile.
- grande réponse. Petite faute de frappe dans "> avec(tmpTimes, difftime(max(EntryTime), principal(EntryTime))) la différence de Temps de 14 jours" que devrait être la fonction min() pas de main()?
- Merci pour ça; maintenant corrigé.
InformationsquelleAutor Gavin Simpson

Réponse courte:

Convertir à ce jour si ce n'est déjà fait.

Ensuite utiliser min et max sur la liste
de dates.

date_list = structure(c(15401, 15405, 15405), class = "Date")
date_list
#[1] "2012-03-02" "2012-03-06" "2012-03-06"
min(date_list)
#[1] "2012-03-02"
max(date_list)
#[1] "2012-03-06"

InformationsquelleAutor tucson

Vous devez vous connecter pour publier un commentaire.