求大佬们回答

2. 在机器学习的特征工程领域，通常对于类别型特征进行处理时，需要转换成数值型特征，其中有一种方法叫做二进制编码。二进制编码主要分成两步：先用序号编码给每个类别赋予一个类别ID，然后将类别ID对应的二进制编码作为结果。示例如下表，请编写完成类别变量的二进制编码的R函数。

血型	类别ID	二进制表示
A	1	0 0 1
B	2	0 1 0
AB	3	0 1 1
O	4	1 0 0

<code>

ordered(c('A','B','AB','O'),levels=c('A','B','AB','O'))->todo
as.integer(todo)->todo

binary<-function(p_number,n=3) {
  bsum<-0
  bexp<-1
  while (p_number > 0) {
     digit<-p_number %% 2
     p_number<-floor(p_number / 2)
     bsum<-bsum + digit * bexp
     bexp<-bexp * 10
  }
n<-max(n,nchar(bsum))
sprintf(paste0("%0",n,"d"),bsum)
}

sapply(todo, binary)


</code>

1. substring(paste(rev(as.integer(intToBits(4))), collapse=""),29)

复制代码