r - 如何确定 R 中数据的有效数字位数？

Question

我有一个正在 R 中分析的大型数据集，我对一列或信息向量感兴趣。这个向量中的每个条目都有不同数量的有效数字(从 1 到 5 个)，我想对这个向量进行子集化，所以我看不到只有一个有效数字的数据。我可以使用什么样的测试或函数来让 R 报告每个条目的有效数字的数量？我已经研究了 signif() 函数，但这更多的是将数据四舍五入到指定数量的有效数字，而不是查询有多少个无花果。

示例:假设我有这个向量:
4
28.382
120
82.3
100
30.0003

我想删除只有一位有效数字的条目。这将是条目 1(值为 4)和条目 5(值为 100)。我知道如何在 R 中对数据进行子集化，但我不知道如何告诉 R“找到”只有一个有效数字的所有值。

Answer 1

x <- c(4, 28.382, 120, 82.3, 100, 30.0003)
#compare the values with result of signif
#you need to consider floating point precision
keep <- abs(signif(x, 1) - x) > .Machine$double.eps
x[keep]
#[1]  28.3820 120.0000  82.3000  30.0003