R 生成固定数为1'的二进制矩阵；s

如何生成具有以下行为的二进制矩阵？我遇到过这个问题，但它缺少二进制值的随机定位

## all rows contain four 1's at random column

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

---

这可能不会得到优化，但会让您继续：

m<-matrix(data = rep(sample(rep(c(1,0),times=c(4,6))),times=5),byrow = T,nrow = 5,ncol = 10)
m<-apply(X = m,FUN = sample,MARGIN = 1)
m<-t(m)

---

m
t（replicate（5，sample）（rep（c（1，0），c（4，6））），TRUE））
？工作起来很有魅力。谢谢如果我想在
2:4
的范围内为每行随机分配不同数量的
1
，该怎么办？e、 g，
row1
有两个
1s
，
row2
有四个
1s
，依此类推。。。