Änderung Datum-format in R

Ich habe einige sehr einfache Daten in R, muss das Datumsformat geändert:

 date midpoint
1   31/08/2011   0.8378
2   31/07/2011   0.8457
3   30/06/2011   0.8147
4   31/05/2011   0.7970
5   30/04/2011   0.7877
6   31/03/2011   0.7411
7   28/02/2011   0.7624
8   31/01/2011   0.7665
9   31/12/2010   0.7500
10  30/11/2010   0.7734
11  31/10/2010   0.7511
12  30/09/2010   0.7263
13  31/08/2010   0.7158
14  31/07/2010   0.7110
15  30/06/2010   0.6921
16  31/05/2010   0.7005
17  30/04/2010   0.7113
18  31/03/2010   0.7027
19  28/02/2010   0.6973
20  31/01/2010   0.7260
21  31/12/2009   0.7154
22  30/11/2009   0.7287
23  31/10/2009   0.7375

Eher als %d/%m/%Y möchte ich es in den standard-R-format von %Y-%m-%d

Wie kann ich diese ändern? Ich habe versucht:

nzd$date <- format(as.Date(nzd$date), "%Y/%m/%d")

Aber, dass gerade schneiden Sie das Jahr und die zusätzlichen Nullen an den Tag:

 [1] "0031/08/20" "0031/07/20" "0030/06/20" "0031/05/20" "0030/04/20"
 [6] "0031/03/20" "0028/02/20" "0031/01/20" "0031/12/20" "0030/11/20"
 [11] "0031/10/20" "0030/09/20" "0031/08/20" "0031/07/20" "0030/06/20"
 [16] "0031/05/20" "0030/04/20" "0031/03/20" "0028/02/20" "0031/01/20"
 [21] "0031/12/20" "0030/11/20" "0031/10/20" "0030/09/20" "0031/08/20"
 [26] "0031/07/20" "0030/06/20" "0031/05/20" "0030/04/20" "0031/03/20"
 [31] "0028/02/20" "0031/01/20" "0031/12/20" "0030/11/20" "0031/10/20"
 [36] "0030/09/20" "0031/08/20" "0031/07/20" "0030/06/20" "0031/05/20"

Dank!

InformationsquelleAutor A.Krueger | 2011-09-16
  1. 43

    Gibt es zwei Schritte hier:

    • Die Daten analysieren. Dein Beispiel ist nicht vollständig reproduzierbar ist, ist die Daten in eine Datei, oder die variable in einem text-oder Faktor-variable? Lassen Sie uns annehmen, letztere, wenn Sie dann Daten.frame heisst X, die Sie tun können,
     X$newdate <- strptime(as.character(X$date), "%d/%m/%Y")

    Nun die newdate Spalte muss vom Typ Date.

    • Format der Daten. Das ist eine Frage von Berufung format() oder strftime():
     format(X$newdate, "%Y-%m-%d")

    Ein vollständigeres Beispiel:

    R> nzd <- data.frame(date=c("31/08/2011", "31/07/2011", "30/06/2011"), 
+                    mid=c(0.8378,0.8457,0.8147))
R> nzd
        date    mid
1 31/08/2011 0.8378
2 31/07/2011 0.8457
3 30/06/2011 0.8147
R> nzd$newdate <- strptime(as.character(nzd$date), "%d/%m/%Y")
R> nzd$txtdate <- format(nzd$newdate, "%Y-%m-%d")
R> nzd
        date    mid    newdate    txtdate
1 31/08/2011 0.8378 2011-08-31 2011-08-31
2 31/07/2011 0.8457 2011-07-31 2011-07-31
3 30/06/2011 0.8147 2011-06-30 2011-06-30
R>

    Den Unterschied zwischen den Spalten drei und vier ist der Typ: newdate ist Klasse Date in der Erwägung, dass txtdate Charakter ist.

    • hmm, das scheint sehr kompliziert für ein noob. Ich landete nur die änderung der Formatierung in excel und liest csv-Datei wieder in R. ich war zu wollen wissen, wie Sie leicht ändern Sie es in R den Fall, ich hatte eine viel größere Datei, aber das scheint nicht annähernd so einfach, wie es sein sollte. Das ist keine leichte auf deine Lösung, ich habe nur gehofft, es war viel einfacher (möglicherweise ein Weg, um zu konvertieren die Spalte "original" ohne eine neue erstellen). Gibt es eine Möglichkeit, die Klasse zu wechseln und erst dann formatieren?
    • Das ist im Grunde das, was Dirk ' s Antwort war zu zeigen, wie Sie tun, obwohl er erstellt einige neue Spalten auf dem Weg, so können Sie leicht sehen, was passiert "unter der Haube". Ich empfehle zu Fuß durch sein Beispiel Zeile einfügen str(x) zwischen jeder Zeile, so dass Sie sehen können, die Unterschiede in Aktion.
    • Vielen Dank ich Schätze die zusätzliche Spalte für pädagogische Zwecke und es half mir die class-Unterschied als auch das format; so vielen Dank dafür! Gut zu wissen, dass der zusätzliche Schritt mit der zusätzlichen Spalte ist nicht unbedingt notwendig. Vielen Dank an Sie beide!
    InformationsquelleAutor Dirk Eddelbuettel
  2. 7
    nzd$date <- format(as.Date(nzd$date), "%Y/%m/%d")

    In der obigen Stück code, es gibt zwei Fehler. Zuerst von allen,, wenn Sie Lesen nzd$date innen as.Date Sie nicht zu erwähnen, in welches format Sie die Einspeisung der date. Also, es versucht es den default format, um es zu Lesen. Wenn Sie sehen, die help doc, ?as.Date sehen Sie

    format

    Eine Zeichenfolge. Wenn nicht angegeben, wird es versuchen, "%Y-%m-%d"
    dann "%Y/%m/%d" auf dem ersten nicht-NA-element, und geben eine Fehlermeldung
    wenn weder Werke. Ansonsten, die Verarbeitung ist über strptime

    Der zweite Fehler ist: auch wenn Sie es Lesen möchten in %Y-%m-%d - format, im inneren format Sie schrieb "%Y/%m/%d".

    Nun, den richtigen Weg, es zu tun ist: 

    > nzd <- data.frame(date=c("31/08/2011", "31/07/2011", "30/06/2011"), 
+                                       mid=c(0.8378,0.8457,0.8147))
> nzd
        date    mid
