Konvertieren Jahreszahl Werte zu einem Datum geben

Habe ich eine ganze Spalte in meinem Datensatz die Jahreszahl Werte, wie:

 2001 2002 2002 2002 2003 2005

Ich versuche zu konvertieren, die vier-stellige Jahreszahl auf Typ Date.

Den code, den ich verwende, ist:

year <- as.Date(as.character(data_file$evtYear), format = "%Y")

Aber die Ausgabe ist:

"2001-05-15" "2002-05-15" "2002-05-15" "2002-05-15" "2003-05-15" "2005-05-15"

Das gibt dem falschen Ausgang. Es gibt zwei-Jahres-Werte in ein Datum (beide 2001 und auch 15).

Ich will nur das konvertieren meiner vierstellige Jahr Teil aus den ursprünglichen Daten zu 'Jahr' in der Date-Typ. Erwartet put ist einfach:

2001 2002 2002 2002 2003 2005

Aber Ihre Klasse sollte der Date-Typ.

Wie das zu erreichen ist in R?

  • Date Art in R wird immer eine Kombination von Jahr, Monat und Tag (nicht unbedingt in dieser Reihenfolge). Man kann nicht eine Date geben Sie nur das Jahr.
  • Also heißt das, ich kann keine vier-stellige Zahl (2001), in meine Daten, deren Klasse ist von Typ Date??
  • Sie können nicht ohne Monat und Tag. BTW, warum müssen Sie diese in "Date" - Klasse mit nur Jahr?
  • Streng, ein Jahr ist nicht ein Datum.
  • Ich bin einfach nur ein Anfänger in R. ich mache einige Daten Vorverarbeitung Arbeit und da ist diese Spalte nur mit Jahr Werte.. Es ist vom Typ integer. Ich dachte, ich sollte konvertieren von Datum-format, so dass Sie nicht haben Probleme später auf. Das ist alles. Aber jetzt nach all den Meinungen hier, es klingt wie integer ist ok. Was sagen?
  • Ich benutze die lubridate Bibliothek für alles, was mit Terminen, auch wenn es nicht unbedingt erforderlich ist. Es ist nur einfacher.
  • Ja, wenn Sie müssen nur das Jahr, ein integer-Wert ist der beste.
  • Man kann immer noch das Jahr in eine Date wie damals, mit der gleichen Referenz (zum Beispiel, dem 15 eines jeden Monats). Dann führen Sie jede Berechnung. Und am Ende biegen Sie Ihre Date zu einem Jahr Wert.
  • Vielen Dank für die Bestätigung.
  • Danke, alle, für die Kommentare.. Es war sehr hilfreich, zu wissen, etwas neues in R.

InformationsquelleAutor LearneR | 2015-05-15
  1. 17

    Basierend auf die Kommentare es stellte sich heraus, dass die person die Frage nicht zu ändern brauchen einen numerischen Jahr "Date" Klasse; trotzdem, die Frage gestellt, wie Sie es tun, also hier ist eine Antwort.

    Hier sind ein paar Möglichkeiten zum erstellen einer "Date" - Klasse-Objekts aus einer 4-stelligen numerischen Jahr. Alle verwenden as.Date:

    yrs <- c(2001, 2002, 2002, 2002, 2003, 2005)

    1) Isodatum

    as.Date(ISOdate(yrs, 1, 1))  # beginning of year
as.Date(ISOdate(yrs, 12, 31))  # end of year

    Diese Isodatum Lösung ist ein bisschen schwierig, denn es entsteht ein Zwischenprodukt POSIXct Objekt so Zeit-zone Probleme, die existieren könnte. Bevorzugen Sie vielleicht eines der folgenden.

    2) einfügen

    as.Date(paste(yrs, 1, 1, sep = "-")) # beginning of year
as.Date(paste(yrs, 12, 31, sep = "-")) # end of year

    3) zoo::als.yearmon 

    library(zoo)

as.Date(as.yearmon(yrs)) # beginning of year
as.Date(as.yearmon(yrs) + 11/12, frac = 1) # end of year

    Hinweis: Wenn y ist das Ergebnis für eine der oben genannten dann format(y, "%Y") gibt das Zeichen, Jahr und as.numeric(format(y, "%Y")) gibt den numerischen Jahr.

    InformationsquelleAutor G. Grothendieck
  2. 8

    Wie bereits erkannt, dass durch die OP, ein Jahr alleine nicht zu machen, bis ein gültiges Datum, weil Monat und Tag sind nicht angegeben.

    Jedoch einige Datum und Datum-Zeit-Funktionen für die Konvertierung, z.B.ymd(), parse_date_time() im lubridate Paket erkennt einen parameter truncated zu ermöglichen, für die Analyse von unvollständigen Daten:

    yrs <- c(2001, 2002, 2002, 2002, 2003, 2005)
lubridate::ymd(yrs, truncated = 2L)
    [1] "2001-01-01" "2002-01-01" "2002-01-01" "2002-01-01" "2003-01-01" "2005-01-01"

    Den Jahren abgeschlossen haben, bis zum 1. Januar um ein gültiges Datum ist. Das Ergebnis ist Klasse Date.

    InformationsquelleAutor Uwe
  3. 1

    Einen lubridate Antwort:

      library(lubridate)
  year <- ymd(sprintf("%d-01-01",data_file$evtYear))
    • Sorry, das war nicht, dass Sie mir die erwartete Ausgabe. Aber ich habe gerade gemerkt, die Kommentare von anderen, dass meine erwartete Ausgabe ist keine gültige eins: einfach eine vierstellige Jahreszahl kann nicht der Date-Typ.. Jedenfalls, vielen Dank für den Hinweis auf die lubridate Paket. Schauen es, wenn die Zeit kommt.
    • Je nachdem, was Sie tun, es kann Sinn machen, um das Datum-format und trotzdem bekommen die Praxis mit der lubridate Bibliothek. Zum Beispiel, wenn Sie müssen berechnen Sie die Entfernung zwischen Terminen oder in-zwischen den Terminen. Wenn Sie gehen, um Daten zu analysieren, werden Sie brauchen, um gut zu manipulieren Datums-und Zeitangaben als ein großer Prozentsatz der Daten ist Datum im Zusammenhang.
    InformationsquelleAutor Mike Wise
  4. 0

    Können Sie tun:

    library(lubridate)
yrs <- c(2001, 2002, 2002, 2002, 2003, 2005)
yr <- as.Date(as.character(yrs), format = "%Y")
y <- year(yr)

    Ausgabe:

    2001 2002 2002 2002 2003 2005
    • lubridate::year() gibt das Jahr element eines Datums-Zeit-Objekt als Dezimalzahl. Also y ist identisch mit yrs. Ein gültiges Datum immer identifiziert einen bestimmten Tag, z.B. durch Angabe von Jahr, Monat und Datum. help("as.Date") sagt: Wenn die Zeichenkette für das Datum nicht das Datum anzugeben, komplett, wird die zurückgegebene Antwort kann system-spezifisch. Das häufigste Verhalten ist zu vermuten, dass eine fehlende Jahr, Monat oder Tag ist der aktuellen. Also, das Ergebnis hängt davon ab, Wann die Anweisung ausgeführt wird, führt zu zufälligen Ergebnissen. E. g., auf meinem system (zur Zeit des Schreibens) yr ist 2001-01-28 usw.
    InformationsquelleAutor Surya
Schreibe einen Kommentar