совокупный 5-минутный интервал для данных о ценах на акции

Question

Я хочу агрегировать 5-минутный интервал для данных о ценах на акции: это мои данные.

Time Price 
2/21/2018 09:00:00am 122.1 
2/21/2018 09:07:38am 122.4 
2/21/2018 09:09:10am 122.4 
2/21/2018 09:09:10am 122.4 
2/21/2018 09:09:21am 122.2 
2/21/2018 09:13:16am 122.3 
2/21/2018 09:13:16am 122.3 
2/21/2018 09:13:16am 122.3 
2/21/2018 09:13:16am 122.3 
2/21/2018 09:14:09am 122.3 
2/21/2018 09:14:09am 122.3 
2/21/2018 09:14:09am 122.3 
2/21/2018 09:15:06am 122.4 
2/21/2018 09:15:06am 122.4 
2/21/2018 09:15:06am 122.4 
2/21/2018 09:15:06am 122.4 
2/21/2018 09:15:45am 122.4 
2/21/2018 09:19:32am 122.5 
2/21/2018 09:19:32am 122.5

Это моя кодировка в r:

## Coding for date and time format
nestle_2days$Time <- as.POSIXct(nestle_2days$Time, format="%m/%d/%Y %H:%M")
## Aggregate data for 5 minutes interval
require(dplyr) 
library(padr)
nestle_2days %>% 
    group_by(Time = cut(Time, breaks="5 min")) %>% summarise(dprice = mean(Price)) %>% 
    print(nestle_2days)

вывод:

Time dprice 
1 2018-02-21 02:30:00 123. 
2 2018-02-21 02:35:00 123. 
3 2018-02-21 02:40:00 123. 
4 2018-02-21 02:45:00 123. 
5 2018-02-21 02:50:00 123. 
6 2018-02-21 02:55:00 123. 
7 2018-02-21 03:00:00 123. 
8 2018-02-21 03:05:00 123. 
9 2018-02-21 03:10:00 123. 
10 2018-02-21 03:15:00 123.
... with 124 more rows

и почему время начинается в 2018-02-21 02: 30: 00, а почему не в 09: 00: 101

, пожалуйста, помогите мне: заранее спасибо

Answer 1

Похоже, ваш столбец Time не анализируется правильно.
При mdy_hms() из lubridate ваш код выполняется правильно:

library(dplyr)
library(lubridate)

nestle_2days %>%
  mutate(Time = mdy_hms(Time)) %>%
  group_by(Time = cut(Time, breaks="5 min")) %>% 
  summarise(dprice = mean(Price)) 

                 Time  dprice
1 2018-02-21 09:00:00 122.100
2 2018-02-21 09:05:00 122.350
3 2018-02-21 09:10:00 122.300
4 2018-02-21 09:15:00 122.429