r - 我需要 'binarize' R中的数据框中的一些数据

Question

我有一个数据框，我想对前56列中的每个数据点进行二值化，条件是如果该值大于0，则将其设置为1，否则将其设置为0。是否有一种简单的方法做这个？

Answer 1

使用矢量化的ifelse，您可以执行以下操作:

   m[,1:56] <- ifelse(m[,1:56] > 0,1,0)

例如，我们可以在较小的矩阵中对此进行测试:

 m <- matrix(sample(c(-2,2),5*3,rep=T),ncol=5,nrow=3,byrow=T)
> m
     [,1] [,2] [,3] [,4] [,5]
[1,]    2    2    2    2   -2
[2,]    2    2   -2    2   -2
[3,]    2    2    2    2    2
> m[,2:5] <- ifelse(m[,2:5] > 0,1,0)
> m
     [,1] [,2] [,3] [,4] [,5]
[1,]    2    1    1    1    0
[2,]    2    1    0    1    0
[3,]    2    1    1    1    1