在R

问题描述

我正在从ADC IC接收16位2s补码或有符号二进制。当我收到数据时，看起来像这样

时间戳，IP，频率，传感器，数据
132493498543616929，10.0.0.236，600.000，321，-8739

132493498543626902，10.0.0.236，600.000，321，-8739

132493498543636875，10.0.0.236，600.000，321，-8739
132493498543636875，10.0.0.236，600.000，321，-13108
132493498543656828，10.0.0.236，600.000，321，-8739
132493498543666795，10.0.0.236，600.000，321，-21846
132493498543676768，10.0.0.236，600.000，321，-21846
132493498543676768，10.0.0.236，600.000，321，-21846
132493498543686741，10.0.0.236，600.000，321，-21846

我想将其转换为带符号的二进制文件，我的最小可复制代码如下

 library(binaryLogic)
 as.binary(-21846,signed=TRUE,logic=FALSE)
 [1] 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0

这给了我想要的二进制值，但是当我将其用作

时

Data_as_Binary <- as.binary(-21846,logic=FALSE)
Data_as_Binary
TRUE
FALSE
TRUE 
FALSE
TRUE
FALSE

我有16000多个值需要在数据帧中以及当我转换时 使用mutate或tidyverse中的任何内容，它会返回一个列表如何将其折叠为单个变量
将其转换为十六进制是没有问题的，但是我必须将其转换为二进制，所以现在我将其转换为二进制，但是我需要在最低有效位上加1，如何在整个数据帧中做到这一点？ 谢谢阿曼达

解决方法

这就是我自己能想到的，并且给了我想要的东西

 Data_as_bianary<- as.binary(RF_PWR_OFF_600$Data,signed = TRUE,size=2)
  

df<-as.data.frame(Data_as_bianary)
  
df <- as.data.frame(matrix(unlist(Data_as_bianary),ncol = 16))


df_2<-1*df

df_3<-(!df_2)*1

RF_PWR_OFF_600$DAta_to_bin  <- apply( df_3[,1:16 ],1,paste,collapse = "" )


RF_PWR_OFF_600 <- RF_PWR_OFF_600%>%
  select(DAta_to_bin) %>%
  mutate_if(is.character,as.numeric)