在R中使用wday对dbReadtable进行排序

Question

我有一个dbReadtable，我想按周日期排序。我的表格如下所示：

Id Date       Number
1  2020-11-01 1
2  2020-11-03 3
3  2020-11-02 4
4  2020-11-01 2
5  2020-11-02 4
6  2020-11-03 3
7  2020-11-06 7
8  2020-11-05 4
9  2020-11-08 2

我希望输出如下所示：

Day       Number
 
Sunday    5
Monday    8
Tuseday   6
Thursday  4
Friday    7

为此，我想在lubridate库中使用$wday。

我的代码如下所示：

data <- dbReadTable(con, "observations")

我该如何解决这个问题？

Answer 1

使用data.table和lubridate，并假定Date已经是日期(不是字符串)。

library(lubridate)
library(data.table)

data <- dbReadTable(con, "observations")

data[, by=.(Day=wday(Date, label=TRUE, abbr=FALSE, locale="C")), .(Number=sum(Number))]

#        Day Number
#1:   Sunday      5
#2:  Tuesday      6
#3:   Monday      8
#4:   Friday      7
#5: Thursday      4

我添加了locale来返回几天的英文名称(我是法国人，获取法语名称:-)。