转换为数值时如何保持水平值不变

Question

我正在尝试将所有因子值转换为数据集中的数值：

代码非常简单明了，我使用了两种方法，但都没有返回与因子格式相同的级别值：

    teenSf2_3 <- mutate_if(teenSf2_2, is.factor, as.numeric)

    teenSf2_2[] <- lapply(teenSf2_2, function(x) as.numeric(as.factor(x)))

结果具有不同的级别值：

似乎每个级别的增量为1。转换为数值时如何保持电平值不变？

Answer 1

我认为我通过使用以下方法解决了该问题：

   teenSf2_2[] <- lapply(teenSf2_2, function(x) as.numeric(as.character(x)))