Convertir les nombres en lettres

J'ai l'vectorielles suivantes:

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

Et je veux convertir les lettres correspondantes, c'est à dire, je veux obtenir ce résultat:

AA AB BA BB

Comment puis-je faire cela? Je pari qu'il n'y est une réponse simple et qu'il va à travers l'aide de l'réservés LETTERS vecteur, mais je ne peux pas trouver une solution. C'est le meilleur que j'ai réussi à venir jusqu'ici (vous pouvez emmener les enfants hors de la salle):

> paste0(gsub(1, LETTERS[1], substr(x, 1, 1)),
         gsub(2, LETTERS[2], substr(x, 1, 1)))
[1] "A1" "A1" "2B" "2B"
InformationsquelleAutor Waldir Leoncio | 2014-04-16
  1. 10

    Depuis cette il suffit d'un-à-un caractère de substitution, il peut être plus simple d'utiliser chartr() 

    chartr("123456789", "ABCDEFGHI", x)
# [1] "AA" "AB" "BA" "BB"
    InformationsquelleAutor Josh O'Brien
  2. 5

    Sans bibliothèques, le compact une solution en ligne est

    sapply(strsplit(paste(x),''), function(y) paste(LETTERS[as.numeric(y)], collapse = ''))
# [1] "AA" "AB" "BA" "BB"
    • Nice one, mais gardez à l'esprit que lorsque ce sera confronté à un zéro, il sera de retour le vide de caractères ainsi rendu le 1er et le 10 à la fois comme "Un".
    InformationsquelleAutor Robert Krzyzanowski
  3. 3

    Comme ça?

    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"
    InformationsquelleAutor koekenbakker
  4. 2

    ou comme ceci:

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