如何为R语言DataFrame所有数值列添加千位分隔符？

你的代码问题出在mutate_all的语法上——prettyNum(var, big.mark=",")里的var是未定义变量，mutate_all需要用.指代当前处理的列，或者通过匿名函数传递处理逻辑。

正确写法1：公式语法（推荐） #

df <- df %>%
  mutate_all(~prettyNum(., big.mark = ","))

这里的~是匿名函数的简写，.代表当前正在处理的列。

正确写法2：funs函数（旧版dplyr兼容写法） #

df <- df %>%
  mutate_all(funs(prettyNum(., big.mark = ",")))

更安全的写法：仅处理数值型列 #

如果你的DataFrame里混有非数值列（比如字符、因子列），直接用mutate_all会报错，建议用mutate_if只针对数值列处理：

df <- df %>%
  mutate_if(is.numeric, ~prettyNum(., big.mark = ","))

测试示例 #

# 创建测试数据
df <- data.frame(
  col1 = c(1234, 56789, 123456),
  col2 = c(98765, 4321, 111111),
  col3 = c("文本1", "文本2", "文本3") # 非数值列
)

# 只给数值列加千位分隔符
df <- df %>%
  mutate_if(is.numeric, ~prettyNum(., big.mark = ","))

print(df)

输出结果：
col1 col2 col3
1 1,234 98,765 文本1
2 56,789 4,321 文本2
3 123,456 111,111 文本3

注意：处理后数值列会转为字符型，如果只是想在打印/展示时显示千位分隔符但不改变数据类型，可以用options(scipen=999, big.mark=",")做全局设置，之后直接打印数值列就会自动显示千位分隔符，无需修改DataFrame本身。

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