Heure de la date de partage

J'ai un df avec une colonne de type datetime (JJ:MM:aaaa HH:mm:ss)nommé "Start" et je souhaite partager cette colonne en deux nommée "date" et "heure".
Maintenant, j'ai essayé le suivant:

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

Cela fonctionne, cependant, si j'utilise la fonction str(df) (je l'ai coupé court de sorte que vous pouvez surtout voir les variables de mon inquiétude).

de données.cadre: 18363 obs. de 19 variables:
$ Début : Facteur w/67 niveaux "2013-09-01 08:07:41.000",..: 1 1 1 1 1 1 1 1 1 1 ...
$ Interval : int 47259 47259 47259 47259 47259 47259 47259 47259 47259 47259 ...
$ DateTime : Facteur w/niveaux 18363"2013-09-01 08:07:41.350",..: 1 2 3 4 5 6 7 8 9 10 ...
$ TimeSensor: num 158489 158489 158490 158490 158491 ...

Alors maintenant, j'ai seulement besoin de savoir comment faire pour convertir l'heure et la date à partir de 'facteurs' de 'temps' et 'date'.

Si quelqu'un connaît la solution, je vous serais très reconnaissante! Je suis un noob sur la R de sorte s'il vous plaît ne pas me brûler sur le sol..

Un million de mercis!

source d'informationauteur Jalalala

  1. 18

    Comment sur 

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

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

    Désolé pour cette réponse tardive! De toute façon, j'ai obtenu de l'aide de quelqu'un à l'université et il est venu avec le suivant, très simple, le réglage de mon temps-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")

    Cette fonction convertit les facteurs de "date" et "POSIXct", juste la façon dont je le voulais.

    Merci à vous tous pour votre aide! J'espère que je peux revenir une sorte de faveur, dans l'avenir, bien que je doute qu'il sera de la programmation..!

  3. 2

    Vous préférerez peut-être faire quelque chose comme cela, en évitant l'utilisation d'un lapply boucle qui n'est pas vraiment nécessaire (mais ce n'est pas une mauvaise chose non plus!)...

    #  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
  4. 1

    En voyant votre format de colonne, je dirais que vous pouvez utiliser comme.POSIXct pour formater correctement votre colonne, et ensuite utiliser le format() pour extraire les données souhaitées.

    C'est le code que j'utilise lorsque le fractionnement d'une colonne DateTime,

    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")