如何使用kable完成R表格数值的3位数字格式化

原代码存在的问题 #

• 参数配置错误：format()函数的digits参数控制的是总有效数字位数，搭配nsmall=0配置时，不会强制保留固定小数位，会自动省略末尾的零，比如无法把0.79显示为要求的0.790。
• 转换范围过宽：mutate_if(is.numeric)会对所有数值列做格式转换，连带不需要改动的整数列z也被处理，不符合仅格式化x、y列的需求。

调整思路 #

要实现x、y列固定保留3位小数、自动四舍五入、末尾位数不足补零的效果，直接用sprintf("%.3f", 数值)完成格式化即可：该函数会将数值强制转换为带3位小数的字符串，完全匹配期望的输出格式。

调整后可直接运行的完整代码 #

---
title: "format 3 digits"
output:
  word_document: default
---

```{r echo=FALSE,message=FALSE, warning=FALSE}
library(tidyverse)
library(knitr)

df <- tibble(x = c(0.0345, 0.7898, 0.4534),
             y = c(-0.0345, -0.7898, -0.4534),
             z = c(1, 2, 3))

# 仅对x、y列做3位小数格式化，z列保持原有整数样式
df %>%
  mutate(across(c(x, y), ~sprintf("%.3f", .x))) %>%
  kable(.)

## 输出效果
- x列最终输出为`0.035`、`0.790`、`0.453`
- y列最终输出为`-0.035`、`-0.790`、`-0.453`
- z列保持原有整数样式`1`、`2`、`3`

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