仅使用NA值删除列表中的data.frames

Question

我有一个data.frames列表，其中一些填充了NA，我想删除那些在我的列表中只有NA的data.frames。

我正在使用这两个命令：

list.df <- lapply(list.df, na.omit)
list.df <- list.df[sapply(list.df, function(x) dim(x)[1] >0 )]

有没有办法在一行中做同样的事情？

由于

Answer 1

这会保留所有data.frame个至少有一个NA - 免费行：

df.list[ sapply( df.list, function(x){ any( rowSums(is.na(x)) == 0 ) }) ]