每天在 R 中聚合

Question

我借用了此处给出的可重现示例：

Aggregate daily level data to weekly level in R

因为它非常接近我想做的事情。

   Interval    value

1  2012-06-10   552
2  2012-06-11  4850
3  2012-06-12  4642
4  2012-06-13  4132
5  2012-06-14  4190
6  2012-06-15  4186
7  2012-06-16  1139
8  2012-06-17   490
9  2012-06-18  5156
10 2012-06-19  4430
11 2012-06-20  4447
12 2012-06-21  4256
13 2012-06-22  3856
14 2012-06-23  1163
15 2012-06-24   564
16 2012-06-25  4866
17 2012-06-26  4421
18 2012-06-27  4206
19 2012-06-28  4272
20 2012-06-29  3993
21 2012-06-30  1211
22 2012-07-01   698
23 2012-07-02  5770
24 2012-07-03  5103
25 2012-07-04   775
26 2012-07-05  5140
27 2012-07-06  4868
28 2012-07-07  1225
29 2012-07-08   671
30 2012-07-09  5726
31 2012-07-10  5176

在他的问题中，他要求每周汇总一次，我想做的是在 "day of the week basis".

上汇总

所以我想要一个与那个类似的 table，将一周中所有同一天的值相加：

    Day of the week      value
1    "Sunday"            60000
2    "Monday"            50000
3    "Tuesday"           60000
4    "Wednesday"         50000
5    "Thursday"          60000
6    "Friday"            50000
7    "Saturday"          60000

Answer 1

我们可以使用 weekdays 将它们按周分组：

library(dplyr)
df %>%
   group_by(Day_Of_The_Week = weekdays(as.Date(Interval))) %>%
   summarise(value = sum(value))


# Day_Of_The_Week value
#            <chr> <int>
#1          Friday 16903
#2          Monday 26368
#3        Saturday  4738
#4          Sunday  2975
#5        Thursday 17858
#6         Tuesday 23772
#7       Wednesday 13560

Answer 2

你可以试试：

aggregate(d$value, list(weekdays(as.Date(d$Interval))), sum)

Answer 3

我们可以用 data.table

library(data.table)
setDT(df1)[, .(value = sum(value)), .(Dayofweek = weekdays(as.Date(Interval)))]
#   Dayofweek value
#1:    Sunday  2975
#2:    Monday 26368
#3:   Tuesday 23772
#4: Wednesday 13560
#5:  Thursday 17858
#6:    Friday 16903
#7:  Saturday  4738

Answer 4

使用 lubridate https://cran.r-project.org/web/packages/lubridate/vignettes/lubridate.html

df1$Weekday=wday(arrive,label=TRUE)

library(data.table)
df1=data.table(df1)

df1[,sum(value),Weekday]

每天在 R 中聚合

Aggregate on a daily basis in R

aggregate

r

lubridate