在 R 中聚合每周数据

Question

我确信这是直截了当的，但我似乎无法让它发挥作用。我有一个代表每日总数的数据框。我只想按周对总数求和，如果没有表示一周，则保留零。 R中最好的方法是什么？万一这很重要，我从 CSV 中读取数据并在 R 中将其转换为日期。

这是我的数据框 p1 的结构：

'data.frame':   407 obs. of  2 variables:
 $ date:Class 'Date'  num [1:407] 14335 14336 14337 14340 14341 ...
 $ amt : num  45 150 165 165 45 45 150 150 15 165 ...

还有前几个……

> head(p1)
        date amt
1 2009-04-01  45
2 2009-04-02 150
3 2009-04-03 165
4 2009-04-06 165
5 2009-04-07  45
6 2009-04-08  45

提前非常感谢。

备注：我之前看到过post，但无法使用

Answer 1

lubridate 库的解决方案：

library(lubridate)
Lines <- "date,amt
2009-04-01,45
2009-04-02,150
2009-04-03,165
2009-04-13,165
2009-04-14,45
2009-04-15,45
2009-05-15,45"
df <- read.csv(textConnection(Lines))

如果您不需要 0 来缺席几周，这很简单：

weeks <- week(df$date)
sums <- tapply(df$amt, weeks, sum)
# 14  15  16  20 
#360 210  45  45 

将缺失的周数归零：

span <- min(weeks):max(weeks)
out <- array(0, dim = length(span), dimnames = list(span))
out[dimnames(sums)[[1]]] <- sums
# 14  15  16  17  18  19  20 
#360 210  45   0   0   0  45 

Answer 2

这是一个解决方案，它读取数据，按周汇总数据，然后在 3 行代码中用零填充缺失的周数。 read.zoo 在假定标题和逗号字段分隔符的情况下读取它。它将第一列转换为Date 类，然后将日期转换为下一个星期五。执行此转换的 nextfri 函数取自 zoo 包中的 zoo-quickref 小插图。 （如果您想让一周的结束成为一周中的不同日期，只需将公式中的 every 5 替换为另一个日期数。这个想法是相对于 d-4 下降的 UNIX 纪元在星期几，d=0 是星期日，d=1 是蒙达，...，d=6 是星期六，所以从那以后 7 天的任何倍数也落在星期几。）read.zoo命令还聚合具有相同索引的所有点（请记住，我们已将它们转换为一周的最后一个星期五，因此同一周中的所有点现在将具有与其索引相同的星期五）。下一个命令创建一个宽度为零的 zoo 对象，该对象具有从第一个到最后一个的周数，并使用 fill = 0 将其与读取的输出合并，以便填充的周数得到该值。

Lines <- "date,amt
2009-04-01,45
2009-04-02,150
2009-04-03,165
2009-04-13,165
2009-04-14,45
2009-04-15,45"
library(zoo)
nextfri <- function(x) 7 * ceiling(as.numeric(x - 5 + 4)/7) + as.Date(5 - 4)
z <- read.zoo(textConnection(Lines), header = TRUE, sep = ",", 
    FUN = as.Date, FUN2 = nextfri, aggregate = sum)
merge(z, zoo(, seq(min(time(z)), max(time(z)), 7)), fill = 0)

我们使用上面的textConnection(Lines) 使其独立，以便您可以将其复制并直接粘贴到您的会话中，但实际上textConnection(Lines) 将替换为您的文件名，例如"myfile.csv".

对于上面的输入，输出将是以下动物园对象：

2009-04-03 2009-04-10 2009-04-17 
       360          0        255

您可能想阅读 zoo 包附带的三个小插曲。