在R中按行检查前3个非NA元素中是否存在零

Question

我正在尝试删除数据帧中前3个非NA元素中包含零的行。

例如：

> c <- matrix(c(NA,NA,4,5,0,7,0,NA,NA,NA,NA,8,9,10,0,4,5,0,NA,NA), ncol=5, nrow = 4, byrow=T)
> c
     [,1] [,2] [,3] [,4] [,5]
[1,]   NA   NA    4    5    0
[2,]    7    0   NA   NA   NA
[3,]   NA    8    9   10    0
[4,]    4    5    0   NA   NA

我期望输出如下： 是是否是 为了创建前3个非NA元素中不包含零行的子集。

有人对此有一个简单的解决方案吗？

Answer 1

我们可以使用apply来做到这一点。遍历行，对非NA元素进行子集化，检查其中是否包含0

apply(c, 1, function(x) 0 %in% x[!is.na(x)][1:3])
#[1]  TRUE  TRUE FALSE  TRUE