在R中將十進制轉換爲二進制？

Question

在R中將數字轉換爲基數2（在字符串中，例如5將轉換爲"0000000000000101"）最簡單的方法是什麼？有intToBits，但它返回一個字符串矢量，而不是一個字符串：

> intToBits(12) 
[1] 00 00 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
[26] 00 00 00 00 00 00 00 

我已經嘗試了一些其他的功能，但沒有成功：

> toString(intToBits(12)) 
[1] "00, 00, 01, 01, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00" 

Answer 1

@尼科的回答略有延長。這消除了領先的「0」，從每一位：

paste(sapply(strsplit(paste(rev(intToBits(12))),""),`[[`,2),collapse="") 
[1] "00000000000000000000000000001100" 

Answer 2

paste(rev(as.integer(intToBits(12))), collapse="")做工作

paste與collapse參數將矢量摺疊爲字符串。您必須使用rev才能獲得正確的字節順序。

as.integer去除多餘的零

Answer 3

看一看的R.utils包 - 有你有一個名爲intToBin功能...

http://rss.acs.unt.edu/Rdoc/library/R.utils/html/intToBin.html

Answer 4

我認爲，可以使用R.utils包，則intToBin（）函數

>library(R.utils) 

>intToBin(12) 
[1] "1100" 

> typeof(intToBin(12)) 
[1] "character" 

Answer 5

該函數將採取的十進制數，並返回對應的二進制序列，即1:1的矢量的和0的

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) 
} 

Answer 6

哦，但是如果你有一個64位整數作爲由bit64包啓用怎麼辦？除了@epwalsh之外，每個給出的答案都不會對64位整數進行操作，因爲R和R.utils的基於C的內部結構不支持它。如果你首先加載bit64包，除了R（使用循環），狗慢（所有速度都是相對的），@ epwalsh的解決方案非常好，並且可以在R中運行。

o.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) 
} 

dat <- sort(sample(0:.Machine$integer.max,1000000)) 
system.time({sapply(dat,o.dectobin)}) 
# user system elapsed 
# 61.255 0.076 61.256 

我們才能做得更好，如果我們字節編譯它...

library(compiler) 
c.dectobin <- cmpfun(o.dectobin) 
system.time({sapply(dat,c.dectobin)}) 
# user system elapsed 
# 38.260 0.010 38.222 

...但它仍然是相當緩慢的。我們可以更快地得到顯着，如果我們用C編寫我們自己的內部（這是我在這裏做從@ epwalsh的代碼借款 - 我不是一個C程序員，很明顯）...

library(Rcpp) 
library(inline) 
library(compiler) 
intToBin64.worker <- cxxfunction(signature(x = "string") , '  
#include <string> 
#include <iostream> 
#include <sstream> 
#include <algorithm> 
// Convert the string to an integer 
std::stringstream ssin(as<std::string>(x)); 
long y; 
ssin >> y; 

// Prep output string 
std::stringstream ssout; 


// Do some math 
int64_t q2; 
int64_t q1 = (y/2)/1; 
int64_t r = y - q1 * 2; 
ssout << r; 
while (q1 >= 1) { 
q2 = (q1/2)/1; 
r = q1 - q2 * 2; 
q1 = q2; 
ssout << r; 
} 


// Finalize string 
//ssout << r; 
//ssout << q1; 
std::string str = ssout.str(); 
std::reverse(str.begin(), str.end()); 
return wrap(str); 
', plugin = "Rcpp") 

system.time(sapply(as.character(dat),intToBin64.worker)) 
# user system elapsed 
# 7.166 0.010 7.168 

```

Answer 7

intToBits被限制爲最大2^32，但是如果我們想要將1e10轉換爲二進制？這裏是將浮點數轉換爲二進制的函數，假設它們是以大整數存儲爲numeric。

dec2bin <- function(fnum) { 
    bin_vect <- rep(0, 1 + floor(log(fnum, 2))) 
    while (fnum >= 2) { 
    pow <- floor(log(fnum, 2)) 
    bin_vect[1 + pow] <- 1 
    fnum <- fnum - 2^pow 
    } # while 
    bin_vect[1] <- fnum %% 2 
    paste(rev(bin_vect), collapse = "") 
} #dec2bin 

該函數在2^53 = 9.007199e15之後開始鬆動數字，但對於較小的數字可以正常工作。

microbenchmark(dec2bin(1e10+111)) 
# Unit: microseconds 
#     expr  min  lq  mean median  uq max neval 
# dec2bin(1e+10 + 111) 123.417 125.2335 129.0902 126.0415 126.893 285.64 100 
dec2bin(9e15) 
# [1] "11111111110010111001111001010111110101000000000000000" 
dec2bin(9e15 + 1) 
# [1] "11111111110010111001111001010111110101000000000000001" 
dec2bin(9.1e15 + 1) 
# [1] "100000010101000110011011011011011101001100000000000000" 

Answer 8

試用»binaryLogic«

library(binaryLogic) 

ultimate_question_of_life_the_universe_and_everything <- as.binary(42) 

summary(ultimate_question_of_life_the_universe_and_everything) 
#> Signedness Endianess value<0 Size[bit] Base10 
#> 1 unsigned Big-Endian FALSE   6  42 

> as.binary(0:3, n=2) 
[[1]] 
[1] 0 0 

[[2]] 
[1] 0 1 

[[3]] 
[1] 1 0 

[[4]] 
[1] 1 1 

Answer 9

decimal.number<-5 

i=0 

result<-numeric() 

while(decimal.number>0){ 

    remainder<-decimal.number%%2 

    result[i]<-remainder 

    decimal.number<-decimal.number%/%2 

    i<-i+1 
}