在R中生成指定长度的随机样本数

Question

我认为这是我对 R 的了解不足，尤其是对循环相关的代码了解不足。

这就是我想要做的。假设我有从 1 到 500 的数字。首先，生成 300 组从 1 到 500 的两个随机选择的数字，为每组分配一个从 1 到 300 的数字，然后将它们组合成一个数据集，让它成为数据集 A。 /p>

所以 A 看起来像

A_no  random_num
1       26
1       256
2       3
2      113
...

然后我需要创建一个数据集 B，其中我将有 500 个随机数中的 3 个集合，也被计算在内

B_no  random_num
1       16
1       113
1       4
2       67
2       25
2       7

我相信 R 代码看起来会非常优雅和简单。非常感谢有关此解决方案的任何帮助。

Answer 1

这有点简化，利用（假设的）所有随机选择的数字都是独立的事实。

df1 <- data.frame(A_no=rep(1:500,each=2), random_num=sample(1:300,2*500,replace=T))
head(df1)
##   A_no random_num
## 1    1        249
## 2    1        117
## 3    2        108
## 4    2         44
## 5    3        138
## 6    3        247

dim(df1)
## [1] 1000   2

df2 <- data.frame(A_no=rep(1:500,each=3), random_num=sample(1:300,3*500,replace=T))
head(df2)
##   A_no random_num
## 1    1        276
## 2    1         50
## 3    1        237
## 4    2        153
## 5    2        225
## 6    2          4

dim(df2)
## [1] 1500   2

Answer 2

# Set random seed
set.seed(83)
# Generate sequence
z <- seq(1, 300)
# Generate first sample
x <- sample(1:500, 300)
# Combine
zx <- data.frame(z, x)
# Set seed again
set.seed(82)
# Generate second sample
x <- sample(1:500, 300)
# Combine
zy <- data.frame(z, x)
xyz <- rbind(zx, zy)

或者你可以这样做

# Set random seed
set.seed(83)
# Generate sequence
B_no <- seq(1, 300)
# Generate first sample
x <- sample(1:500, 300)
y <- sample(1:500, 300)
z <- sample(1:500, 300)

wide <- data.frame(B_no, x, y, z)

library(reshape2)
B <- melt(wide, id.vars = c("B_no"))
Bx <- B[order(B$B_no),]