sampling - r の一意の ID に基づくサンプリング

Question

7500 件のメッセージがあり、それぞれに対応する一意の ID 番号が付いています。メッセージを季節ごとに分割し、2013 年冬 ---- > 2014 年春という季節ごとのメッセージのブロックを用意しました。全期間を代表する 1000 件のメッセージのサンプルを作成したいので、 5 つの季節のそれぞれから 200 件のメッセージを受け取ります。

次のコードで一意の ID をサンプリングしました。

s1    <-  sample(data$id[w13], size = 200, replace = FALSE)
s2   <-  sample(data$id[sp13], size = 200, replace = FALSE)
s3   <-  sample(data$id[su14], size = 200, replace = FALSE)
s4    <-  sample(data$id[a14], size = 200, replace = FALSE)
s5   <-  sample(data$id[w14], size = 200, replace = FALSE)

次に、次のコードを使用して、これらを長さ 1000 の 1 つの要素に追加します。

id.sample    <-   unlist(list(s1,s2,s3,s4,s5))

これらの ID に対応するメッセージを取得したいと思います。次のコードを使用していますが、これは機能しません。

message.sample <-   data$text[data$id==id.sample]

私は何を間違っていますか？

Answer 1

message.sample= data[data$id %in% id.sample] これを使用すると、すべての列が取得されます。そこから、必要な列を選択できます。