用额外的随机数替换随机生成的矩阵中的值

Question

我正在处理一个矩阵，我需要用随机生成的新数字替换编码为 1 的值

起点是这样的矩阵

set.seed(38921)
p <- matrix(nrow = 10, ncol = 25)
for(i in 1:10){
  p[i, seq(1, floor(runif(1, min = 1, max = 25)), 1)] = 1
}

在生成的 p 矩阵中，我需要将每一行的值 1 替换为随机生成的介于 1 和 25 之间的整数，其中数字不能重复。

例如，在矩阵的第一行，应该有 6 个从 1 到 25 之间随机抽取的数字，其中没有一个数字重复，还有 19 个 NA 列。在第二行，应该有 12 个随机抽取的数字，介于 1 和 25 之间，没有重复，还有 13 个 NA 列。

非常感谢任何帮助。

Answer 1

您可以简单地将您的矩阵乘以另一个随机数矩阵。 NA 将保持为 NA。

p*matrix(sample(1:25), 10, 25)

或者如果尺寸发生变化:

p*matrix(sample(1:25), nrow(p), ncol(p))