求助：R语言随机抽样

774646878

今天在处理生物学重复的时候碰到了一个问题，第一个data.fram有五列，第二个data.fram有六列，第三个data.fram也有六列。现在要从每个data.fram中随机抽取一列，并把最终结果合并为一个新的data.fram。一共要得到5个不同的data.fram（因为第一个原始数据只有五列，且抽出的列不再放回）。我最开始想用sample去做，但是搞了半天也没弄明白，有没有大佬来教一下，万分感谢。

niheaven

第一个用 sample(5)，后面两个用sample(6, size = 5)

或者先把data.frame用cbind()连起来，然后用cbind(sample(5), sample(6:11, size = 5), sample(12:17, size = 5))抽样，再用apply()或者循环取子集

> cbind(sample(5), sample(6:11, size = 5), sample(12:17, size = 5))
     [,1] [,2] [,3]
[1,]    3    6   13
[2,]    2    8   16
[3,]    5    9   17
[4,]    1   10   15
[5,]    4    7   14

774646878

niheaven 感谢大佬。但是这样重复5次之，得到的新的data.fram中会出现重复的列请问应该如何处理呢？

tctcab

按你的描述，感觉行列跟R里一般习惯反过来了。一般习惯列表示性状，一行对应一个观察或者样本。照这样的话，你可以把三个dataframe合并到一个里，分三类，对每一类随机采一个样本，并重复五次。

774646878

tctcab 感谢大佬。但是这样重复5次之，得到的新的data.fram中会出现重复的列请问应该如何处理呢？

chuxinyuan

~~先按列合并三个数据框，然后分三个组不放回抽样，抽出来的列组合成一个数据框，如此重复四次~~
按照 tctcab 给的思路，代码实现大致如下：

m = matrix(1:34, ncol = 17)
df = as.data.frame(m)  # 假装 df 就是合并后的数据框

g1 = sample(1:5, 5, replace = FALSE)
g2 = sample(6:11, 5, replace = FALSE)
g3 = sample(12:17, 5, replace = FALSE)

for (i in 1:5) {
  out = df[, c(g1[i], g2[i], g3[i])]
  print(out)
}

774646878

chuxinyuan 多谢，按照这个思路完成了。

niheaven

不会重复的，sample()默认replace=FALSE

你按列合并分别抽列数，得到的就是你要的一个结果

774646878

niheaven 多谢，已经解决啦。