obtener hora del vector DateTime

Question

Tengo un vector DateTime dentro de un data.frame donde el marco de datos se compone de 8760 observaciones que representan intervalos por hora a lo largo del año, p.

2010-01-01 00:00 
2010-01-01 01:00 
2010-01-01 02:00 
2010-01-01 03:00 

y así sucesivamente.

Me gustaría crear un data.frame que tenga el vector DateTime original como la primera columna y luego los valores por hora en la segunda columna, p.

2010-01-01 00:00   00:00 
2010-01-01 01:00   01:00 

¿Cómo se puede lograr esto?

Answer 1

Use format o strptime para extraer la información de tiempo.

Crear un vector POSIXct:

x <- seq(as.POSIXct("2012-05-21"), by=("+1 hour"), length.out=5) 

Extracto de la época:

data.frame(
    date=x, 
    time=format(x, "%H:%M") 
) 

       date time 
1 2012-05-21 00:00:00 00:00 
2 2012-05-21 01:00:00 01:00 
3 2012-05-21 02:00:00 02:00 
4 2012-05-21 03:00:00 03:00 
5 2012-05-21 04:00:00 04:00 

---

Si el vector de entrada es un vector de caracteres, entonces usted tiene que convertir a POSIXct primera:

Crear algunos datos

dat <- data.frame(
    DateTime=format(seq(as.POSIXct("2012-05-21"), by=("+1 hour"), length.out=5), format="%Y-%m-%d %H:%M") 
) 
dat 
      DateTime 
1 2012-05-21 00:00 
2 2012-05-21 01:00 
3 2012-05-21 02:00 
4 2012-05-21 03:00 
5 2012-05-21 04:00 

de tiempo intermedio a cabo:

data.frame(
    DateTime=dat$DateTime, 
    time=format(as.POSIXct(dat$DateTime, format="%Y-%m-%d %H:%M"), format="%H:%M") 
) 

      DateTime time 
1 2012-05-21 00:00 00:00 
2 2012-05-21 01:00 01:00 
3 2012-05-21 02:00 02:00 
4 2012-05-21 03:00 03:00 
5 2012-05-21 04:00 04:00 

Answer 2

o genéricamente, no tratarlos como fechas, puede utilizar los siguientes proporcionaron que el tiempo y las fechas se rellenan correctamente.

library(stringr) 
df <- data.frame(DateTime = c("2010-01-01 00:00", "2010-01-01 01:00", "2010-01-01 02:00", "2010-01-01 03:00")) 
df <- data.frame(df, Time = str_sub(df$DateTime, -5, -1)) 

que depende de sus necesidades realmente.

Answer 3

Usando lubridate

library(stringr) 
library(lubridate) 
library(plyr) 

df <- data.frame(DateTime = c("2010-01-01 00:00", "2010-01-01 01:00", "2010-01-01 02:00", "2010-01-01 03:00")) 

df <- mutate(df, DateTime = ymd_hm(DateTime), 
       time = str_c(hour(DateTime), str_pad(minute(DateTime), 2, side = 'right', pad = '0'), sep = ':')) 

Answer 4

En una nota más general, para cualquier persona que viene aquí desde google y tal vez quiere agrupar por hora:

La clave aquí es: lubridate::hour(datetime)

p22 en el cran doc aquí: https://cran.r-project.org/web/packages/lubridate/lubridate.pdf