R语言强制dplyr mutate运算后不自动四舍五入的方法

你看到的“自动四舍五入截断”从来没发生在计算环节，纯粹是tibble的默认控制台打印规则在做屏幕适配。
R在计算double类型数值时，本身不会主动截断精度，你存储的计算结果是完整的双精度值。只是tibble为了让输出在屏幕上整齐对齐，会根据整列的数值范围，统一选择最少的有效位数来打印，完全不改动背后存储的真实值。你调整options(digits=10)没效果，也是因为tibble的打印逻辑默认不读取这个全局显示参数。

怎么验证精度没丢 #

你可以随便抽一个之前显示为截断值的元素，直接把它从数据框里提出来看真实值：

# 提取计算后TZA行的X1值
dd %>% 
  rowwise() %>% 
  mutate(across(.cols = X1:X5, .fns = ~.x / get(paste0("ppp_", id)))) %>% 
  pull(X1) %>% 
  pluck(1)

跑出来你会看到真实值是0.4002015，根本不是之前控制台显示的0.4，计算过程半分精度都没丢。

让控制台打出完整精度值的方法 #

• 直接调整tibble的打印有效位数参数
  在管道最后加打印设置，通过pillar.sigfig指定要显示的有效数字位数，想显示全双精度值就设成15，比如：

  dd %>% 
    rowwise() %>% 
    mutate(across(.cols = X1:X5, .fns = ~.x / get(paste0("ppp_", id)))) %>% 
    print(pillar.sigfig = 15)
  

  跑出来就能看到每个X列完整的计算值，不会再为了对齐做截断。
• 把结果转回base R原生data.frame再打印
  tibble转回普通data.frame后，打印逻辑就会读取全局的options(digits)参数，这时候你之前设置的options(digits=10)就会生效：

  dd %>% 
    rowwise() %>% 
    mutate(across(.cols = X1:X5, .fns = ~.x / get(paste0("ppp_", id)))) %>% 
    as.data.frame()
  

• 用对象查看器看全量值
  如果用的是RStudio，直接跑View(你计算完的结果对象)，弹窗里显示的就是完整存储精度，不会做任何屏幕适配的截断。

顺便修正你代码里的两个小问题 #

• 你之前写的.cols=(2:4)只覆盖了X1、X2、X3三列，从之前的运行结果也能看出来，TZA行的X4、X5还是原始值，根本没参与除法计算。直接写.cols = X1:X5按列名选范围更稳妥，不会因为列位置变动导致计算范围出错。
• 逐行用get(paste0("ppp_",id))搜索全局变量的写法稳定性很差，后续id变多的时候，一堆ppp开头的散变量会把全局环境弄的很乱，还容易因为变量名拼写错误出bug。更稳妥的做法是把所有ppp值整理成一个两列的对照表，直接拼接进数据框做除法：

  # 整理ppp值的对照表
  ppp_lookup <- data.frame(
    id = c("TZA", "ZMB", "SGP", "TUR"),
    ppp = c(803.8115234375, 0.539304196834564, 0.879599809646606, 1.162452)
  )
  # 拼接后做除法，效率更高也更稳定
  dd %>% 
    left_join(ppp_lookup, by = "id") %>% 
    mutate(across(X1:X5, ~.x / ppp)) %>% 
    select(-ppp)
  

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