R语言数字格式设置：千分位用.、小数位用,并保留数值类型

核心说明 #

数值类型本身不存储显示格式（如千分位、小数分隔符），格式属于显示层面的属性。要在保留数值类型的同时实现自定义格式，需借助工具包给数值附加格式属性，而非直接转成字符型。

方法一：使用formattable包（推荐） #

该包可创建带格式的数值对象，本质仍是数值类型，支持正常运算，仅显示时应用自定义格式。

# 首次使用需安装包
install.packages("formattable")
library(formattable)

# 处理despesatotal列：千分位用"."，小数位用","，保留2位小数
your_tabyl_df$despesatotal <- comma(
  your_tabyl_df$despesatotal,
  digits = 2,
  big.mark = ".",
  decimal.mark = ","
)

# 处理proporcio_total列：小数位用","，保留2位小数（无需千分位分隔符）
your_tabyl_df$proporcio_total <- comma(
  your_tabyl_df$proporcio_total,
  digits = 2,
  big.mark = "",
  decimal.mark = ","
)

验证类型：运行is.numeric(your_tabyl_df$despesatotal)会返回TRUE，说明仍是数值类型；查看数据时会自动应用设置的格式。

方法二：使用scales + dplyr（适配tidyverse工作流） #

若习惯tidyverse语法，可结合scales包的标签函数实现：

# 首次使用需安装包
install.packages(c("scales", "dplyr"))
library(scales)
library(dplyr)

your_tabyl_df <- your_tabyl_df %>%
  mutate(
    # 处理despesatotal列
    despesatotal = label_comma(
      accuracy = 0.01,
      big.mark = ".",
      decimal.mark = ","
    )(despesatotal),
    # 处理proporcio_total列
    proporcio_total = label_comma(
      accuracy = 0.01,
      big.mark = "",
      decimal.mark = ","
    )(proporcio_total)
  )

为什么直接用format会出问题？ #

format()函数的作用是将数值转换为字符型，会改变列的类型；若系统locale设置与格式要求不匹配，还可能出现NA。而上述方法是给数值附加格式属性，存储的仍是数值，既满足显示需求，又不影响后续数值运算。

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