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

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

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

Answer 3

喜欢这个吗？

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 4

或者像这样：

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

将数字转换为字母

4 个答案: