您可以使用dplyr
使用进行聚合dplyr::group_by
and dplyr::summarise
:
library(lubridate)
library(anytime)
library(tidyverse)
Lines <- "Date,c1,c2,c3
06/25/2013 12:01,0,1,1
06/25/2013 12:08,-1,1,1
06/25/2013 12:48,0,1,1
06/25/2013 12:58,0,1,1
06/25/2013 13:01,0,1,1
06/25/2013 13:08,0,1,1
06/25/2013 13:48,0,1,1
06/25/2013 13:58,0,1,1
06/25/2013 14:01,0,1,1
06/25/2013 14:08,0,1,1
06/25/2013 14:48,0,1,1
06/25/2013 14:58,0,1,1"
setClass("myDate")
setAs("character","myDate", function(from) anytime(from))
df <- read.csv(text = Lines, header=TRUE, colClasses = c("myDate", "numeric", "numeric", "numeric"))
df %>%
group_by(Date=floor_date(Date, "1 hour")) %>%
summarize(c1=sum(c1), c2=sum(c2), c3=sum(c3))
# A tibble: 3 × 4
Date c1 c2 c3
<dttm> <dbl> <dbl> <dbl>
1 2013-06-25 12:00:00 -1 4 4
2 2013-06-25 13:00:00 0 4 4
3 2013-06-25 14:00:00 0 4 4