3

Rには次のデータフレームがあります。

id<-c(1,2,3,4,10,2,4,5,6,8,2,1,5,7,7)
date<-c(19970807,19970902,19971010,19970715,19991212,19961212,19980909,19990910,19980707,19991111,19970203,19990302,19970605,19990808,19990706)
spent<-c(1997,19,199,134,654,37,876,890,873,234,643,567,23,25,576)
df<-data.frame(id,date,spent)

顧客のすべての観測値を抽出する方法で、（idに基づいて）3人の顧客のランダムサンプルを取得する必要があります。

4

2 に答える 2

6

%in% 使いたいunique

df[df$id %in% sample(unique(df$id),3),]
##    id     date spent
## 4   4 19970715   134
## 7   4 19980909   876
## 8   5 19990910   890
## 10  8 19991111   234
## 13  5 19970605    23

参照data.tableを避けるために使用する$

library(data.table)
DT <- data.table(df)

 DT[id %in% sample(unique(id),3)]
##    id     date spent
## 1:  1 19970807  1997
## 2:  4 19970715   134
## 3:  4 19980909   876
## 4:  1 19990302   567
## 5:  7 19990808    25
## 6:  7 19990706   576

これにより、常にdata.table内の式を評価していることが保証されます。

于 2012-08-20T04:45:10.160 に答える
2

次のようなものを使用します：

df[sample(df$id, 3), ]
#   id     date spent
# 1  1 19970807  1997
# 5 10 19991212   654
# 8  5 19990910   890

もちろん、サンプルは異なります。

アップデート

ユニークな顧客が必要な場合は、最初にできますaggregate。

df2 = aggregate(list(date = df$date, spent = df$spent), list(id = df$id), c)
df2[sample(df2$id, 3), ]
#   id               date    spent
# 4  4 19970715, 19980909 134, 876
# 5  5 19990910, 19970605  890, 23
# 8  8           19991111      234

または-なしのオプションaggregate：

df[df$id %in% sample(unique(df$id), 3), ]
#    id     date spent
# 1   1 19970807  1997
# 3   3 19971010   199
# 12  1 19990302   567
# 14  7 19990808    25
# 15  7 19990706   576
于 2012-08-20T04:37:04.823 に答える