请教R随机分布

    请教下随机分布的问题，具体如下：
    比如有两个数字1和2，然后让其随机分布在一个8*8的网格内，具体分布如1221、1122、2121、2211、1212等，具体数字可以重复出现，但是要求完全随机分布，这个如何编写，求大神指点，谢谢

> s <- c(rep(1,32), rep(2, 32))
> m <- matrix(sample(s,64), 8, 8)
> m
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
[1,]    2    1    2    1    2    1    1    1
[2,]    2    1    2    1    1    1    2    1
[3,]    2    2    1    2    1    1    2    2
[4,]    2    2    1    1    2    2    1    2
[5,]    2    1    1    2    2    1    1    2
[6,]    1    2    2    2    1    2    1    1
[7,]    2    2    1    2    2    1    2    1
[8,]    2    1    1    1    1    2    2    1

1. a <- sapply(seq(8), function(x){
   
2.   sample(c(1,2), replace=TRUE, size=8)
   
3. })

复制代码

1. > a

复制代码

像这样?

1.      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
   
2. [1,]    1    2    2    1    2    2    2    1
   
3. [2,]    1    1    1    2    1    2    2    2
   
4. [3,]    1    2    2    2    2    2    1    1
   
5. [4,]    2    2    2    2    2    2    1    1
   
6. [5,]    2    2    2    2    2    1    2    1
   
7. [6,]    2    1    1    2    2    2    1    2
   
8. [7,]    2    1    1    2    2    2    2    1
   
9. [8,]    1    1    2    2    2    1    2    2

复制代码

菊花冰糖水 发表于 2018-3-1 16:29
像这样?

每个数字出现是次数是相等的，如何补充代码？谢谢

syg521hm 发表于 2018-3-1 17:55
每个数字出现是次数是相等的，如何补充代码？谢谢

可以在帮助页面查看 sample的帮助页面，里面有 prob=的参数，设置1，和2出现的概率，所以可以写为
prob=c(0.5,0.5)试一下。不过这个方法也不是保证你一定获得均衡的 matrix。本办法可以 set.seed()多试试几遍。

jinkelazzz 发表于 2018-3-1 16:05
> s  m  m
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
[1,]    2    1    2    1    2    1    1     ...

可以再请教下如何设置重复随机的次数？还有就是取样数比较多的情况下，如何设置？谢谢

syg521hm 发表于 2018-3-3 09:04
可以再请教下如何设置重复随机的次数？还有就是取样数比较多的情况下，如何设置？谢谢

次数就是矩阵大小。样本就是s。

jinkelazzz 发表于 2018-3-5 09:26
次数就是矩阵大小。样本就是s。

比如5*5的矩阵，想重复6次，矩阵改成5*30？就是重复6次了？