将数据框重塑为宽大的形状

您可以简单地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