1

重複の可能性:
グループ内の累積合計を高速化するには?

次のデータ フレームで

id<-c(1,1,1,1,1,3,3,3,3)
spent<-c(10,20,30,40,50,60,70,80,90)
date<-c("11-11-07","11-11-07","23-11-07","12-12-08","17-12-08","11-11-07","23-11-07","23-       11-07","16-01-08")
df<-data.frame(id,date,spent)
df$date2<-as.Date(as.character(df$date), format = "%d-%m-%y")

  id     date spent      date2
1  1 11-11-07    10 2007-11-11
2  1 11-11-07    20 2007-11-11
3  1 23-11-07    30 2007-11-23
4  1 12-12-08    40 2008-12-12
5  1 17-12-08    50 2008-12-17
6  3 11-11-07    60 2007-11-11
7  3 23-11-07    70 2007-11-23
8  3 23-11-07    80 2007-11-23
9  3 16-01-08    90 2008-01-16

spent次のように、各日の最大値を見つけてid別の列に記録する必要があります。

  id     date spent      date2   sum.spent
1  1 11-11-07    10 2007-11-11    20
2  1 11-11-07    20 2007-11-11    20 
3  1 23-11-07    30 2007-11-23    30
4  1 12-12-08    40 2008-12-12    40
5  1 17-12-08    50 2008-12-17    50
6  3 11-11-07    60 2007-11-11    60
7  3 23-11-07    70 2007-11-23    80
8  3 23-11-07    80 2007-11-23    80
9  3 16-01-08    90 2008-01-16    90

誰でもこれで私を助けることができますか？

4

2 に答える 2

5

以下を使用した簡単なアプローチを次に示しますave()。

df$sum.spent <- ave(df$spent, df$id, df$date2, FUN = max)
df
#   id     date spent      date2 sum.spent
# 1  1 11-11-07    10 2007-11-11        20
# 2  1 11-11-07    20 2007-11-11        20
# 3  1 23-11-07    30 2007-11-23        30
# 4  1 12-12-08    40 2008-12-12        40
# 5  1 17-12-08    50 2008-12-17        50
# 6  3 11-11-07    60 2007-11-11        60
# 7  3 23-11-07    70 2007-11-23        80
# 8  3 23-11-07    80 2007-11-23        80
# 9  3 16-01-08    90 2008-01-16        90

使用するのも簡単data.table()です：

library(data.table)
# data.table 1.8.2  For help type: help("data.table")
dfDT <- data.table(df, key="id,date2")
dfDT[, sum.spent:=max(spent), by=key(dfDT)]
#    id     date spent      date2 sum.spent
# 1:  1 11-11-07    10 2007-11-11        20
# 2:  1 11-11-07    20 2007-11-11        20
# 3:  1 23-11-07    30 2007-11-23        30
# 4:  1 12-12-08    40 2008-12-12        40
# 5:  1 17-12-08    50 2008-12-17        50
# 6:  3 11-11-07    60 2007-11-11        60
# 7:  3 23-11-07    70 2007-11-23        80
# 8:  3 23-11-07    80 2007-11-23        80
# 9:  3 16-01-08    90 2008-01-16        90
于 2012-10-27T07:04:33.510 に答える
4

これがあなたのplyr答えです：

library(plyr)
ddply(df, .(id, date), transform, sum.spent = max(spent))

これがdata.table答えです（より大きなデータセットに適しています）：

library(data.table)
df <- data.table(df)
df[, sum.spent:=max(spent), by = list(id, date)]
于 2012-10-27T07:18:38.460 に答える