按行值过滤数据框但具有公差

Question

df <- data.frame(x = c(6.00001, 6.00000, 5.99999, 5, 2), y = c(1, 2, 3, 4, 5))

        x y
1 6.00001 1
2 6.00000 2
3 5.99999 3
4 5.00000 4
5 2.00000 5

我可以使用 df[df$x == 6,] 快速返回包含 x == 6 的行，

  x y
2 6 2

但是如果我想在这里有一个容忍度怎么办？ all.equal 在这里似乎不适用：

df[all.equal(df$x, 6, 0.0001), ]
    x  y
NA NA NA

如果我想找到x与6非常接近的行，有没有捷径呢？预期输出：

        x y
1 6.00001 1
2 6.00000 2
3 5.99999 3

Answer 1

你可以使用near()：

library(dplyr)

df %>%
  filter(near(x, 6, tol = 1e-04))

        x y
1 6.00001 1
2 6.00000 2
3 5.99999 3