R语言分类变量转换为哑变量(dummy vairable)

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/xtydtc/article/details/52492794
  • 生成测试数据
    a1 <- c(“f”,”f”,”b”,”b”,”c,”c”)

  • 利用nnet包中的函数class.ind
    > class.ind(a1)
    b c f
    [1,] 0 0 1
    [2,] 0 0 1
    [3,] 1 0 0
    [4,] 1 0 0
    [5,] 0 1 0
    [6,] 0 1 0

  • class.ind代码
class.ind <- function(cl) {
  n <- length(cl)
  cl <- as.factor(cl)
  x <- matrix( 0,  n ,  length(levels(cl)) )
  # unclass 返回每个字符在level表中的位置
  # 然后按照列计算在向量中的位置
  x[n*(unclass(cl)-1) + (1:n)] <- 1
  dimnames(x) <- list(names(cl), levels(cl))
  x
}
展开阅读全文

没有更多推荐了,返回首页