R：制作2个子集向量，以便值在索引方面不同

Question

我想用 replace=TRUE 从相同的数据中创建 2 个向量子集。

即使两个向量可以包含相同的值，它们在相同的索引位置也不能相同。

例如：

> set.seed(1)
> a <- sample(15, 10, replace=T)
> b <- sample(15, 10, replace=T)
> a
 [1]  4  6  9 14  4 14 15 10 10  1
> b
 [1]  4  3 11  6 12  8 11 15  6 12
> a==b
 [1]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE

在这种情况下，向量 a 和 b 在索引 1 (value==4) 处包含相同的值，这对我的目的来说是错误的。

有没有简单的方法来纠正这个问题？

可以在subset 步骤上完成吗？

或者我应该逐个元素地检查循环，如果值相同，请为b[i] 再次选择并再次检查它是否不相同无限？

非常感谢！

Answer 1

我的想法是，不要得到 2 个长度为 10 的样本进行替换，而是获取 10 个长度为 2 的样本而不进行替换

 library(purrr)
 l <- rerun(10,sample(15,2,replace=FALSE))

l 中的每个元素都是长度为 2 的整数向量。这两个整数保证是不同的，因为我们在sample 中指定了replace=FALSE

 # from l extract all first element in each element, this is a
 a <- map_int(l,`[[`,1)
 # from list extract all second elements, this is b
 b <- map_int(l,`[[`,2)

Answer 2

两阶段抽样过程怎么样

set.seed(1)
x <- 1:15
a <- sample(x, 10, replace = TRUE)
b <- sapply(a, function(v) sample(x[x != v], 1))
a != b
#[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE

我们先抽取样本a；然后对于来自a 的每个样本，我们从x 的值集合中抽取一个新样本不包括来自a 的当前样本。由于我们一次只做一个样本，因此我们会自动允许替换抽样。