ID<-c("A1", "A2", "A3", "A4", "A5")
x<-c(0,1,2,1,1)
y<-c(2,1,1,1,1)
z<-c(0,1,1,0,0)
mydata<-data.frame(ID,x,y,z)
如何将除ID列以外的所有列转换为BINARY,如上所述,0应编码为1.
我的原始数据大约有1000列.
ID<-c("A1", "A2", "A3", "A4", "A5")
x<-c(0,1,2,1,1)
y<-c(2,1,1,1,1)
z<-c(0,1,1,0,0)
mydata<-data.frame(ID,x,y,z)
如何将除ID列以外的所有列转换为BINARY,如上所述,0应编码为1.
我的原始数据大约有1000列.
你可以试试
mydata[-1] <- + (mydata[-1] > 0)
或
mydata[-1] <- 1 - !mydata[-1]
以至于
> mydata
ID x y z
1 A1 0 1 0
2 A2 1 1 1
3 A3 1 1 1
4 A4 1 1 0
5 A5 1 1 0