R - 具有领先和滞后的逻辑陈述

Question

我有一个数字向量，想检查是否有任何被两个相同数字包围的零，例如：

x <- c(3,0,3,4,5,2,0,1,3)

any(x == 0 & lag(x) == lead(x))
TRUE 

但问题是，如果向量以 0 开头或结尾，我将得到 NA，因为滞后或领先将是 NA。

x <- c(0,3,4,5,2,0,1,3)

any(x == 0 & lag(x) == lead(x))
NA 

在这种情况下，我仍然想返回 FALSE。有谁知道如何在不使用超前和滞后功能的情况下解决这个问题？

感谢您的帮助！

Answer 1

您需要检查is.na，您可以利用NA & FALSE 解析为FALSE 和TRUE | NA 解析为TRUE 的事实。

试试这个：

any(!(is.na(lead(x)) | is.na(lag(x)) | lead(x) != lag(x) | x != 0))

这会检查您想要的所有错误情况是否为真，然后否定整个表达式。

x <- c(3,0,3,4,5,2,0,1,3)
any(!(is.na(lead(x)) | is.na(lag(x)) | lead(x) != lag(x) | x != 0))
[1] TRUE

x <- c(0,3,4,5,2,0,1,3)
any(!(is.na(lead(x)) | is.na(lag(x)) | lead(x) != lag(x) | x != 0))
[1] FALSE

有时更容易检查假的情况是否为真和否定。