Dataframe 将因子转换为数值误差

Dataframe convert factors to numerical error

我正在尝试使用命令

将因子从数据框转换为数字
data[] <- lapply (data, function(x) as.numeric(as.character(x))

但它一直要求我进行更多编码。我究竟做错了什么? 数据框名为 data,由 50 行和 2 列组成。这个命令会改变数字中的每个变量吗?或者我应该做点别的吗?

http://imgur.com/Sde9QSk.png

使用 'dput' 后的屏幕截图

你不应该在代码末尾添加 ) 吗?