r - R 中的 "undefined columns selected"故障排除

Question

我试图使用此命令从我的数据中删除所有方差为零的列

file <- file[,sapply(file, function(v) var(v, na.rm=TRUE)!=0)]

此命令对我以前的数据集非常有效，现在我正在尝试在新数据集上使用它，但它给了我以下错误:

Error in `[.data.frame`(file, , sapply(file, function(v) var(v, na.rm = TRUE) !=  : 
undefined columns selected
In addition: Warning message:
In var(v, na.rm = TRUE) : NAs introduced by coercion

问题是我没有选择任何列，我只是将函数应用于所有列!我怎么会收到错误消息，告诉我选择了未定义的列!
知道出了什么问题吗？

数据看起来正是这样

    col1   col2   col3   col4
1   FIA    3.5     2.4    NA
2   DWF    2.1     NA     3.7
3   LIK    0.25    2.3    1.38
4   JUW    2.1     4.0    3.2

Answer 1

输入文件是一个 CSV 文件并通过 read.csv 命令读取，它在导致此问题的表末尾有一个额外的空列，通过此命令删除最后一列，解决了问题。

lastcol <- ncol(file)
file[,lastcol] <- NULL