Split Datum Zeit

Question

Ich habe ein df mit einer Spalte datetime (TT: MM: JJJJ HH: mm: ss) namens "Start" und ich möchte diese Spalte in zwei namens "date" und "time" aufgeteilt werden.
Nun habe ich folgendes versucht:

df$Date <- sapply(strsplit(as.character(df$Start), " "), "[", 1) 
df$Time <- sapply(strsplit(as.character(df$Start), " "), "[", 2) 

Dies funktioniert aber, wenn ich die Funktion str (df) verwenden (ich es kurz so kann man meist die Variablen meiner Sorge sehen).

'data.frame': 18363 obs. von 19 Variablen:
$ Start: Faktor w/67 Ebenen "2013-09-01 08: 07: 41.000", ..: 1 1 1 1 1 1 1 1 1 1 ...
$ Intervall: int 47259 47259 47259 47259 47259 47259 47259 47259 47259 47259 ...
$ DateTime: Faktor w/18363 Ebenen "2013-09-01 08: 07: 41.350", ..: 1 2 3 4 5 6 7 8 9 10 .. .
$ Timesensor: num 158489 158489 158490 158490 158491 ...

So, jetzt muss ich nur wissen, wie die Uhrzeit und das Datum von 'Faktoren' konvertieren, um 'Zeit' und 'Datum'.

Wenn jemand die Lösung kennt wäre ich sehr dankbar! Ich bin ein Noob bezüglich R so bitte brennt mich nicht auf den Boden ..

Danke eine Million!

Answer 1

Entschuldigung für diese späte Antwort! Wie auch immer, ich habe Hilfe von jemandem an der Universität, und er kam mit dem folgenden up, sehr einfach, Einstellung meines Zeit-Code ..:

df$Date <- as.Date(df$Start) #already got this one from the answers above 
df$Time <- format(as.POSIXct(df$Start) ,format = "%H:%M:%S") 

Dieser wandelt die Faktoren „Datum“ und „POSIXct“, wie ich es wollte.

Vielen Dank für Ihre Hilfe! Ich hoffe, ich kann in der Zukunft irgendeine Art von Gunst zurückgeben, obwohl ich bezweifle, ob es mit der Programmierung sein wird ..!

Answer 2

Wie wäre es

df$Date <- as.Date(df$Start) 

df$Time <- format(df$Start,"%H:%M:%S") 

Answer 3

Sie könnten es vorziehen, um so etwas zu tun, die Verwendung eines lapply Schleife zu vermeiden, die nicht wirklich notwendig ist (aber es ist nicht eine schlechte Sache auch nicht!) ...

# If we had this data... 
df <- data.frame(Start = c("13:11:2013 15:39" , "13:11:2013 16:15" , "13:11:2013 17:52")) 

# We can directly make two columns from the split strings without 
# using a loop by call 'do.call'.. 
new <- do.call(rbind , strsplit(as.character(df$Start) , " ")) 
#  [,1]   [,2] 
#[1,] "13:11:2013" "15:39" 
#[2,] "13:11:2013" "16:15" 
#[3,] "13:11:2013" "17:52" 


# Cbind them to the original data liek so... 
cbind(df , Date = new[,2] , Time = new[,1]) 
#    Start Date  Time 
#1 13:11:2013 15:39 15:39 13:11:2013 
#2 13:11:2013 16:15 16:15 13:11:2013 
#3 13:11:2013 17:52 17:52 13:11:2013 

Answer 4

Wenn Sie Ihr Spaltenformat sehen, würde ich sagen, Sie könnten as.POSIXct verwenden, um Ihre Spalte richtig zu formatieren, und dann format() verwenden, um die gewünschten Daten zu extrahieren.

Dies ist der Code, den ich verwenden, wenn eine Datetime-Spalte,

df$Time <- format(as.POSIXct(df$Start,format="%Y:%m:%d %H:%M:%S"),"%H:%M:%S") 

df$Date <- format(as.POSIXct(df$Start,format="%Y:%m:%d %H:%M:%S"),"%Y:%m:%d")