Konvertieren von Daten vor dem 1. Januar 1970 in R

Question

Ich versuche, eine Spalte von Daten in Date-Objekte in R zu konvertieren, aber ich kann nicht scheinen, die gewünschten Ergebnisse zu erhalten. Diese Personen haben Geburtsdaten vor dem 1. Januar 1970, also wenn ich as.DateR verwende, konvertiert ein Datum wie 1/12/54 zum Beispiel zu 2054-01-12. Wie kann ich das umgehen? Vielen Dank.

Answer 1

Wenn alles in den 1900er Jahren ist, ist es ein One-Liner - nur formatieren Sie es mit einem zweistelligen Jahr am Anfang und schlagen Sie eine 19 auf der Vorderseite und konvertieren zu einem Datum. Nochmal. Man würde dies aussehen etwas%>% Hamlish:

s = c("1/12/54","1/12/74") 
as.Date(format(as.Date(s,format="%d/%m/%y"), "19%y%m%d"), "%Y%m%d") 
# [1] "1954-12-01" "1974-12-01" 

Wenn Jahren von "69" bis "99" sind 1800er Jahren, dann ist hier ein weiterer Einzeiler:

library(dplyr) # for pipe operator: 
s %>% as.Date(format="%d/%m/%y") %>% 
    format("%y%m%d") %>% 
    (function(d){ 
     paste0(ifelse(d>700101,"18","19"),d) 
     }) %>% 
    as.Date("%Y%m%d") 

## [1] "1954-12-01" "1874-12-01" 

Hinweis nicht gründlich getestet, so möglicherweise einige off-by-one-Fehler oder ich habe Monate und Tage gemischt, weil Sie müssen ISO8601 Compliant

Answer 2

ich tun würde:

library(lubridate) 

x <- as.Date("1/12/54", format = "%m/%d/%y") 
year(x) <- 1900 + year(x) %% 100 

> x 
[1] "1954-01-12" 

Answer 3

Keine Notwendigkeit für Add-On-Pakete ist Basis R in Ordnung. Aber Sie müssen das Jahrhundert spezifizieren:

R> as.Date("1954-01-12") 
[1] "1954-01-12" 
R> 

Wenn Sie Nicht-Standard-Formate benötigen, sie nur angeben:

R> as.Date("19540112", "%Y%m%d") 
[1] "1954-01-12" 
R> 

Edit: Falls Ihre Daten wirklich im Umgang mit dem %y% Format kommt, und Sie geschehen, um die Richtlinie zu entscheiden, dass das 19. Jahrhundert benötigt wird , hier ist eine Basis R Art und Weise tun:

R> d <- as.Date("540112", "%y%m%d") 
R> dlt <- as.POSIXlt(d) 
R> dlt$year <- dlt$year - 100 
R> as.Date(dlt) 
[1] "1954-01-12" 
R>