我想将因子变量转换为数字变量，但as.numeric没有达到我期望的效果。

下面我根据原始变量获得变量数字版本的汇总统计信息。手段不断增加1......也许（他推测）因子的水平既有名称又有数字，我期待新变量的值来自as.numeric设计使用数字时的名称？

> describe.by(as.numeric(df$sch), df$sch)

group: 
  var    n mean sd median trimmed mad min max range skew kurtosis se
1   1 5389    1  0      1       1   0   1   1     0  NaN      NaN  0
--------------------------------------------------------- 
group: 001
  var  n mean sd median trimmed mad min max range skew kurtosis se
1   1 19    2  0      2       2   0   2   2     0  NaN      NaN  0
--------------------------------------------------------- 
group: 002
  var  n mean sd median trimmed mad min max range skew kurtosis se
1   1 54    3  0      3       3   0   3   3     0  NaN      NaN  0
---------------------------------------------------------