我需要修复代码。我的数据框包含非数字（Var）和数字（Var.num）这样的变量（一行）：
Var1 Var2 Var3 Var4 Var.num1 Var.num2 Var.num3
1 ABC DEF GHI JKL 2010 2011 1.2
至少有一个数字变量被认为是factor（每行可能不同）并使我的其他代码正常工作（无需在此处发布）我需要更改所有{{1} 1}}到factor，经过快速研究和调整，我得到了类似的东西：
integer它非常适用于数值变量（每隔 newdf <- lapply(df, function(x) if(is.factor(x)) as.integer(levels(x))[x] else x)
更改一次，正好是我想要的），但它为非数字生成factor，因此输出看起来像这样
NaNs你能告诉我我的代码的哪一部分应该改变，所以非数字变量在输出中会像预转换数据框一样吗？