将数字转换为字母

Question

我有以下向量：

x <- c(11, 12, 21, 22)

我想把它转换成相应的字母，也就是说，我想得到这个结果：

AA AB BA BB

我该怎么做？我打赌有一个简单的答案，它通过使用保留的LETTERS向量，但我无法找到解决方案。这是我迄今为止想出的最好的（你可能想带孩子们离开房间）：

> paste0(gsub(1, LETTERS[1], substr(x, 1, 1)),
         gsub(2, LETTERS[2], substr(x, 1, 1)))
[1] "A1" "A1" "2B" "2B"

Answer 1

由于这只涉及一对一的字符替换，因此只使用chartr() 可能是最简单的

chartr("123456789", "ABCDEFGHI", x)
# [1] "AA" "AB" "BA" "BB"

Answer 2

这样？

x <- c(11, 12, 21, 22)
s1 = as.numeric(substr(x, start=1, stop=1))
s2 = as.numeric(substr(x, start=2, stop=2))
print(paste0(LETTERS[s1], LETTERS[s2]))
>[1] "AA" "AB" "BA" "BB"

Answer 3

如果没有库，紧凑的单行解决方案就是

sapply(strsplit(paste(x),''), function(y) paste(LETTERS[as.numeric(y)], collapse = ''))
# [1] "AA" "AB" "BA" "BB"

Answer 4

或类似的：

sapply(strsplit(as.character(c(123,11,22,5612)),""), function(x) paste0(LETTERS[as.integer(x)], collapse=""))
    ## [1] "ABC"  "AA"   "BB"   "EFAB"