我正在创建一个应该是线性的数据图，并使用identify（x，y）来删除设备工件。但是我想添加再次点击该点作为一种“撤消”的功能，然后在我的代码中删除任何重复的点。当您第二次尝试单击某个点时收到此警告： '警告：已确定的最近点' 这是基于identify（）帮助页面的预期。 使用基本图形是否有解决此问题的方法，或者我必须切换到更具交互性的图形包？如有任何建议？
example <- data.table(x = c(1:25), y = c(5+1:14*2, 60, 5+16:25*2))
plot(y~x, data=example)
example_artifact_rm <- example[!identify(example[,x], example[,y])] <- click the artifact and identify it
如果我不小心点击了这对（2,9），怎么能'识别'？