如何为R语言data.frame设置列专属小数位数并导出？

哈哈，这个问题我之前也碰到过！确实format()函数作用于整个data.frame时，只能用统一的小数位数设置，没法单独给列定制，不过有好几种实用的办法能解决这个问题，我给你分享两个常用方案：

方案一：单独格式化每一列再合并 #

这种方法直接直观，不需要额外加载包，适合基础R用户：

首先创建你的测试数据（加个seed让结果可重复）：

set.seed(123)
df <- data.frame(A = c("R1","R2","R3"), B = rnorm(3), C= rnorm(3))

然后针对每一列单独设置小数位数：

# 复制原数据框，避免修改原始数据
df_formatted <- df
# B列保留3位小数
df_formatted$B <- format(df$B, digits = 3, nsmall = 3, scientific = FALSE)
# C列保留4位小数
df_formatted$C <- format(df$C, digits = 4, nsmall = 4, scientific = FALSE)

最后导出成文件：

write.table(df_formatted, file = "formatted_data.txt", sep = "\t", row.names = FALSE, quote = FALSE)

原理很简单：format()单独作用于数值向量时，就能给每个列单独设置参数，完美避开全局设置的限制。

方案二：用dplyr批量处理（tidyverse风格） #

如果你平时习惯用tidyverse工具链，这个方法会更简洁优雅：

先加载dplyr包：

library(dplyr)

用mutate()配合sprintf()精准格式化每一列：

df_formatted <- df %>%
  mutate(
    B = sprintf("%.3f", B), # %.3f 表示固定保留3位小数
    C = sprintf("%.4f", C)  # %.4f 表示固定保留4位小数
  )

同样导出即可：

write.table(df_formatted, file = "formatted_data.txt", sep = "\t", row.names = FALSE, quote = FALSE)

sprintf()是个非常灵活的格式化工具，用C语言风格的格式符，能轻松实现各种数值格式需求，比如整数位数、小数位数、科学计数法等。

小提醒 #

格式化后的列会变成字符类型，如果之后还需要对这些列做数值计算，记得用as.numeric()转回来；但如果只是用于导出打印，字符类型完全没问题。

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