将10个字母均匀分配给200个字母

Question

我有10个字母“a b c d e f g h i j”和200个数字，从1到200，具有不同的实例数，例如五个1个，三个2个等，共计200个数字。

我想为每个数字分配一个字母，使每个字母的频率相等。

所以在这种情况下，我想要每个字母的20个实例。

我的问题是我想随机为数字指定字母。

一个例子是：

1 1 1 1 1 2 2 3 3 3 3 3 3 4 5 6 7 7 7 ...until 200

a a a a a e e f f f f f f d i j c c c ...until 200

Answer 1

从这开始 - 我故意不覆盖A

中的现有列

Rgames> B<-sample(letters,10)
Rgames> B
 [1] "b" "m" "l" "v" "c" "t" "s" "i" "n" "j"
Rgames> A<-sample(1:10,10,replace=TRUE)
Rgames> A
 [1] 3 3 2 8 1 5 5 8 2 6
Rgames> A.new<-B[A]
Rgames> A.new
 [1] "l" "l" "m" "i" "b" "c" "c" "i" "m" "t"

然后，如果需要cbind和A.new

，您可以A