Comment convertir un nombre entier en un vecteur binaire?

Comment convertir un nombre entier en binaire vecteur à l'aide de R?

Par exemple :

number <- 11
[1] 1 0 1 1

quelle est la manière la plus rapide possible de la méthode de conversion (à l'aide de R code ou certaines fonctions existantes de paquets) si j'ai besoin de convertir l'ensemble du vecteur de nombres (d'une valeur minimum = 0, maximum =300) dans la matrice binaire ?

source d'informationauteur Qbik

  1. 19

    Il y a le intToBits fonction qui convertit un nombre entier à un vecteur de 32 raws, de sorte que vous pouvez le faire:

    decimals <- c(3,5,11,4)
m <- sapply(decimals,function(x){ as.integer(intToBits(x))})
m
> m
[,1] [,2] [,3] [,4]
[1,]    1    1    1    0
[2,]    1    0    1    0
[3,]    0    1    0    1
[4,]    0    0    1    0
[5,]    0    0    0    0
[6,]    0    0    0    0
[7,]    0    0    0    0
[8,]    0    0    0    0
[9,]    0    0    0    0
[10,]    0    0    0    0
[11,]    0    0    0    0
[12,]    0    0    0    0
[13,]    0    0    0    0
[14,]    0    0    0    0
[15,]    0    0    0    0
[16,]    0    0    0    0
[17,]    0    0    0    0
[18,]    0    0    0    0
[19,]    0    0    0    0
[20,]    0    0    0    0
[21,]    0    0    0    0
[22,]    0    0    0    0
[23,]    0    0    0    0
[24,]    0    0    0    0
[25,]    0    0    0    0
[26,]    0    0    0    0
[27,]    0    0    0    0
[28,]    0    0    0    0
[29,]    0    0    0    0
[30,]    0    0    0    0
[31,]    0    0    0    0
[32,]    0    0    0    0
  2. 18

    Ce DONC, après les suggère la intToBits fonction. Je définir la fonction number2binaryqui inclut un argument noBits pour contrôler combien de bits sont retournés. La norme est de retour 32 bits.

    number2binary = function(number, noBits) {
binary_vector = rev(as.numeric(intToBits(number)))
if(missing(noBits)) {
return(binary_vector)
} else {
binary_vector[-(1:(length(binary_vector) - noBits))]
}
}

    Et pour quelques exemples:

    > number2binary(11)
[1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 1
> number2binary(11, 4)
[1] 1 0 1 1
  3. 7

    Une solution que j'ai trouvé dans "Le R du Livre" par M. J. Crawley est la fonction suivante:

    binary <- function(x) {
i <- 0
string <- numeric(32)
while(x > 0) {
string[32 - i] <- x %% 2
x <- x %/% 2
i <- i + 1 
}
first <- match(1, string)
string[first:32] 
}
  4. 5

    Vous pouvez utiliser la fonction suivante pour que, sur la base intToBit :

    intToBitVect <- function(x){
tmp <- rev(as.numeric(intToBits(x)))
id <- seq_len(match(1,tmp,length(tmp))-1)
tmp[-id]
}

    La première ligne convertit le intToBits sortie numérique 0 et 1, et met la commande directement. La deuxième ligne vérifie que les valeurs doivent être conservés, comme suit:

    • vérifier le lieu de la première 1 à l'aide de la match. Si il n'y a pas de 1 à trouver, vous demandez match de retourner la longueur de votre tmp vecteur.
    • créer une séquence (à l'aide de seq_len) de 1 à la position précédente de la première occurence de 1 dans le tmp vecteur
    • chute de tous les postes du tmp vecteur

    Pour montrer cela fonctionne :

    > intToBitVect(11)
[1] 1 0 1 1
> intToBitVect(0)
[1] 0
  5. 2

    Si vous voulez retourner une séquence binaire, c'est à dire un vecteur de 1 et de 0, alors cette fonction le fera pour vous, mais il ne peut prendre 1 à la fois.

    dectobin <- function(y) {
# find the binary sequence corresponding to the decimal number 'y'
stopifnot(length(y) == 1, mode(y) == 'numeric')
q1 <- (y / 2) %/% 1
r <- y - q1 * 2
res = c(r)
while (q1 >= 1) {
q2 <- (q1 / 2) %/% 1
r <- q1 - q2 * 2
q1 <- q2
res = c(r, res)
}
return(res)
}
  6. 2

    Essayer le CRAN package "binaryLogic"

    library(binaryLogic)
as.binary(11)
[1] 1 0 1 1
as.binary(11, littleEndian=TRUE)
[1] 1 1 0 1
as.binary(42, n=16)
[1] 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0
as.binary(0:2, n=2)
[[1]]
[1] 0 0
[[2]]
[1] 0 1
[[3]]
[1] 1 0
as.binary(0xFF)
[1] 1 1 1 1 1 1 1 1

    Également disponibles: translation, rotation, graycode etc.

  7. 1

    Et l'autre:

    toBits <- function (x, nBits = 8){
tail(rev(as.numeric(intToBits(x))),nBits)
}
  8. 0
    intToBin <- function(x){
if (x == 1)
1
else if (x == 0)
NULL
else {
mod <- x %% 2
c(intToBin((x-mod) %/% 2), mod)
}
}

    Donc intToBin(10) renvoie

    [1] "1" "0" "1" "0"

    Et si vous voulez chaîne, au lieu de vecteur

    > paste0(intToBin(10), collapse = "")
[1] "1010"