r - 将 10 个字母平均分配给 200 个字母

Question

我有 10 个字母“abcdefghi j”和从 1 到 200 的 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