从数据框中删除相似的重复项

Question

如何删除数据框中值在特定阈值内的行？

                x             y
1   -0.111111e-15  0.111111e-15
2   -1.111112e-15  1.111112e-15
3   -1.111111e-15  1.111111e-15

例如，如果我将阈值设置为 1e^-8，第二行或第三行将被删除。

Answer 1

我使用一些实用函数 rd.txt 输入控制台输出:

> dat <- rd.txt("                x             y
+ 1   -0.111111e-15  0.111111e-15
+ 2   -1.111112e-15  1.111112e-15
+ 3   -1.111111e-15  1.111111e-15"
+ )
> dat[ ! duplicated( round(dat,-8) ),]
             x           y
1 -1.11111e-16 1.11111e-16

(我的第一个带有减号而不是否定运算符的版本不正确。)如果所有列都不是数字，则需要进行一些修改。如果是这种情况，那么请发布一个正确的测试示例，最好使用 dput() 输出而不是通常模棱两可的控制台输出。

以其他受访者的例子(修改为提供请求的对象类):

dfrm<-data.frame(id=letters[1:3],x=c(-1/9/1e15,-1/9/1e14,-1/9/1e14),
               y=c(1/9/1e15,1/9/1e14,1/9/1e14))
dfrm[ ! duplicated( round( dfrm[ , sapply(dfrm, is.numeric)],8)), ]
  id             x            y
1  a -1.111111e-16 1.111111e-16