r - 如何找到所有可能的离散值和出现

Question

鉴于：yi <- c(1,2,4,4,7,7,7,8)

现在从上述 8 个单位中抽取 4 个单位，进行简单随机抽样，无需放回。

我想找到所有（8 选择 4 =）70 个组合的所有可能离散值以及每个离散值出现的数量。

例如：
t1 = (1,2,4,4) = 11，只发生一次
t2 ...

Answer 1

您可以使用combinat::combn：

library(combinat)
all.poss <- t(combn(yi, 4))

dim(all.poss)
# [1] 70 4
table(rowSums(all.poss))
# 11 14 15 16 17 18 19 20 21 22 23 24 25 26 29 
#  1  6  2  3  7  4  6 12  6  4  7  3  2  6  1