子集和组合/匹配数据

Question

我有一个包含4列的数据框...日期，小时，位置，值。

我想对数据进行的处理是针对每个唯一的日期/小时/位置提供摘要统计信息。 这看起来很容易，因为我可以

x <- subset(my.df[,4], 
            my.df[,2]==(some parameter) & my.df[,3]==(another parameter)
           ) 

然后从x获取我想要的任何摘要统计信息。 但是，棘手的是，我还想从上述值的每个差异中获取摘要统计信息。 因此，例如，我想获取loc=1时的value与loc=2且hour=1时的值之差，但是在两个位置中可能有也可能没有缺少日期。 我可能会起作用的一个主意是将my.df重塑两次。 首先使用timevar=loc使其变宽，然后使用timevar=hour对其进行整形，这样我将获得带有Date，value.1.1，value.1.2等列的wide.df，其中第一个整数是loc，第二个整数是小时，每一行都是唯一的日期。

是否有更直接的方法来进行此操作，而无需进行20分钟的重塑（初始df大约是9493401行，包含4个变量，然后将其扩展到720行，包含14857列？
@布兰登：这是str的输出。 我还没有尝试过您的建议。

        'data.frame':   9493401 obs. of  4 variables:
    $ Loc  : int  1 1 1 1 1 1 1 1 1 1 ...
    $ Date: POSIXct, format: "2010-10-29" "2010-10-29" ...
    $ Hour     : int  1 2 3 4 5 6 7 8 9 10 ...
    $ Value   : num  7.63 4.07 4.9 1.61 0.34 -5.23 2.11 2.39 7.2 4.41 ...

Answer 1

dcast的reshape2在这方面似乎很reshape2 ：

library(reshape2)
dat <- data.frame(date=sample(1:100,9493401,replace=TRUE),
                  hour=rep(1:24,1000000)[1:9493401],
                  loc=rep(letters[1:9],1054823)[1:9493401],
                  value=rnorm(9493401))     

dcast(dat,date + hour ~ loc) 

您还可以执行loc / hour计数之类的操作

dcast(dat, date + hour ~ loc*hour)

如果您想要特定于您的案例的答案，则需要提供更多信息。