如何修改DataFrame中的数字格式？解决数值与百分比显示异常

针对你提到的两类格式问题，我整理了两种实用的处理方案（原生Base R 和 tidyverse 风格），可以按需选择：

方法一：Base R 原生处理 #

不需要额外加载包，适合偏好原生语法的场景：

首先我们先区分需要格式化的行组：

• 常规数字行：Number of policies、Min、Max、Mean、Median
• 百分比行：% Missing、% Zero、% One、% Negative

# 假设你已经生成了目标df，先定义行组标识
percent_rows <- rownames(df) %in% c("% Missing", "% Zero", "% One", "% Negative")
regular_rows <- !percent_rows

# 处理百分比行：如果你的数值是小数形式（比如0.05代表5%）用下面的代码；如果已经是整数百分比，直接替换为 paste0(Value, "%")
df$Value[percent_rows] <- scales::percent(df$Value[percent_rows], accuracy = 1)

# 处理常规数字行：给"Number of policies"加千分位，其他行保留两位小数，避免科学计数法
df$Value[regular_rows] <- ifelse(rownames(df)[regular_rows] == "Number of policies",
                                 format(df$Value[regular_rows], big.mark = ",", scientific = FALSE),
                                 format(df$Value[regular_rows], nsmall = 2, scientific = FALSE))

方法二：Tidyverse 风格（可读性更强） #

如果你习惯用dplyr这类工具，代码逻辑会更清晰直观：

library(dplyr)
library(scales)

df <- df %>%
  mutate(
    Value = case_when(
      # 处理百分比行，accuracy参数控制百分比的小数位数
      rownames(.) %in% c("% Missing", "% Zero", "% One", "% Negative") ~ percent(Value, accuracy = 1),
      # 给保单数量添加千分位分隔符
      rownames(.) == "Number of policies" ~ format(Value, big.mark = ",", scientific = FALSE),
      # 其他常规数字统一保留两位小数
      TRUE ~ format(Value, nsmall = 2, scientific = FALSE)
    )
  )

关键参数说明 #

• scales::percent()：将小数转换为带%的字符串，accuracy = 1表示保留1位小数，改成0就显示整数百分比
• format()：big.mark = ","添加千分位分隔符，nsmall = 2强制保留两位小数，scientific = FALSE避免科学计数法显示
• 如果你的百分比数值已经是整数（比如5而不是0.05），可以把percent(Value)替换为paste0(Value, "%")

举个处理后的效果示例：

行名称	格式化后数值
Number of policies	123,456
Min	0.00
Max	999.99
Mean	123.46
Median	78.90
% Missing	3.5%
% Zero	25.0%
% One	10.0%
% Negative	2.0%

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