r - R , 拨浪鼓 , 重新编码

Answer 1

假设您正在寻找数字结果：

(MYDATA == "dp") / 2 + (MYDATA == "yes")

给予：

      KK  LL  II  JJ  AA
[1,] 1.0 0.5 1.0 1.0 0.0
[2,] 0.0 0.0 0.5 0.0 0.5
[3,] 1.0 1.0 0.0 1.0 1.0
[4,] 1.0 1.0 0.0 1.0 1.0
[5,] 0.5 0.0 0.0 0.5 1.0

Answer 2

我们可以将“MYDATA”转换为“matrix”，通过根据级别顺序将标签指定为“0.5,0,1”将“character”类更改为“factor”，并将其分配回“MYDATA”。[]将确保结构保持不变。

MYDATA[] <- as.numeric(as.character(factor(as.matrix(MYDATA), 
                            labels=c(0.5, 0, 1))))

MYDATA 
#   KK  LL  II  JJ  AA
#1 1.0 0.5 1.0 1.0 0.0
#2 0.0 0.0 0.5 0.0 0.5
#3 1.0 1.0 0.0 1.0 1.0
#4 1.0 1.0 0.0 1.0 1.0
#5 0.5 0.0 0.0 0.5 1.0