我需要一些关于逻辑回归的编码因子的帮助。
我所拥有的是代表收入等级的六个虚拟变量。我想将这些转换为单个有序因子,用于逻辑回归。
我的数据框架如下:
INC1 INC2 INC3 INC4 INC5 INC6
1 0 0 1 0 0 0
2 NA NA NA NA NA NA
3 0 0 0 0 0 1
4 0 0 0 0 0 1
5 0 0 1 0 0 0
6 0 0 0 1 0 0
7 0 0 1 0 0 0
8 0 0 0 1 0 0
我希望它看起来像:
INC
1 INC3
2 NA
3 INC6
4 INC6
5 INC3
6 INC4
7 INC3
8 INC4
这必须是一个常见的(和简单的)操作,但我的搜索没有找到如何执行此重新编码的简明答案。很感谢任何形式的帮助。
答案 0 :(得分:3)
这是基于另一个答案的解决方案,该答案保持NA值并转换为有序因子。
> inc
INC1 INC2 INC3 INC4 INC5 INC6
1 0 0 1 0 0 0
2 NA NA NA NA NA NA
3 0 0 0 0 0 1
4 0 0 0 0 0 1
5 0 0 1 0 0 0
6 0 0 0 1 0 0
7 0 0 1 0 0 0
8 0 0 0 1 0 0
> inc$F = factor(apply(inc, 1, function(x) names(x)[x == 1]),levels=names(inc),ordered=TRUE)
> inc
INC1 INC2 INC3 INC4 INC5 INC6 F
1 0 0 1 0 0 0 INC3
2 NA NA NA NA NA NA <NA>
3 0 0 0 0 0 1 INC6
4 0 0 0 0 0 1 INC6
5 0 0 1 0 0 0 INC3
6 0 0 0 1 0 0 INC4
7 0 0 1 0 0 0 INC3
8 0 0 0 1 0 0 INC4
> inc$F
[1] INC3 <NA> INC6 INC6 INC3 INC4 INC3 INC4
Levels: INC1 < INC2 < INC3 < INC4 < INC5 < INC6
如果您连续多个1,这将会中断。