使用R将目录中的多个文本文件的特定列更改为数字

Question

我有一个文本文件列表，每个文件有6列。我想将第六列分类为数字。我该如何修改下面的代码？ for循环会改为帮助吗？

num_ea <- lapply(list.files(), FUN = function(x) {
num_trait <- as.numeric(x$6, header = T))
return(num_trait)
})