Выберите диапазон 5 минут по дате и времени с помощью R

Question

У меня есть временные ряды данных формата

     Ask Bid Trade Ask_Size Bid_Size Trade_Size 
2016-11-01 01:00:03  NA 938.10  NA  NA  203   NA 
2016-11-01 01:00:04  NA 937.20  NA  NA  100   NA 
2016-11-01 01:00:04 938.00  NA  NA  28  NA   NA 
2016-11-01 01:00:04  NA 938.10  NA  NA  203   NA 
2016-11-01 01:00:04 939.00  NA  NA  11  NA   NA 
2016-11-01 01:00:05  NA 938.15  NA  NA  19   NA 
2016-11-01 01:00:06  NA 937.20  NA  NA  100   NA 
2016-11-01 01:00:06 938.00  NA  NA  28  NA   NA 
2016-11-01 01:00:06  NA  NA 938.10  NA  NA   69 
2016-11-01 01:00:06  NA  NA 938.10  NA  NA  831 
2016-11-01 01:00:06  NA 938.10  NA  NA  134   NA 

Структура данных временных рядов является

str(df_ts) 

An ‘xts’ object on 2016-11-01 01:00:03/2016-11-02 12:59:37 containing: 
    Data: num [1:35797, 1:6] NA NA 938 NA 939 NA NA 938 NA NA ... 
- attr(*, "dimnames")=List of 2 
    ..$ : NULL 
    ..$ : chr [1:6] "Ask" "Bid" "Trade" "Ask_Size" ... 
    Indexed by objects of class: [POSIXct,POSIXt] TZ: 
    xts Attributes: 
NULL 

Как создать подмножество данных временных рядов 5 мин. Время начала и время окончания будет определен пользователем

Данные образцы можно найти на сайте

https://www.dropbox.com/s/m94y6pbhjlkny1l/Sample_HFT.csv?dl=0

Пожалуйста, помогите

Answer 1

Вы можете использовать lubridate и применять функции. Я предполагаю, что ваша метка времени (дата и время) находятся в первом столбце, и у меня есть имена, которые являются столбцами как «timestamp». Кадр данных равен df. Сначала установите пакет lubridate. Результат будет сохранен в другом фрейме данных df2.

library(lubridate) 

# Round to 5 minutes 
df$timestamp <- ceiling_date(as.POSIXct(df$timestamp), unit = "5 minutes") 

# Create data frame to store results 
df2 <- NULL 
df2$timestamp <- levels(factor(df$timestamp)) 
df2 <- apply(df[,2:ncol(df)], 2, function(x) 
      { 
       df2 <<- cbind(df2, aggregate(x ~ df$timestamp, FUN = sum)[2])[[ncol(df)-2]] 
      }) 
names(df2) <- names(df)