> 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

像这样?

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

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