r - 计算不包含 `NA` 的数据帧的行数

Question

这个问题在这里已经有了答案:




8年前关闭。

Possible Duplicate:
R - remove rows with NAs in data.frame

我有一个从以下函数派生的数据框:

complete <- function(directory,id = 1:332) {

   csvfiles <- sprintf("/Users/myname/Desktop/%s/%03d.csv", directory, id)

   nrows <- sapply( csvfiles, function(f) nrow(read.csv(f)))

        rowlabels <- nrow(nrows)

        data.frame(id=sprintf('%3d', id), 
            nobs=sapply(csvfiles,function(x) length(count.fields(x))),
            row.names=rowlabels
           )
       }

此函数计算对象 csvfiles 生成的目录中包含的每个文件中的行数。然后它输出一个数据框，显示文件编号以及行数(所以是两列)

以为我有它，但问题是我现在必须排除每个文件中的行，其中 NA 的实例存在。

我将如何编辑它以忽略每个文件中的那些行并只计算没有 NA 的行存在吗？

Answer 1

替换这一行:

nrows <- sapply( csvfiles, function(f) nrow(read.csv(f)))

这条线，它使用 complete.cases功能:

nrows <- sapply( csvfiles, function(f) nrow(complete.cases(read.csv(f))))

complete.cases获取一个数据框并返回一个具有相同列的数据框，但所有行都至少包含一个 NA抛出。