String 将数字转换成字母

我有以下向量：

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

我怎么做这个？我打赌有一个简单的答案，它通过使用保留的

字母
向量来实现，但我无法找到解决方案。这是到目前为止我想到的最好的（你可能想把孩子们带出房间）：

像这样

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"

x[1]“AA”“AB”“BA”“BB”
或类似的内容：

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

没有库，紧凑的单线解决方案是

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

因为这只涉及一对一的字符替换，所以使用
chartr（）

不错，但是请记住，当它面对一个零时，它将返回空字符，从而将1和10都呈现为“a”。
sapply(strsplit(as.character(c(123,11,22,5612)),""), function(x) paste0(LETTERS[as.integer(x)], collapse=""))
    ## [1] "ABC"  "AA"   "BB"   "EFAB"

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

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