Possible Duplicate:
Removing empty rows of a data file in R

如果矩阵或数据框中有all个元素是NA,我如何从中删除行?

因此,要从中得到:

     [,1] [,2] [,3]
[1,]    1    6   11
[2,]   NA   NA   NA
[3,]    3    8   13
[4,]    4   NA   NA
[5,]    5   10   NA

为此:

     [,1] [,2] [,3]
[1,]    1    6   11
[2,]    3    8   13
[3,]    4   NA   NA
[4,]    5   10   NA

因为安娜的问题.省略的是,它删除了带有any个NAs的行,因此会给出以下信息:

     [,1] [,2] [,3]
[1,]    1    6   11
[2,]    3    8   13

到目前为止,我能做的最好的事情就是使用apply()函数:

> x[apply(x, 1, function(y) !all(is.na(y))),]
     [,1] [,2] [,3]
[1,]    1    6   11
[2,]    3    8   13
[3,]    4   NA   NA
[4,]    5   10   NA

但这似乎很复杂(有没有我遗漏的更简单的东西....

谢谢

推荐答案

使用rowSums()的解决方案通常优于apply()的解决方案:

m <- structure(c( 1,  NA,  3,  4,  5, 
                  6,  NA,  8, NA, 10, 
                 11,  NA, 13, NA, NA), 
               .Dim = c(5L, 3L))

m[rowSums(is.na(m)) != ncol(m), ]

     [,1] [,2] [,3]
[1,]    1    6   11
[2,]    3    8   13
[3,]    4   NA   NA
[4,]    5   10   NA

R相关问答推荐

根据列表中项目的名称多次合并数据框和列表

任意列的欧几里得距离

R Sapply函数产生的值似乎与for循环方法略有不同

我想在R中总结一个巨大的数据框架,使我只需要唯一的lat、lon、Date(Year)和Maxium Value""""""""

gganimate在使用shadow_mark选项时不保留所有过go 的标记

R根据条件进行累积更改

如何根据嵌套元素的名称高效而优雅地确定它属于哪个列表?

在数组索引上复制矩阵时出错

plotly hover文本/工具提示在shiny 中不起作用

解析R函数中的变量时出现的问题

基于R中的间隔扩展数据集行

警告消息";没有非缺失的参数到min;,正在返回数据中的inf";.表分组集

'使用`purrr::pwalk`从嵌套的嵌套框架中的列表列保存ggplots时出现未使用的参数错误

如何在AER::ivreg中指定仪器?

TidyVerse中长度不等的列结合向量

通过匹配另一个表(查找表)中的列值来填充数据表,并在另一个变量上进行内插

R中从因数到数字的转换

如何编辑被动式数据表?

残差与拟合图上标记点的故障排除

基于日期输入的子集数据集,其中应包括NAS作为 Select