superponer - R: cuenta 15 minutos de intervalo en el tiempo

superponer graficas en r (2)

Me gustaría contar la cantidad de sesiones iniciadas en intervalos de 15 minutos para días hábiles dentro de un gran conjunto de datos.

Mi información se ve así:

df <- Start_datetime End_datetime Duration Volume 2016-04-01 06:20:55 2016-04-01 14:41:22 08:20:27 8.360 2016-04-01 08:22:27 2016-04-01 08:22:40 00:00:13 0.000 2016-04-01 08:38:53 2016-04-01 09:31:58 00:53:05 12.570 2016-04-01 09:33:57 2016-04-01 12:37:43 03:03:46 7.320 2016-04-01 10:05:03 2016-04-01 16:41:16 06:36:13 9.520 2016-04-01 12:07:57 2016-04-02 22:22:32 34:14:35 7.230 2016-04-01 16:56:55 2016-04-02 10:40:17 17:43:22 5.300 2016-04-01 17:29:18 2016-04-01 19:50:29 02:21:11 7.020 2016-04-01 17:42:39 2016-04-01 19:45:38 02:02:59 2.430 2016-04-01 17:47:57 2016-04-01 20:26:35 02:38:38 8.090 2016-04-01 22:00:15 2016-04-04 08:22:21 58:22:06 4.710 2016-04-02 01:12:38 2016-04-02 09:49:00 08:36:22 3.150 2016-04-02 01:32:00 2016-04-02 12:49:47 11:17:47 5.760 2016-04-02 07:28:48 2016-04-04 06:58:56 47:30:08 0.000 2016-04-02 07:55:18 2016-04-05 07:55:15 71:59:57 0.240

Me gustaría contar todas las sesiones iniciales por 15 minutos comenzando, donde:

For business days Time PTU Count 00:00:00 - 00:15:00 1 10 #(where count is the amount of sessions started between 00:00:00 and 00:15:00) 00:15:00 - 00:30:00 2 6 00:30:00 - 00:45:00 3 5 00:45:00 - 01:00:00 3 3

Y así sucesivamente y los mismos datos para el fin de semana.

He intentado la función de corte:

df$PTU <- table (cut(df$Start_datetime, breaks="15 minutes")) data.frame(PTU)

EDITAR: Cuando ejecuto esto recibo el siguiente error:

Error in cut.default(df$Start_datetime, breaks = "15 minutes") :''x'' must be numeric

Y algunas funciones con lubridate, pero parece que no puedo hacer que funcione. Mi objetivo final es crear una tabla como la siguiente, pero luego con un intervalo de 15 minutos.

Aquí hay una especie de proceso completo de "cadenas" de fecha y hora al formato que desee. El comienzo es un vector de cadena:

Start_time <- c("2016-04-01 06:20:55", "2016-04-01 08:22:27", "2016-04-01 08:38:53", "2016-04-01 09:33:57", "2016-04-01 10:05:03", "2016-04-01 12:07:57", "2016-04-01 16:56:55", "2016-04-01 17:29:18", "2016-04-01 17:42:39", "2016-04-01 17:47:57", "2016-04-01 22:00:15", "2016-04-02 01:12:38", "2016-04-02 01:32:00", "2016-04-02 07:28:48", "2016-04-02 07:55:18" ) df <- data.frame(Start_time)

Y este es un procesamiento real

## We will use two packages library(lubridate) library(data.table) # convert df to data.table, parse the datetime string setDT(df)[, Start_time := ymd_hms(Start_time)] # floor time by 15 min to assign the appropriate slot (new variable Start_time_slot) df[, Start_time_slot := floor_date(Start_time, "15 min")] # aggregate by wday and time in a date start_time_data_frame <- df[, .N, by = .(wday(Start_time_slot), format(Start_time_slot, format="%H:%M:%S") )] # output looks like this start_time_data_frame ## wday time N ## 1: 6 06:15:00 1 ## 2: 6 08:15:00 1 ## 3: 6 08:30:00 1 ## 4: 6 09:30:00 1 ## 5: 6 10:00:00 1 ## 6: 6 12:00:00 1 ## 7: 6 16:45:00 1 ## 8: 6 17:15:00 1 ## 9: 6 17:30:00 1 ## 10: 6 17:45:00 1 ## 11: 6 22:00:00 1 ## 12: 7 01:00:00 1 ## 13: 7 01:30:00 1 ## 14: 7 07:15:00 1 ## 15: 7 07:45:00 1

Hay dos cosas que debe tener en cuenta al usar fechas de cut :

Asegúrese de que sus datos sean en realidad una clase POSIXt . Estoy bastante seguro de que el tuyo no lo está, o R no cut.default sino que cut.POSIXt como método.
"15 minutes" debe ser "15 min" . Ver ?cut.POSIXt

Entonces esto funciona:

Start_datetime <- as.POSIXct( c("2016-04-01 06:20:55", "2016-04-01 06:22:12", "2016-04-01 05:30:12") ) table(cut(Start_datetime, breaks = "15 min")) # 2016-04-01 05:30:00 2016-04-01 05:45:00 2016-04-01 06:00:00 2016-04-01 06:15:00 # 1 0 0 2

Tenga en cuenta que la salida le da el inicio del intervalo de 15 minutos como nombres de la tabla.