您可以简单地table使用值,然后根据> 0条件转换为逻辑,然后使用+一元运算符转换回数字(或者如果您想要更少的高尔夫球,简单地+ 0)
table
> 0
+
+ 0
+(table(dat) > 0) # grade # id a b c d e f # 1 1 1 1 0 0 0 # 2 1 1 0 0 0 0 # 3 0 0 0 1 0 1 # 4 0 0 1 0 0 0 # 5 1 0 0 0 1 1
京公网安备 11010802040832号 | 京ICP备19059560号-6 