r - 是否以相同的顺序对向量值进行逻辑检查

Question

我有一个包含可变元素的向量，我想检查它的最后两个元素是否具有相同的数字顺序。

例如，如果最后两个向量是 0.0194 和 0.0198，则返回 TRUE。因为它们在零之后的数字顺序是相同的(0.01 顺序 10^-2)。 !对于其他示例，数字可能是 0.00014 和 0.00012，因此它们的精度仍然大致相同，函数也应返回 TRUE。

我们如何构建逻辑语句或函数来检查这一点。

x<- c(0.817104, 0.241665, 0.040581, 0.022903, 0.019478, 0.019846)

Answer 1

我可能想多了，但您可以测试每个数量级和第一个非零数字是否相同。

x <- c(0.817104, 0.241665, 0.040581, 0.022903, 0.019478, 0.019846)

oom <- function(x, base = 10) as.integer(ifelse(x == 0, 0, floor(log(abs(x), base))))
oom(x)
# [1] -1 -1 -2 -2 -2 -2

(tr <- trunc(x / 10 ** oom(x, 10)))
# [1] 8 2 4 2 1 1

所以对于最后两个，两者的数量级都是 -2，第一个非零数字都是 1。

放入一个函数:

f <- function(x) {
  oom <- function(x, base = 10) as.integer(ifelse(x == 0, 0, floor(log(abs(x), base))))
  x <- tail(x, 2)
  oo <- oom(x)
  tr <- trunc(x / 10 ** oo)
  (oo[1] == oo[2]) & (tr[1] == tr[2])
}

## more test cases
x1 <- c(0.019, 0.011)
x2 <- c(0.01, 0.001)

f(x)  ## TRUE
f(x1) ## TRUE
f(x2) ## FALSE

这是一个比上面更通用的函数，用于检查最后的 n 而不是 2

g <- function(x, n = 2) {
  oom <- function(x, base = 10) as.integer(ifelse(x == 0, 0, floor(log(abs(x), base))))
  x <- tail(x, n)
  oo <- oom(x)
  tr <- trunc(x / 10 ** oo)
  Reduce(`==`, oo) & Reduce(`==`, tr)
}

g(c(.24, .15, .14), 2)  ## TRUE
g(c(.24, .15, .14), 3)  ## FALSE