2015-01-16 7 views
0

각 메시지에는 고유 한 고유 ID 번호가있는 7500 개의 메시지가 있습니다. 저는 계절별로 메시지를 나누었고 계절에 대한 메시지 블록을 가지고 있습니다 : 겨울 2013 ----> 봄 2014. 전체 기간을 대표하는 1000 개의 메시지 샘플을 생성하려고합니다. 나는 5 계절의 각각에서 200 개의 메시지를 가져갈 것이다.r의 고유 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 하나 개의 요소로 다음을 추가합니다 :

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

나는 다음과 같은 코드로 고유 ID를 샘플링 한

이제는 r으로 보내고 싶습니다. 해당 ID에 해당하는 메시지를 읽습니다. 다음 코드를 사용하고 있지만 작동하지 않습니다.

내가 잘못 뭐하는 거지

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

?

+1

시도해보십시오. message.sample = data [% id.sample의 데이터 $ id %] –

+0

감사합니다. – dimebucker91

답변

0

message.sample = data [% id % sample %]이 코드를 사용하면 모든 열을 얻을 수 있습니다. 원하는 열을 선택할 수 있습니다.