是否可以在R中扩展sample函数，使其在返回replace = TRUE时不返回多于2个相同元素的值？
假设我有一个列表:
l = c(1,1,2,3,4,5)
要对3个元素进行替换采样，我将执行以下操作:
sample(l, 3, replace = TRUE)
有没有一种方法来限制其输出，以便最多只返回2个相同的元素？因此，允许
(1,1,2)或(1,3,3)，但排除(1,1,1)或(3,3,3)吗？ 最佳答案
set.seed(0)
基本思想是将有替换的采样转换为无替换的采样。
ll <- unique(l) ## unique values
#[1] 1 2 3 4 5
pool <- rep.int(ll, 2) ## replicate each unique so they each appear twice
#[1] 1 2 3 4 5 1 2 3 4 5
sample(pool, 3) ## draw 3 samples without replacement
#[1] 4 3 5
## replicate it a few times
## each column is a sample after out "simplification" by `replicate`
replicate(5, sample(pool, 3))
# [,1] [,2] [,3] [,4] [,5]
#[1,] 1 4 2 2 3
#[2,] 4 5 1 2 5
#[3,] 2 1 2 4 1
如果您希望不同的值出现在不同的次数上，我们可以例如
pool <- rep.int(ll, c(2, 3, 3, 4, 1))
#[1] 1 1 2 2 2 3 3 3 4 4 4 4 5
## draw 9 samples; replicate 5 times
oo <- replicate(5, sample(pool, 9))
# [,1] [,2] [,3] [,4] [,5]
# [1,] 5 1 4 3 2
# [2,] 2 2 4 4 1
# [3,] 4 4 1 1 1
# [4,] 4 2 3 2 5
# [5,] 1 4 2 5 2
# [6,] 3 4 3 3 3
# [7,] 1 4 2 2 2
# [8,] 4 1 4 3 3
# [9,] 3 3 2 2 4
我们可以在每一列上调用
tabulate来计算1, 2, 3, 4, 5的频率:## set `nbins` in `tabulate` so frequency table of each column has the same length
apply(oo, 2L, tabulate, nbins = 5)
# [,1] [,2] [,3] [,4] [,5]
#[1,] 2 2 1 1 2
#[2,] 1 2 3 3 3
#[3,] 2 1 2 3 2
#[4,] 3 4 3 1 1
#[5,] 1 0 0 1 1
所有列中的计数均符合我们设置的频率上限
c(2, 3, 3, 4, 1)。rep.int不是rep的“整数”方法。它只是一个比rep少的功能的更快的原始函数。您可以从文档页面rep中获取rep.int，rep_len和?rep的更多详细信息。关于r - 带有替换的样本，但限制了要绘制的每个成员的最大频率，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/52582802/