樣品複製

Question

我有55個變量640個觀測構成的數據幀（d）。

我想隨機抽樣在64個 觀測的10個子數據幀這個數據幀55名的變量。我不希望任何觀察在 多個子數據幀。

這一個樣品

d1 <- d[sample(nrow(d),64,replace=F),] 

代碼工作，我怎麼能重複這種治療十倍？

這個人給我10個變量的數據幀（每一個都是一個樣......）

d1 <- replicate(10,sample(nrow(d),64,replace = F))} 

誰能幫助我？

Answer 1

下面是返回data.frames列表結果的解決方案：

d <- data.frame(A=1:640, B=sample(LETTERS, 640, replace=TRUE)) # an exemplary data.frame 
idx <- sample(rep(1:10, length.out=nrow(d))) 
res <- split(d, idx) 
res[[1]] # first data frame 
res[[10]] # last data frame 

唯一棘手的部分涉及創建idx。 idx[i]識別{1，...，10}，其中將發生的d的i第i行所得data.frame，idx[i]。這種方法向我們保證，沒有行將被放入多於一個數據幀中。

另外，還要注意sample返回的隨機排列（1,2，...，10,1,2，...，10）。

另一種方法是使用：

apply(matrix(sample(nrow(d)), ncol=10), 2, function(idx) d[idx,])