如何使用R將整數(shù)轉(zhuǎn)換為二進制向量？例如 ：number <- 11[1] 1 0 1 1如果我需要將整個數(shù)字向量（最小值= 0，最大值= 300）轉(zhuǎn)換為二進制矩陣，最快的轉(zhuǎn)換方法（使用R代碼或軟件包中的某些現(xiàn)有功能）是什么？r 二進制 整數(shù) 數(shù)字 二進制數(shù)據(jù)
3 回答
偶然的你
TA貢獻1841條經(jīng)驗 獲得超3個贊
我在MJ Crawley的“ The R Book”中找到的解決方案是以下功能：
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]
Cats萌萌
TA貢獻1805條經(jīng)驗 獲得超9個贊
該intToBits函數(shù)可以將任何整數(shù)轉(zhuǎn)換為32個raws的向量，因此您可以執(zhí)行以下操作：
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
慕村225694
TA貢獻1880條經(jīng)驗 獲得超4個贊
該SO帖子建議該intToBits功能。我定義函數(shù)number2binary，該函數(shù)包含一個參數(shù)noBits來控制返回多少位。標準是返回32位。
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))]
}
}
還有一些例子：
> 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 回答
- 0 關(guān)注
- 1044 瀏覽
添加回答
舉報
0/150
提交
取消