как агрегировать эти данные в R - PullRequest
Новая
       17

как агрегировать эти данные в R

6 голосов
/ 25 мая 2010

У меня есть фрейм данных в R со следующей структурой. 

> testData
            date exch.code comm.code     oi
1     1997-12-30       CBT         1 468710
2     1997-12-23       CBT         1 457165
3     1997-12-19       CBT         1 461520
4     1997-12-16       CBT         1 444190
5     1997-12-09       CBT         1 446190
6     1997-12-02       CBT         1 443085
....
    77827 2004-10-26      NYME       967  10038
    77828 2004-10-19      NYME       967   9910
    77829 2004-10-12      NYME       967  10195
    77830 2004-09-28      NYME       967   9970
    77831 2004-08-31      NYME       967   9155
    77832 2004-08-24      NYME       967   8655

То, что я хочу сделать, - это составить таблицу, показывающую на конкретную дату и товарную сумму по каждому коду обмена. Итак, строки будут состоять из 

unique(testData$date)

и столбцы будут 

unique(testData$comm.code)

и каждая ячейка будет общим значением oi для всех exch.codes в данный день.

Спасибо

Ответы [ 3 ]

11 голосов
/ 25 мая 2010

Пакет plyr хорош в этом, и вы должны сделать это одним вызовом ddply(). Что-то вроде (не проверено) 

ddply(testData, .(date,comm.code), function(x) sum(x$oi))

должно работать.

10 голосов
/ 25 мая 2010 
# get it all aggregated
dfl <- aggregate(oi ~ date + comm.code, testData, sum)

# rearrange it so that it's like you requested
uc <- unique(df1$comm.code)
dfw <- with( df1, data.frame(data = unique(date), matrix(oi, ncol = length(uc))) )
names(dfw) <- c( 'date', uc)

Это будет намного быстрее, чем эквивалентная команда plyr. И есть способы переставить его в один ряд. Переставляемая часть очень быстрая.

5 голосов
/ 10 сентября 2012

A data.table раствор 

library(data.table)
DT <- data.table(testData)
DT[,sum(oi), by = list(date,comm.code)]
...