a <- factor(rep(letters[1:3], 2)) # 产生一个因子变量a## [1] a b c a b c
## Levels: a b ca_dummy <- model.matrix(~factor(a) - 1)
a_dummy <- as.data.frame(a_dummy)
names(a_dummy) <- paste("a", 1:length(a_dummy[1, ]), sep = "")
a_dummy## a1 a2 a3
## 1 1 0 0
## 2 0 1 0
## 3 0 0 1
## 4 1 0 0
## 5 0 1 0
## 6 0 0 1版权声明：本文为yanan9256原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。