r - r 中的特殊类型的虚拟代码

Question

我希望在 R 中执行一种特殊类型的虚拟编码过程。基本上，我想要一个函数来查看序数变量的每个级别并按顺序对它们进行编码。这是我需要的:

Variable_1 --> Variable_1a  Variable_1b  Variable_1c
1               1            0            0
1               1            0            0
2               1            1            0
2               1            1            0
3               1            1            1
3               1            1            1

我可以使用 ifelse 语句手动执行此操作，但必须有更简单的方法。

Answer 1

这里有一种方法:

x <- c(1,1,2,2,2,3,3)
cbind(x,sapply(unique(x),function(y)ifelse(x>=y,1,0)))

# [1,] 1 1 0 0
# [2,] 1 1 0 0
# [3,] 2 1 1 0
# [4,] 2 1 1 0
# [5,] 2 1 1 0
# [6,] 3 1 1 1
# [7,] 3 1 1 1