So ändern Sie mehrere Datum-Formate in der gleichen Spalte

Was ich habe, so weit ist ein dataframe Spalte mit Datumsangaben in verschiedenen Zeichenformate. Ein paar scheinen in der %d.%m.%Y Muster, einige in %m/%d/%Y :

data$initialDiagnose = as.character(data$initialDiagnose)
data$initialDiagnose[1:10]

[1] "14.01.2009" "9/22/2005"  "4/21/2010" "28.01.2010" "09.01.2009" "3/28/2005" "04.01.2005" "04.01.2005" "9/17/2010" "03.01.2010"

Möchte ich Sie als Date() in ein format, aber R weigert sich natürlich.

So versuchte ich zunächst, Sie zu ändern, indem Sie das Trennzeichen:

data$initialDiagnose[grep('/', data$initialDiagnose)] = as.character.Date(data$initialDiagnose[grep('/', data$initialDiagnose)], format = '%m/%d/%Y')

Analog zu der '.' Daten. Aber es hat nicht funktioniert.

Wie kann ich diese ändern alle auf ein format, dass ich mit Ihnen arbeiten kann?

InformationsquelleAutor Rob | 2012-12-07
  1. 18
    a <- as.Date(data$initialDiagnose,format="%m/%d/%Y") # Produces NA when format is not "%m/%d/%Y"
b <- as.Date(data$initialDiagnose,format="%d.%m.%Y") # Produces NA when format is not "%d.%m.%Y"
a[is.na(a)] <- b[!is.na(b)] # Combine both while keeping their ranks
data$initialDiagnose <- a # Put it back in your dataframe
data$initialDiagnose
[1] "2009-01-14" "2005-09-22" "2010-04-21" "2010-01-28" "2009-01-09" "2005-03-28" "2005-01-04" "2005-01-04" "2010-09-17" "2010-01-03"

    Additionnaly hier ist der vorhergehenden Methode angepasst an eine situation, in der Sie drei (oder mehr) verschiedene Formate:

    data$initialDiagnose
[1] 14.01.2009 9/22/2005  12 Mar 97  4/21/2010  28.01.2010 09.01.2009 3/28/2005 
Levels: 09.01.2009 12 Mar 97 14.01.2009 28.01.2010 3/28/2005 4/21/2010 9/22/2005

multidate <- function(data, formats){
    a<-list()
    for(i in 1:length(formats)){
        a[[i]]<- as.Date(data,format=formats[i])
        a[[1]][!is.na(a[[i]])]<-a[[i]][!is.na(a[[i]])]
        }
    a[[1]]
    }

data$initialDiagnose <- multidate(data$initialDiagnose, 
                                  c("%m/%d/%Y","%d.%m.%Y","%d %b %y"))
data$initialDiagnose
[1] "2009-01-14" "2005-09-22" "1997-03-12" "2010-04-21" "2010-01-28" "2009-01-09" "2005-03-28"
    InformationsquelleAutor plannapus
  2. 15

    Ich mag lubridate für seine Benutzerfreundlichkeit:

    library(lubridate) 

# note added ugly formats below
data <- data.frame(initialDiagnose = c("14.01.2009", "9/22/2005", 
        "4/21/2010", "28.01.2010", "09.01.2009", "3/28/2005", 
        "04.01.2005", "04.01.2005", "Created on 9/17/2010", "03 01 2010"))

mdy <- mdy(data$initialDiagnose) 
dmy <- dmy(data$initialDiagnose) 
mdy[is.na(mdy)] <- dmy[is.na(mdy)] # some dates are ambiguous, here we give 
data$initialDiagnose <- mdy        # mdy precedence over dmy
data
#   initialDiagnose
#       2009-01-14
#       2005-09-22
#       2010-04-21
#       2010-01-28
#       2009-09-01
#       2005-03-28
#       2005-04-01
#       2005-04-01
#       2010-09-17
#       2010-03-01
    • Ich Schätze / denke, dass der Wert explizit definieren Präferenz ist hier riesig.
    InformationsquelleAutor MattBagg
  3. 0

    Seit MattBagg Antwort 2012 lubridate hat die parse_date_time Funktion, die ausgelegt ist für genau diese situation und dieses problem beheben können, in einer einzigen Zeile:

    library(lubridate) 

data <- data.frame(initialDiagnose = c("14.01.2009", "9/22/2005", 
        "4/21/2010", "28.01.2010", "09.01.2009", "3/28/2005", 
        "04.01.2005", "04.01.2005", "Created on 9/17/2010", "03 01 2010"))

parse_date_time(data$initialDiagnose, orders = c('mdy', 'dmy'))

 [1] "2009-01-14 UTC" "2005-09-22 UTC" "2010-04-21 UTC" "2010-01-28 UTC" "2009-01-09 UTC"
 [6] "2005-03-28 UTC" "2005-01-04 UTC" "2005-01-04 UTC" "2010-09-17 UTC" "2010-03-01 UTC"

    Den orders= argument ist ein character-Vektor mit den möglichen Datum-Zeit-Analyse-Formate in der Reihenfolge, wie Sie getestet werden sollte. Mit der Angabe c('mdy', 'dmy'), lubridate wird versuchen zu analysieren, alle Zeichenfolgen als Month, Date, Year - format. Wenn es das nicht kann, erfolgreich (zum Beispiel das Datum 14.01.2009 wird nicht funktionieren, da es keine 14 Monate), wird die nächste in der Liste, bis alle Zeichenfolgen analysiert werden, oder alle Aufträge erschöpft.

    InformationsquelleAutor divibisan
Schreibe einen Kommentar