如何在不损失信息的情况下将一个因子转换为整数/数字?

当我把一个因子转换为数字或整数时,我得到的是底层的级别代码,而不是作为数字的值。

f <- factor(sample(runif(5), 20, replace = TRUE))
##  [1] 0.0248644019011408 0.0248644019011408 0.179684827337041 
##  [4] 0.0284090070053935 0.363644931698218  0.363644931698218 
##  [7] 0.179684827337041  0.249704354675487  0.249704354675487 
## [10] 0.0248644019011408 0.249704354675487  0.0284090070053935
## [13] 0.179684827337041  0.0248644019011408 0.179684827337041 
## [16] 0.363644931698218  0.249704354675487  0.363644931698218 
## [19] 0.179684827337041  0.0284090070053935
## 5 Levels: 0.0248644019011408 0.0284090070053935 ... 0.363644931698218

as.numeric(f)
##  [1] 1 1 3 2 5 5 3 4 4 1 4 2 3 1 3 5 4 5 3 2

as.integer(f)
##  [1] 1 1 3 2 5 5 3 4 4 1 4 2 3 1 3 5 4 5 3 2

我不得不求助于 "粘贴 "来获得真正的数值。

as.numeric(paste(f))
##  [1] 0.02486440 0.02486440 0.17968483 0.02840901 0.36364493 0.36364493
##  [7] 0.17968483 0.24970435 0.24970435 0.02486440 0.24970435 0.02840901
## [13] 0.17968483 0.02486440 0.17968483 0.36364493 0.24970435 0.36364493
## [19] 0.17968483 0.02840901

是否有更好的方法将因子转换为数字?

解决办法

?因子的警告部分。

特别是,as.numeric应用于 一个因子是没有意义的,并且可能 通过隐式强制发生。 为了 将一个因子f转化为 近似于它的原始数字 值,as.numeric(level(f))[f]是 推荐,并且比 gt;效率比 as.numeric(as.character(f))`。

R的FAQ有类似的建议


**为什么as.numeric(level(f))[f]as.numeric(as.character(f))更有效率?

as.numeric(as.character(f))实际上是as.numeric(level(f)[f]),所以你是在length(x)值上进行数字转换,而不是在nlevels(x)值上。 速度上的差异对于层次少的长向量来说是最明显的。 如果数值大多是唯一的,那么速度上就不会有太大的差别。无论你如何进行转换,这个操作都不可能成为你代码中的瓶颈,所以不要太担心这个问题。


一些时间安排

library(microbenchmark)
microbenchmark(
  as.numeric(levels(f))[f],
  as.numeric(levels(f)[f]),
  as.numeric(as.character(f)),
  paste0(x),
  paste(x),
  times = 1e5
)
## Unit: microseconds
##                         expr   min    lq      mean median     uq      max neval
##     as.numeric(levels(f))[f] 3.982 5.120  6.088624  5.405  5.974 1981.418 1e+05
##     as.numeric(levels(f)[f]) 5.973 7.111  8.352032  7.396  8.250 4256.380 1e+05
##  as.numeric(as.character(f)) 6.827 8.249  9.628264  8.534  9.671 1983.694 1e+05
##                    paste0(x) 7.964 9.387 11.026351  9.956 10.810 2911.257 1e+05
##                     paste(x) 7.965 9.387 11.127308  9.956 11.093 2419.458 1e+05
评论(6)

R有一些(未记录的)方便的函数用于转换因子。

  • `as.character.factor'(字符系数)
  • as.data.frame.factor(数据框架系数)
  • `as.Date.因子
  • as.list.factor(列表)。
  • as.vector.factor
  • ...

但恼人的是,没有任何东西可以处理因子-> 数字的转换。作为Joshua Ulrich回答的延伸,我建议通过定义你自己的习惯性函数来克服这一遗漏。


as.numeric.factor 
评论(6)

只有在因子标签与原始值一致的情况下,才有可能***。我将用一个例子来解释它。

假设数据是向量x


x 
评论(0)