为何无法在DataFrame中筛选绝对值为1的行？isTRUE(all.equal)无结果

核心问题：浮点数精度误差 #

R中计算相关系数时，由于浮点数的存储和计算特性，完全线性相关的两组变量，其相关系数可能不会精确等于1，而是一个非常接近1的数值（比如0.9999999999999998或1.0000000000000002）。这就是你筛选时出现异常的根本原因：

1. result_df$Result==1只返回1行：
   只有一组变量的相关系数在计算后恰好被存储为精确的1，另一组则是接近1的浮点数，直接用==做精确匹配会漏掉这一行。

2. isTRUE(all.equal(result_df$Result, 1))无数据返回：
   all.equal(result_df$Result, 1)是将整个Result向量和数值1做整体比较，只有当所有元素都和1相等时才返回TRUE，否则返回差异描述。再用isTRUE转换后得到的是单个逻辑值（这里是FALSE），用它索引数据框时自然取不到任何行。

正确的筛选方法 #

针对浮点数比较的场景，你可以用以下两种方式解决：

方法1：用all.equal逐个判断元素

通过sapply遍历每个Result值，用all.equal判断其是否和1在浮点精度范围内相等：

res <- result_df[sapply(result_df$Result, function(x) isTRUE(all.equal(x, 1))), ]

方法2：设置容忍度做范围判断

直接判断Result值和1的差值是否小于一个极小的阈值（比如1e-10）：

res <- result_df[abs(result_df$Result - 1) < 1e-10, ]

这两种方法都能准确筛选出所有相关系数接近1（实际为完全线性相关）的行。

内容的提问来源于stack exchange，提问作者Lara