如何解决在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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。