将数字转换为字母

时间:2014-04-16 18:16:01

标签: string r replace gsub

我有以下矢量:

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"

4 个答案:

答案 0 :(得分:10)

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

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

答案 1 :(得分:4)

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

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

答案 2 :(得分: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"

答案 3 :(得分:2)

或者像这样:

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