1 31/08/2011 0.8378
2 31/07/2011 0.8457
3 30/06/2011 0.8147
> nzd$date <- format(as.Date(nzd$date, format = "%d/%m/%Y"), "%Y-%m-%d")
> head(nzd)
        date    mid
1 2011-08-31 0.8378
2 2011-07-31 0.8457
3 2011-06-30 0.8147
    InformationsquelleAutor hi15
  3. 5

    Können Sie auch das parse_date_time Funktion aus der lubridate Paket:

    library(lubridate)
day<-"31/08/2011"
as.Date(parse_date_time(day,"dmy"))
[1] "2011-08-31"

    parse_date_time gibt eine POSIXct Objekt, so verwenden wir as.Date um ein date-Objekt. Das erste argument parse_date_time gibt einen aktuellen Vektor, der das zweite argument legt die Reihenfolge fest, in welchem format Auftritt. Die orders argument macht parse_date_time sehr flexibel.

    InformationsquelleAutor Ben Rollert
  4. 3

    Nach der Lektüre Ihrer Daten über eine textConnection, Folgendes scheint zu funktionieren:

    dat <- read.table(textConnection(txt), header = TRUE)
dat$date <- strptime(dat$date, format= "%d/%m/%Y")
format(dat$date, format="%Y-%m-%d")

> format(dat$date, format="%Y-%m-%d")
 [1] "2011-08-31" "2011-07-31" "2011-06-30" "2011-05-31" "2011-04-30" "2011-03-31"
 [7] "2011-02-28" "2011-01-31" "2010-12-31" "2010-11-30" "2010-10-31" "2010-09-30"
[13] "2010-08-31" "2010-07-31" "2010-06-30" "2010-05-31" "2010-04-30" "2010-03-31"
[19] "2010-02-28" "2010-01-31" "2009-12-31" "2009-11-30" "2009-10-31"

> str(dat)
'data.frame':   23 obs. of  2 variables:
 $ date    : POSIXlt, format: "2011-08-31" "2011-07-31" "2011-06-30" ...
 $ midpoint: num  0.838 0.846 0.815 0.797 0.788 ...
    • Ändert sich dadurch die Art zuerst und dann formatieren ?
    • richtig.
    • Ich habe eine Frage zu POSIXlt in Daten-frames als die hier referenziert wird: stackoverflow.com/questions/3355107/... Wenn ich versuche zu zeichnen das Datum als x-Achse in ggplot, erhalte ich diese Fehlermeldung: -- Fehler in der wenn (Länge(Bereich) == 1 || diff(range) == 0) { : fehlender Wert, wo TRUE/FALSE nötig-Wie würde ich dieses POSIXct?
    • so etwas wie as.POSIXct(otherStuffHere) wird wahrscheinlich funktionieren. Vielen Dank für diesen link, ich war mir nicht bewusst, jene Fragen, die durch die Hadley.
    InformationsquelleAutor Chase
  5. 1

    Dies ist wirklich einfach mit dem Paket-lubridate. Alles, was Sie tun müssen ist, sagen, R in welchem format Ihr Termin ist bereits in. Es konvertiert Sie in das standard-format

    nzd$date <- dmy(nzd$date)

    das ist es.

    InformationsquelleAutor user2678319
  6. 1

    Mit einer Zeile zum konvertieren der Daten zu am günstigsten gelegene format:

    nzd$date <- format(as.Date(nzd$date, format="%d/%m/%Y"),"%Y/%m/%d")
    InformationsquelleAutor
  7. 0

    Ich glaube, dass

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

    ist ausreichend.

    • Vereinbart, aber es stützt sich auf Magie (Standard-Formatierung), so ist es vorteilhaft, um zu zeigen, das verschiedene Schritte.
    • In der Tat, das ist, warum ich habe für Ihre Antwort! 😉
    InformationsquelleAutor joran
Schreibe einen Kommentar