我有这个载体：
key <- c(2,1,3,2,3,3,3,1,1,3,1,3,3,1,2,3,1,2,2,3,1,3,2,2,1,3,2,2,2,3)
这样的数据框：
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20 V21 V22 V23 V24 V25 V26 V27 V28 V29 V30
1 1 1 4 3 4 3 1 2 2 4 2 2 1 2 3 2 4 2 2 1 2 3 2 1 4 2 1 4 3
1 1 3 2 3 2 1 1 2 1 3 2 2 3 1 2 1 4 1 2 2 4 3 4 1 3 3 4 4 4
2 1 1 2 1 3 3 1 2 1 1 2 3 1 1 3 1 2 2 3 1 3 2 2 1 3 2 3 2 3
如何使用密钥向量将数据帧转换为0和1以重新编码数据？
如果数据与矢量键一致，则应出现1，否则应显示为0
第一种情况应如下所示：
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20 V21 V22 V23 V24 V25 V26 V27 V28 V29 V30
0 1 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 1 0 1 0 0 1 1 0 1 0 0 1