r：data.table，最有效的行式标准化

Question

此代码规范化每行中的每个值（所有值最终在-1和1之间）。

dt <- setDT(knime.in)

df <-as.data.frame(t(apply(dt[,-1], 1, function(x) x / sum(x) )))

df1<-cbind(knime.in$Majors_Final,df)

BUT

1. 这不是动态的。代码＆＃34;知道＆＃34; String分类变量在第一行并在运行计算之前将其删除
2. 这似乎是老派，我怀疑它没有充分利用data.table引用内存分配。

问题

如何使用内存最高效的data.table代码实现行式标准化？

如果我不知道这些列的位置或名称，如何排除所有is.character（）列（或仅包含is.numeric）？