我遇到了一个莫名其妙的错误。 我使用下面的函数来删除包含在任一列R应用错误 - as.matrix.data.frame()中的错误
##### removes NA'd rows from a dataFrame
wipeNArows<-function(X){
rowsToDelete<-unique(unlist(apply(apply(X,2,is.na),2,which)))
if (length(rowsToDelete)>0){
return (X[-rowsToDelete,])
}
else{
return (X)
}
}
该功能能正常工作正常的NA观察的数据帧的行,例如一个可再现的例子是:
testFrame<-data.frame(x=rpois(20,10),y=rpois(20,10),z=rpois(20,10))
rowsToDelete<-sample(1:nrow(testFrame),5,FALSE)
testFrame$x[rowsToDelete]<-NA
testFrame
wipeNArows(testFrame) ### removes the rows where NA is encountered
现在我有一个包含约2993行的数据框。当我通过这个数据帧通过我面临着以下错误的函数:
Error in apply(apply(X, 2, is.na), 2, which) :
error in evaluating the argument 'X' in selecting a method for function 'apply': Error in as.matrix.data.frame(X) :
dims [product 14965] do not match the length of object [14974]
感谢响应,
你可以提供一个例子,它*不*工作,而不是*工作*? – A5C1D2H2I1M1N2O1R2T1 2012-07-18 06:54:52
我建议在函数的开头插入'browser()'。这样,你可以遍历你的代码,检查每个元素并追踪错误。 – 2012-07-18 08:19:58