类似于dplyr :: distinct的函数

Question

我有一个带有x，y位置（以像素为单位）的点的数据框，并想过滤掉所有+/- 5像素的点。 是否有类似于dplyr :: distinct（）的函数，但有一个截止值。

示例数据集：

X.1 XY
1637614
2559503
3601459
4601459
5603462
6604460

我期望输出：

X.1 XY
1637614
2559503
3 601 459 <-保留第一个元素。

谢谢

Answer 1

一个简单的解决方案是将数据四舍五入到最接近的5的倍数，然后使用常规的不同函数：

X.1$x <- round(X.1$x/5)*5
X.1$y <- round(X.1$y/5)*5

distinct(X.1,.keep_all = TRUE)

#Output:
X.1  X  Y

1   635 615

2   560 505

3   600 560

但是，您的问题可能需要更高的准确性。