dplyr与base R数值运算输出结果不一致问题咨询

这是正常可预期的现象，不属于程序bug，差异来自tibble的默认打印规则，而非数值计算结果不一致。

• 首先确认计算结果一致性：你可以提取tibble中存储的y值验证，运行如下代码即可确认两个计算结果完全相同：

# 接原有代码生成对象t后
res_tbl <- t %>% 
  mutate(y = map_dbl(1:1, ~ slice(t,.x) %>% pull(.,x) %>% sqrt())) %>% 
  mutate(across(2,round,3))
# 提取y值查看
res_tbl$y
# 和直接计算的结果对比
identical(res_tbl$y, round(sqrt(8.98),3))

运行后对比结果会返回TRUE，说明两次计算的数值完全一致。

• 显示差异的核心原因：tibble的控制台打印默认做了可读性优化，默认仅展示3位有效数字，而非3位小数。你计算得到的2.997是4位有效数字，按照3位有效数字规则舍入展示时就会显示为3.00，和你看到的打印结果完全匹配。
• 可修改打印配置查看完整数值：如果想要在tibble打印时看到完整的3位小数结果，可调整打印参数：
  • 临时修改单次打印：执行print(res_tbl, digits = 4)
  • 全局修改默认打印精度：执行options(pillar.sigfig = 4)，修改后所有tibble打印默认会展示4位有效数字，就能看到2.997的结果。
• 注意事项：控制台的打印输出仅做可读性优化，不要直接将打印结果作为精确值判断依据，实际存储的数值不会受打印规则影响。

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