R语言如何将formatC函数应用到数据框多个指定列？

核心目标是对数据框中指定的多列，统一应用千分位格式化函数formatC(x, format="f", big.mark = ",", digits=0)，不改动非目标列，以下是两种最常用的实现方案：

方案1：基础R实现（无需安装第三方包） #

直接用lapply遍历目标列完成批量替换，兼容性最好：

# 构造测试数据框
df <- data.frame (origin = c("A","B","C","D","E","F","G","H","I","J"),
                  price = c(2334235,14545456,345452,74545451,3454545,64545450,1445,2551,4444,6550),
                  cost = c(10,12,20,2045450,-254545,14545452,14545453,94545450,-104545455,23),
                  change = c(10,12,-5,12,6,8,0.5,-2,5,-2))

# 定义需要格式化的目标列
target_cols <- c("price", "cost")
# 批量应用格式化函数
df[target_cols] <- lapply(df[target_cols], function(col) formatC(col, format="f", big.mark = ",", digits=0))

注意：格式化后的列会转为字符类型，适合报表导出、结果展示场景。如果后续需要对这些列做数值运算，建议保留原始数值列，新增格式化后的专用展示列即可。

方案2：dplyr实现（适配tidyverse工作流） #

如果日常用tidyverse系列函数处理数据，可以用across函数批量处理指定列，写法更简洁：

library(dplyr)

df <- df %>%
  mutate(across(c(price, cost), ~formatC(.x, format="f", big.mark = ",", digits=0)))

如果待处理的列有统一命名规则，还可以直接用列选择器语法简化代码，比如要处理所有名称含price、cost关键词的列，可以写成across(contains(c("price","cost")), 格式化函数)，列数较多时不用逐一列列名。

格式化效果说明 #

处理完成后：

• 目标列的整数会自动添加千分位逗号，比如2334235会显示为"2,334,235"
• 负数可以正常识别格式化，比如-254545会显示为"-254,545"
• 未列入处理范围的origin、change列会保留原有数据类型和值，不受影响

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