我想从 data.frame 的每一行独立于其他行抽取随机样本。这是一个例子。此代码为每一行选择相同的列，但我需要为每一行独立选择列。
library(plyr)
set.seed(12345)
df1 <- mdply(data.frame(mean=c(10, 15)), rnorm, n = 5, sd = 1)
df1
mean V1 V2 V3 V4 V5
1 10 10.58553 10.70947 9.890697 9.546503 10.60589
2 15 13.18204 15.63010 14.723816 14.715840 14.08068
> df1[ , -1]
V1 V2 V3 V4 V5
1 10.58553 10.70947 9.890697 9.546503 10.60589
2 13.18204 15.63010 14.723816 14.715840 14.08068
> sample(df1[, -1], replace = TRUE)
V3 V2 V5 V4 V4.1
1 9.890697 10.70947 10.60589 9.546503 9.546503
2 14.723816 15.63010 14.08068 14.715840 14.715840
> t(apply(df1[, -1], 1, sample))
[,1] [,2] [,3] [,4] [,5]
[1,] 10.70947 9.890697 10.60589 10.58553 9.546503
[2,] 14.71584 13.182044 14.08068 15.63010 14.723816
已编辑
df1[ , -1]
V1 V2 V3 V4 V5
1 10.58553 10.70947 9.890697 9.546503 10.60589
2 13.18204 15.63010 14.723816 14.715840 14.08068
sample(df1[, -1], replace = TRUE)
V3 V2 V5 V4 V4.1
1 9.890697 10.70947 10.60589 9.546503 9.546503
2 14.723816 15.63010 14.08068 14.715840 14.715840
sample(df1[, -1], replace = TRUE) 选择列 V3, V2, V5、V4 和 V4。但我要求它可以选择列 V3、V2、V5、V4 和 V4 用于第一行 和/或五列的任意组合用于第二行。
最佳答案
您可以将 apply 与 replace=TRUE 一起用于 sample
t(apply(df1[,-1], 1, sample, replace=TRUE))
关于来自 data.frame 每一列的随机样本，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/31646131/