r - 如何从R中的向量中洗牌？

Question

假设我们有以下向量，它可以在一个循环中改变但长度固定:

V = c(8,15,16,7,3)

我需要在每次迭代中将 V 中的 m compenents 打乱。 ( 1<=m<=5 & m 为整数)

然后我需要将这些组件存储在另一个向量 K 中各自的位置，其长度与 V 相同。其他位置将只包含值 0。

例如:假设 j 是当前迭代并假设 V 不会改变。一些可能的结果可能是:

m=3
---------------------
//
j=1
V= c(8,15,16,7,3)
K= c(0,15,0,7,3)   # 3 numbers are shuffled //


//
j=2
V= c(8,15,16,7,3)
K= c(8,0,0,7,3)   # 3 numbers are shuffled
 //
.
.
.

j=4
V= c(8,15,16,7,3)
K= c(0,0,16,7,3)   # 3 numbers are shuffled

我希望我的问题和期望的输出是明确的。非常感谢您的帮助!

Answer 1

这是一个非常粗略的解决方案，但它应该可以回答您的问题。

# initialization of parameters
V = c(8, 15, 16, 7, 3)
m = 3    
n_iter = 10
mat <- matrix(0, nrow = n_iter, ncol = length(V))

# creation of matrix
set.seed(42)
for (j in 1:n_iter)
  mat[j,] <- replace(V, sample(5, 2), 0)

输出

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