R-删除一列的值与另一列的值不匹配的行

我的R脚本中有一行代码，它根据我的数据集

edata

计算每行数据中两列

gazecuetarge.CRESP

和

gazecuetarge.RESP

的值匹配频率的百分比

我希望能够删除两列中的值不匹配的所有行。因此，如果下面的代码告诉我，在给定数据行上，

gazecuetarge.CRESP

的值与

gazecuetarge.RESP

的值有97%匹配，我希望能够消除其余3%的值不匹配的情况

这是我制作的，当行匹配时给我一个百分比。 如有任何建议，将不胜感激。我认为解决办法应该很简单，但我不确定

paste0((100*with(edata, mean(GazeCueTarget.CRESP==GazeCueTarget.RESP, na.rm = "TRUE"))), "%")

---

您可以尝试对不匹配的行进行子集设置：

edata <- edata[edata$GazeCueTarget.CRESP == edata$GazeCueTarget.RESP, ]

---

edata在正确的行中，谢谢。但我希望删除任何不匹配的代码，而不是强制值相同。