计算R中两个数字的小数点后有多少位一致答案

【问题标题】：calculate how many digits that agree after decimal point of two numbers in R计算R中两个数字的小数点后有多少位一致
【发布时间】：2018-08-20 20:58:09
【问题描述】：

我希望 R 计算两个数字之间相同的位数，并返回小数点后相同的位数。例如：

a <- 0.1234567890
b <- 0.1234567891

输出：

9 位相同。

谢谢！

【问题讨论】：

【解决方案1】：

floor(-log10(abs(a-b)))怎么样？

请注意，任何这样的计算总是存在浮点错误问题的风险 - 请参阅下面 John Paul 指出的示例。

【讨论】：

【解决方案2】：

这是另一个（基于字符串的）答案，它不应该遇到任何浮点比较问题...

sum(sapply(1:20,function(i) grepl(substr(b,1,i),a)))-2

比较b的所有初始子串（强制为字符）长度为1到20（你可以扩展它），确定它们是否包含在a中，返回匹配的数量（即长度a 中包含的 b 的最长子字符串）并减去 2 以允许初始 0.

【讨论】：