如何在R中将格式化后的tibble导出为TSV/TXT/CSV文件？

问题背景 #

使用tidyverse的num()函数对tibble列进行格式化后，控制台print()的输出样式已经符合需求，但需要将这种格式化后的内容导出到.txt或.csv文件，要求：

• V1、V2、V3保持print()显示的格式化样式
• V4、V5保留更多标准位数
• 可选择是否包含格式头（如% <dec:.1!>这类行）

示例代码（原始数据） #

library(tidyverse)
set.seed(123)
df = replicate(n=5, rnorm(n=10))
tbl = as_tibble(df)
tbl = tbl %>% mutate(
  V1 = num( (abs(V1)/max(abs(V1))), label = "%", scale = 100, digits = 2, notation = "dec"), 
  V2 =  num(V2, digits = 1, notation = "dec"),
  V3 = num(V3, sigfig = 3, notation = "sci") )

out_path = getwd() # 修改为目标路径

解决方案 #

方法1：完全复刻控制台输出到TXT文件 #

如果需要1:1保留控制台print()的所有格式（包括表头说明行），可以用capture.output()捕获输出内容，再写入文本文件：

# 捕获print输出的完整内容
tbl_out_fmt <- capture.output(print(tbl, n=Inf, width = Inf))
# 写入txt文件
write_lines(tbl_out_fmt, file = file.path(out_path, "tibble_example.txt"))

导出的txt文件会和控制台显示的内容完全一致，包含# A tibble: 10 × 5和格式头行。

方法2：转换为结构化字符列导出（适合CSV/TSV） #

如果需要结构化的导出格式（比如CSV文件，方便后续数据处理），可以将格式化后的列转为字符类型，再导出：

# 将格式化列转为字符，为V4/V5指定更多显示位数
tbl_formatted <- tbl %>%
  mutate(
    # 提取num()的格式化结果为字符型
    across(c(V1, V2, V3), format),
    # 为V4/V5保留6位有效数字，可按需调整
    across(c(V4, V5), ~format(., digits = 6))
  )

# 导出为TSV（替换为write_csv可导出CSV格式）
write_tsv(tbl_formatted, file = file.path(out_path, "tibble_formatted.tsv"))

这种方法导出的文件是纯结构化数据，没有控制台的额外说明行，适合数据交换场景。

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