函数类似于dplyr：：dplyr：：dplyr.

Question

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

示例数据集：

X.1 X Y

  1   637   614

  2   559   503

  3   601   459

  4   601   459

  5   603   462

  6   604   460  

我期望有以下成果：

X.1 X Y

  1   637   614

  2   559   503

  3   601   459  <- the first element is preserved. 

谢谢

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

然而，您的问题可能需要更高的精确度。