繁体   English   中英

将值从分类更改为标称值

[英]Change values from categorical to nominal in R

我想按等级更改分类列中的所有值。 可以使用列中已排序的唯一元素的索引来确定排名。

例如,

> data[1:5,1] 
[1] "B2" "C4" "C5" "C1" "B5"

然后我希望这些列中的条目替换分类值

> data[1:5,1]  
[1] "1" "4" "5" "3" "2"

另一栏:

> data[1:5,3]
[1] "Verified"        "Source Verified" "Not Verified"    "Source Verified" "Source Verified"

然后是更新的列:

> data[1:5,3]
[1] "3" "2" "1" "2" "2"

我将此代码用于此任务,但要花费很多时间。

for(i in 1:ncol(data)){
  if(is.character(data[,i])){
    temp <- sort(unique(data[,i]))
    for(j in 1:nrow(data)){
      for(k in 1:length(temp)){
        if(data[j,i] == temp[k]){
          data[j,i] <- k}
      }
    }
  }
}

如果可能的话,请向我建议有效的方法。 谢谢。

这是base R中的解决方案。我创建了一个辅助函数,该函数使用其唯一的排序值作为级别将每列转换为一个因子。 除了我使用as.integer获取排名值外,这与您所做的类似。

rank_fac <- function(col1) 
   as.integer(factor(col1,levels = unique(col1)))

一些数据示例:

dx <- data.frame(
  col1= c("B2" ,"C4" ,"C5", "C1", "B5"),
  col2=c("Verified"    ,    "Source Verified", "Not Verified"  ,  "Source Verified", "Source Verified")
)

在不使用for循环的情况下应用它。 最好在这里使用lapply以避免副作用。

data.frame(lapply(dx,rank_fac)

结果:

#       col1 col2
# [1,]    1    3
# [2,]    4    2
# [3,]    5    1
# [4,]    3    2
# [5,]    2    2

使用data.table语法糖

library(data.table)
setDT(dx)[,lapply(.SD,rank_fac)]
#    col1 col2
# 1:    1    3
# 2:    4    2
# 3:    5    1
# 4:    3    2
# 5:    2    2

更简单的解决方案:

仅使用as.integer

setDT(dx)[,lapply(.SD,as.integer)]

使用match

# df is your data.frame    
df[] <- lapply(df, function(x) match(x, sort(unique(x))))

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM