R. 字母组合

Question

我应该有这样的输出:

AAAA
AAAG
AAAC
AAAT
AAGA
AAGG
...

我想首先用数字来做这件事，将“A”表示为 1，将“G”表示为 2，等等......

1111
1112
...

然后将 1 转换为“A”，依此类推。我找到了这个函数 expand.grid，但这给了我一个包含 4 个变量(4 列)的数据框，每个变量代表一个数字。

你还有别的想法吗？

提前致谢。

Answer 1

编辑:我最初的答案错误地假设您已经有了索引向量。要从头开始生成这些字母的所有可能组合的向量，请尝试以下操作:

x <- expand.grid(rep(list(c('A', 'G', 'T', 'C')), 4))
do.call(paste0, x)

---

您可以使用 chartr 来做到这一点。

x <- c(1111, 1112, 1113, 1114, 1121)
chartr('1234', 'AGCT', x)
# [1] "AAAA" "AAAG" "AAAC" "AAAT" "AAGA"