将R语言tibble写入TXT文件时保留小数格式的方法

问题原因 #

全局的scipen、digits等设置对tidyverse的write_delim函数影响有限，因为它的数值输出逻辑独立于全局选项，导致小数值（如1e-6）被自动转为科学计数法。

解决方案 #

方法一：先将数值列格式化为目标字符串（灵活可控） #

通过scales::number或sprintf把需要保留小数格式的列转换成字符串，再写入文件，完全控制输出格式：

library(tidyverse)
library(scales) # 需要加载scales包

# 格式化指定列，确保小数格式输出
data_formatted <- data %>%
  mutate(
    # 对W、X、Y列使用十进制格式，保留6位有效数字
    across(c(W, X, Y), ~number(.x, notation = "dec", sigfig = 6)),
    # 整数列转为字符串避免意外格式转换
    Year = as.character(Year),
    Z = as.character(Z)
  )

# 写入文件
write_delim(data_formatted, file = "data.txt", col_names = TRUE, delim = " ", eol = " \n")

如果需要固定小数位数（比如强制6位小数，0.5显示为0.500000），可以改用sprintf：

data_formatted <- data %>%
  mutate(
    across(c(W, X, Y), ~sprintf("%.6f", .x)),
    Year = as.character(Year),
    Z = as.character(Z)
  )

方法二：使用base R的write.table配合全局选项 #

write.table会遵循全局的数值显示设置，设置scipen强制禁用科学计数法：

# 全局设置：禁用科学计数法，保留6位有效数字
options(scipen = 999, digits = 6)

# 写入文件，参数与write_delin对齐
write.table(
  data, 
  file = "data.txt", 
  sep = " ", 
  row.names = FALSE, 
  col.names = TRUE, 
  eol = " \n"
)

这两种方法都能让输出文件中的数值保持你期望的小数格式，不会出现科学计数法。

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