汇总每日内容

Question

我一直在尝试汇总（有些不稳定的）每日数据。我实际上正在处理 csv 数据，但如果我重新创建它 - 它看起来会像这样：

library(zoo)

dates <- c("20100505", "20100505", "20100506", "20100507")
val1 <- c("10", "11", "1", "6")
val2 <- c("5", "31", "2", "7")

x <- data.frame(dates = dates, val1=val1, val2=val2)
z <- read.zoo(x, format = "%Y%m%d")

现在我想每天汇总它（请注意，有时一天有 > 1 个数据点，并且有时

我尝试了很多很多的变化，但我似乎无法聚合，所以例如这失败了：

aggregate(z, as.Date(time(z)), sum)
# Error in Summary.factor(2:3, na.rm = FALSE) : sum not meaningful for factors

似乎有很多关于聚合的内容，我尝试了很多版本，但似乎无法聚合除了每日求和之外，我还想运行 cummax 和累积平均值，

非常感谢

更新

代码 。我实际上使用的是如下：

z <- read.zoo(file = "data.csv", sep = ",", header = TRUE, stringsAsFactors = FALSE, blank.lines.skip = T, na.strings="NA", format = "%Y%m%d");

看来我（无意的）对上面数字的引用与实践中发生的情况类似，因为当我这样做时：

aggregate(z, index(z), sum)
#Error in Summary.factor(25L, na.rm = FALSE) : sum not meaningful for factors

有很多列（100 左右），我如何将它们指定为自动为 as.numeric ？（stringAsFactors = False 似乎不起作用？）

Answer 1

或者在使用 Zoo 之前进行聚合（尽管 val1 和 val2 需要是数字）。

x <- data.frame(dates = dates, val1=as.numeric(val1), val2=as.numeric(val2))
y <- aggregate(x[,2:3],by=list(x[,1]),FUN=sum)

然后将y喂入动物园。

您可以避免警告:)

Answer 2

你一开始就走在正确的道路上，但犯了一些错误。

首先，zoo 只消耗矩阵，而不消耗 data.frames。其次，这些需要数字输入：

> z <- zoo(as.matrix(data.frame(val1=c(10,11,1,6), val2=c(5,31,2,7))), 
+          order.by=as.Date(c("20100505","20100505","20100506","20100507"),
+                           "%Y%m%d"))
Warning message:
In zoo(as.matrix(data.frame(val1 = c(10, 11, 1, 6), val2 = c(5,  :
  some methods for "zoo" objects do not work if the index entries in 
  'order.by' are not unique

这给我们带来了动物园中的标准警告：它不喜欢相同的时间索引。

显示数据结构总是一个好主意，也许也可以通过 str() ，也可以在其上运行 summary()：

> z
           val1 val2
2010-05-05   10    5
2010-05-05   11   31
2010-05-06    1    2
2010-05-07    6    7

然后，一旦我们有了它，聚合就是简单的：

> aggregate(z, index(z), sum)
           val1 val2
2010-05-05   21   36
2010-05-06    1    2
2010-05-07    6    7
> 

Answer 3

val1 和 val2 是字符串。 data.frame() 将它们转换为因子。求和因素没有意义。您可能想要：

x <- data.frame(dates = dates, val1=as.numeric(val1), val2=as.numeric(val2))
z <- read.zoo(x, format = "%Y%m%d")
aggregate(z, as.Date(time(z)), sum)

从而产生：

           val1 val2
2010-05-05   21   36
2010-05-06    1    2
2010-05-07    6    7

Answer 4

将字符列转换为数字，然后使用 read.zoo 并利用其 aggregate 参数：

> x[-1] <- lapply(x[-1], function(x) as.numeric(as.character(x)))
> read.zoo(x, format = "%Y%m%d", aggregate = sum)
             val1 val2
2010-05-05   21   36
2010-05-06    1    2
2010-05-07    6    7