汇总R中每日间隔的数据

Question

我的数据集由3列（时间，价格和数量）中的几个观察值组成，如下所示，

time                price   volume
2017-11-15 9:35:11  301.1   1.1
2017-11-15 9:35:09  300.9   3.0
2017-11-15 9:35:07  300.8   1.4 
2017-11-15 9:35:06  300.9   0.1
2017-11-15 9:35:01  301.0   0.6

我想首先将数据按24h的周期进行裁剪，为每个24h的周期添加卷，并在汇总数据时获得。

我已经尝试执行以下操作（代码上的初始数据集称为“ mydf”），

##sum the volume over periods of 24h
mydf_volume_24h <- data.frame (volume = tapply (cbind (mydf$volume), list (cut (mydf$time, breaks="24 hours")), sum))

##bind the previous df with the prices for each time label
mydf_24h <- setNames (cbind (rownames (mydf_volume_24h), mydf_volume_24h, row.names = NULL), c("time", "volume"))

mydf <- mydf %>% 
select(-volume)

mydf_24h <- merge (mydf, mydf_volume_24h, by = "time")

除了（可能）不是最佳/有效方式之外，此代码的问题不会出现，因为该代码的第一部分为我提供了24小时内的体积总和，但用时间23标记了每个总和： 00:00，这并不总是存在于我的数据集中。

我的意图是减少24小时的时间段，但给我一个最接近24小时时间段的（实际）观察时间。 有什么办法吗？

Answer 1

这可能不完全是您想要的，但是根据您的描述，我收集到了您想要对每一天的总量进行汇总，以及获取每一天的最长时间。 如果确实如此，则下面的方法应该可以获取汇总数据框：

library(dplyr)
library(stringr)
library(lubridate)

df <- tibble(time = c(
             "2017-11-15 9:35:11",
             "2017-11-15 9:35:09",
             "2017-11-15 9:35:07",
             "2017-11-15 9:35:06",
             "2017-11-15 9:35:01",
             "2017-11-16 9:36:12",
             "2017-11-16 9:35:09",
             "2017-11-16 9:35:07",
             "2017-11-16 9:35:06",
             "2017-11-16 9:35:01"
             ),
             price = c(301.1, 300.9, 300.8, 300.9, 301.0,
                       302, 303, 304, 305, 306),
             volume = c(1.1, 3.0, 1.4, 0.1, 0.6,
                        1.4, 3.4, 1.5, 0.5, 0.6)
)

df %>% mutate(time = ymd_hms(time)) %>% 
        mutate(day = str_extract(time, "^\\S+"))  %>% 
        group_by(day) %>% 
        summarize(volume = sum(volume), maxTime = max(time))