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

Posted 2021-05-06

我试图删除前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

我希望有一个输出如下：TRUE TRUE FALSE TRUE，以便在前3个非NA元素中创建没有零的行的子集。

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

答案

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

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